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

KTM

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

patricktoulon

XLDnaute Barbatruc
Bonjour
il y a plusieurs méthodes
exemple
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 774
Membres
101 816
dernier inscrit
Jfrcs