[VBA] - Tester si cellule contient "texte" : ne fonctionne pas Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
Le Drosophile
Membre dévoué
Membre dévoué
Messages : 566
Appréciations reçues : 3
Inscrit le : 27 juin 2018
Version d'Excel : 2016

Message par Le Drosophile » 29 décembre 2019, 18:52

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 !
Recherche_caracteres.xlsm
(18.21 Kio) Téléchargé 4 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'343
Appréciations reçues : 663
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 29 décembre 2019, 19:07

Bonjour,
Et si tu regardais l'aide sur l'opérateur like ?
Cet opérateur est sensible à la casse… ;;)
Cdlt.
Modifié en dernier par Jean-Eric le 29 décembre 2019, 19:19, modifié 1 fois.
1 membre du forum aime ce message.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'190
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 29 décembre 2019, 19:10

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
1 membre du forum aime ce message.
Cdlt,
Raja
L
Le Drosophile
Membre dévoué
Membre dévoué
Messages : 566
Appréciations reçues : 3
Inscrit le : 27 juin 2018
Version d'Excel : 2016

Message par Le Drosophile » 29 décembre 2019, 19:49

Bonsoir,

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

Bonne soirée ! :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message