Sub a()
Dim val As String
val = "TPV dskjfkjsd sdjkjf"
If val Like "TPV*" Then ' TPV 'suit de Aucun ou plusieurs caractères
MsgBox "ok"
Else
MsgBox "ne correspond pas!"
End If
End Sub
Bravo Lami20j, c'est aussi une possibilité. Utiliser Like on n'y pense pas souvent, et offre d'ailleurs plus de flexibilité. En effet, on peut faire avec ton exemple aussi la recherche de "PTV" à l'intérieur de la chaîne grâce à "*TPV*" ... Je retiens ton code dans un petit coin...
Oui. ET si tu utilise la syntaxe Left$(var,3) cela sera un poil plus rapide, dans le cas où cette fonction est appeler de nombreuses fois dans une boucle...