XL 2016 vérifier si un caractère existe dans une chaine

[KTM]

Bonjour chers tous
Je voudrais savoir comment vérifier par VBA si le caractère "x" existe dans une chaine de caractère.
MERCI

 

[kiki29]

Salut, à lire/pratiquer : Manipuler les chaines de caractères en VB6 et VBA Excel

 

[patricktoulon]

Bonjour
il y a plusieurs méthodes
exemple

Sub bidule()
    Dim chaine$, char$
    chaine = "totox mange des pommes"
    char = "x"
    test1 = InStr(1, chaine, char, vbTextCompare) > 0
    test2 = chaine Like "*" & char & "*"
    test3 = Not Len(Replace(chaine, char, "")) = Len(chaine)

    MsgBox test1 & vbCrLf & test2 & vbCrLf & test3
End Sub