Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

test présence d'une chaine de caractères dans une cellule VBA

eddiestid

XLDnaute Nouveau
Bonjour,

Je voudrais savoir si il est possible en VBA de tester la présence d'un mot dans une cellule qui contient une chaine de caractère avec par exemple une variable booléenne.

Exemple: la cellule contient "Niveau simple"
On cherche ici à savoir si la cellule contient le mot "simple"
et donc là on nous rendrait la valeur true mais si par exemple il y avait dans la cellule "Niveau or" on nous renverrait la valeur false.
Merci de me dire si c'est possible.
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : test présence d'une chaine de caractères dans une cellule VBA

Bonjour eddiestid, et bienvenue sur le forum

un essai par formule en pièce jointe

à+
Philippe
 

Pièces jointes

  • 111.xlsx
    8.7 KB · Affichages: 196
  • 111.xlsx
    8.7 KB · Affichages: 191
  • 111.xlsx
    8.7 KB · Affichages: 203

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : test présence d'une chaine de caractères dans une cellule VBA

Re,

un essai par macro

à+
Philippe
 

Pièces jointes

  • 111.xlsm
    17.1 KB · Affichages: 251
  • 111.xlsm
    17.1 KB · Affichages: 221
  • 111.xlsm
    17.1 KB · Affichages: 220

eddiestid

XLDnaute Nouveau
Re : test présence d'une chaine de caractères dans une cellule VBA

Merci phlaurent55 ! J'ai à présent un autre problème sur VBA, un simple If-End IF ne fonctionne pas, j'obtiens le message d'erreur suivant "End If sans bloc If"
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : test présence d'une chaine de caractères dans une cellule VBA

Re,

sans voir le code que tu as "bidouillé", il ne m'est pas possible de voir où se trouve le problème

est-ce que l'exemple donné lors de ma réponse précédente fonctionne ???
Code:
For i = 5 To 9
If Cells(i, 2) Like ("*simple*") Then Cells(i, 5) = "Vrai"
Next i
ce code peut aussi s'écrire de la manière suivante pour un même résultat:
Code:
For i = 5 To 9
If Cells(i, 2) Like ("*simple*") Then
Cells(i, 5) = "Vrai"
End If
Next i
ou comme ceci si on veut ajouter "Faux"
Code:
For i = 5 To 9
If Cells(i, 2) Like ("*simple*") Then
Cells(i, 5) = "Vrai"
Else
Cells(i, 5) = "Faux"
End If
Next i

à+
Philippe
 
Dernière édition:

eddiestid

XLDnaute Nouveau
Re : test présence d'une chaine de caractères dans une cellule VBA

Oui oui merci philippe la première solution marche à merveille, en cours nous travaillons sur windows et là je me retrouve sur mac et il y a quelques petites différences...
Merci !
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…