[VBA] - Tester si cellule contient "texte" : ne fonctionne pas

Bonjour,

Pour vérifier si des cellules contiennent les mots recherchés, j'utilise ce code là :

For a = 2 To lrpr
            If .Cells(a, 1) Like "*Sites classés*" And .Cells(a, 4) Like "*Inclus*" Then
                scnbr = scnbr + 1
            End If
           Next a

Mais, lorsque les cellules (a,1) et (a,4) correspondent bien à la recherche, Excel réagit comme si de rien n'était. Il finit par tout passer sans jamais rien faire.

J'ai modifié les formats, sans changement.

Vous savez d'où ça peut provenir ?

J'ai fait un document de travail rapidement, il reprend une partie du code que j'exécute.

Si vous lancer le code, il faut le lancer via F8, pour voir ce qui se passe (la ligne IF est sautée, même lorsque le contenu des cellule correspond à la requête), il n'y a rien qui apparaîtra dans le document, car je n'en suis pas encore à cette étape.

Merci de votre attention,

Bonne fin de journée !

Bonjour,

Et si tu regardais l'aide sur l'opérateur like ?

Cet opérateur est sensible à la casse…

Cdlt.

Bonsoir,

Essaye comme ça :

For a = 2 To lrpr
            If .Cells(a, 1) Like "*Sites Classés*" And .Cells(a, 4) Like "*Inclus*" Then
                scnbr = scnbr + 1
            End If
           Next a

Bonsoir,

Merci, je n'avais pas fait attention à la casse...

Bonne soirée !

Rechercher des sujets similaires à "vba tester contient texte fonctionne pas"