Astuces Excel
  1. Astuces Excel
  3. Le code VBA pour find une cellule contient une certaine string (parmi une list .csv)
Intereting Posts
Comment puis-je get la valeur déroulante des cellules Excel lors de l'import de la feuille excel en utilisant asp.net c #? Puis-je extraire des arrays de PDF en utilisant Perl? Excel – Rechercher une valeur de correspondance Scripting.Dictionary keys to Listbox VBA Excel Comment exporter la vue majuscule mvc3 pour excel Concurrence conditionnelle dans Excel Besoin de copyr des lignes d'un ws à l'autre en fonction de plusieurs valeurs dans une colonne r – erreur en utilisant xlsx package dans write.xlsx Comment puis-je passer EffectiveUserName à SSAS via Excel Service en utilisant FBA (authentification basée sur les formulaires) dans SharePoint 2013 Charge SSIS à partir de Excel Dynamic Named Range Comment insert des sous-totaux dans un pied de page Excel? Comment puis-je get une textbox Excel pour exécuter une macro sur un changement terminé? Essayez … L'infestation par blocs de capture Effectuez une fonction personnalisée VBA ne renvoie rien – pas 0, pas une string vierge, mais rien Comment get l'object de la feuille de calcul à partir d'une reference textuelle?

Le code VBA pour find une cellule contient une certaine string (parmi une list .csv)

Trouvé beaucoup d'exemples pour find une cellule en fonction de la valeur qu'elle contient, mais ils sont tous pour l'exemple lorsque la cellule contient SEULEMENT une valeur. J'ai ces colonnes avec une list de localités comme DEDE, ESES, etc. et si j'essaie de find une cellule basée sur un seul de ces parameters régionaux, le code que j'ai ne fonctionne pas, je n'ai aucune idée de pourquoi. 

Sub Test() Dim strConcatList As Ssortingng Dim cell As Range strConcatList = "*" & "esES" & "*" 'For each used cell in Column A of sheet1, check whether the value in that cell 'is contained within the concatenated ssortingng For Each cell In Intersect(Sheets("Requests").Range("G:G"), Sheets("Requests").UsedRange) If InStr(strConcatList, cell.Value) > 0 Then 'InStr returns 0 if the ssortingng isn't found matchRow = cell.Row Rows(matchRow & ":" & matchRow).Select Selection.Copy Sheets.Add.Name = "esES" Sheets("Sheet2").Select ActiveSheet.Rows(matchRow).Select ActiveSheet.Paste Sheets("Requests").Select End If Next cell End Sub

Par exemple, cet extrait de code est censé find des cellules où "esES" est présent, créer une nouvelle feuille appelée ESES et coller la ligne. J'ai essayé "esES", n'a pas fonctionné. J'espérais que la forme actuelle que je travaillerais – j'ai un peu d'expérience avec Regax, mais pas dans VBA et il devrait tout lire + ESES + n'importe quoi.

Pas d'indice sur ce qui se passe, et j'ai été coincé pendant des heures. Je n'aimerais pas un peu d'aide ici.

MODIFIER:

Ce code fonctionne, merci d'aider: 

 Sub Test() Dim strConcatList As Ssortingng Dim cell As Range Sheets.Add.Name = "esES" strConcatList = "*esES*" 'For each used cell in Column G of sheet1, check whether the value in that cell 'is contained within the concatenated ssortingng For Each cell In Intersect(Sheets("Requests").Range("G:G"), Sheets("Requests").UsedRange) If cell.Value Like strConcatList Then matchRow = cell.Row Rows(matchRow & ":" & matchRow).Select Selection.Copy Sheets("esES").Select ActiveSheet.Rows(matchRow).Select ActiveSheet.Paste Sheets("Requests").Select End If Next cell End Sub

Ce code fonctionne: 

 Sub Test() Dim strConcatList As Ssortingng Dim cell As Range Sheets.Add.Name = "esES" strConcatList = "*esES*" For Each cell In Intersect(Sheets("Requests").Range("G:G"), Sheets("Requests").UsedRange) If cell.Value Like strConcatList Then matchRow = cell.Row Rows(matchRow & ":" & matchRow).Select Selection.Copy Sheets("esES").Select ActiveSheet.Rows(matchRow).Select ActiveSheet.Paste Sheets("Requests").Select End If Next cell End Sub

Merci beaucoup d'avoir aidé!