recherche chaine de caracteres

[teter]

Bonjour à tous,

Je cherche à supprimer les lignes d'un fichier dont les cellules de la colonne C contiennent "ABCD" et "EFGHIJKL" n'importe ou dans la chaine de ces cellules qui peuvent contenir chiffres, lettres, espaces, ...

Je sais trouver celles qui commencent par "EFGHIJKL" avec Left, mais pas lorsque ce que je cherche ne débute pas la cellule ?

Dim i As Variant
For i = Cells(1, 2).CurrentRegion.Rows.Count To 1 Step -1
If Left(Cells(i, 3).Value, 8) =”EFGHIJKL” or ????? =”ABCD” Then Cells(i, 3).EntireRow.Delete

Une cht'ite idée ?

Merci

Teter

 

[Guest]

Re : recherche chaine de caracteres

Bonjour Teter,

Essaie avec l'opérateur Like:

If Cells(i, 3).Text Like ”EFGHIJKL*” or Cells(i,3).Text Like ”*ABCD*” Then Cells(i, 3).EntireRow.Delete

Pour les lignes commençant par EFGHIJKL ou contenant ABCD

A plus

 

[Staple1600]

Re : recherche chaine de caracteres

Bonjour teter, Hasco

Une autre méthode

Sub test_II()
Dim i As Long
Dim St As String
Dim Stt As String
St = "EFGHIJKL"
Stt = "ABCD"
For i = 1 To 30
If Not (InStr(1, Cells(i, 3).Text, St)) = 0 Or Not (InStr(1, Cells(i, 3).Text, Stt)) = 0 Then
Cells(i, 3).EntireRow.Delete
End If
Next
End Sub

 

[teter]

Re : recherche chaine de caracteres

Bonjour,

Merci à vous deux.
Je m'étais intéressé à LIKE et INSTR mais sans succès.
Ici, LIKE fonctionne impec. Je garde INSTR sous le coude.

Bonne journée.

Teter

 

[teter]

Re : recherche chaine de caracteres

Bonjour,

Staple1600, je viens de lever le coude 🙂 et souhaite rechercher, non pas une ou deux chaines bien définies mais le contenu de cellules, disons de B2:B200 de la Feuil2 ?

Y a-t-il moyen de remplacer st et stt dans ta macro ?

Merci d'avance à toi ou tout autre contributeur.

Cordialement

Teter

 

[tototiti2008]

Re : recherche chaine de caracteres

Bonjour teter,

toujours dans le même cadre ?
de B2 à B200 tu as la liste des valeurs à rechercher et si tu touves l'une de ces valeurs dans la ligne tu réalise une action ?
avec un For each Next sur la plage à tester sans doute

Dim i as long, Cellule as range
For i = Cells(1, 2).CurrentRegion.Rows.Count To 1 Step -1
For each Cellule in range("B2:B200")
if instr(1, Cells(i,3).value, Cellule.value)<>0 then
Msgbox "Trouvé pour la ligne " & i
exit for
end if
Next cellule
next i

 

[teter]

Re : recherche chaine de caracteres

Bonjour,

Merci Tototiti pour ta réponse,
En fait, les cellules de ma colonne C (de recherche) contiennent des chaines de caractères, ex : "AAAA Bdksgk Kkjuhdfuhn".
Si j'ai dans une des cellules B2:B200 de la Feuil2 "Bdksgk" ou "juhdfuhn" (ces cellules ne contenant qu'un mot), je veux qu'il me signale la/les cellules de ma colonne C où il me les a trouvé, quelle que soit leur position dans la chaine et sachant que les valeurs cherchées peuvent être suivies ou précédées d'une où plusieurs lettres voire chiffres.
Il faudrait également qu'il matche même si les seules différences sont minuscule ou majuscule (ex bdksgk).

InStr(1, Cells(i, 3).Value, ... ne va me chercher que les cellules dont le contenu est identique or je cherche les cellules dont le contenu ... contient Cellule.Value.
Et je ne sais pas comment intégrer les ** utilisés avec Like.

Un p'tite idée ?

Merci

Cordialement

Teter

 

[tototiti2008]

Re : recherche chaine de caracteres

Bonjour à tous,

un exemple basé sur le code que j'avais proposé...

 

[teter]

Re : recherche chaine de caracteres

Tototiti,

Je ne pensais pas que ta première proposition était si "puissante".
En tout cas, c'est ce que je cherchais, je l'ai adapté pour une recherche dans une autre feuille.
Merci donc à toi.

A+

Teter