bonjour à tous
un peu d'indulgence car il ne sais pas !
tu m'avais déjà posé cette question par mail !
si tu ecris TOTAL12364 en cellule a1
Sub essai()
Dim AnyString, MyStr 'déclare les variables
AnyString = Range("a1").Value ' Définit la chaîne.
MyStr = Left(AnyString, 5) ' Renvoie "TOTAL".
If Left(AnyString, 5) = "TOTAL" Then 'extrait 5 caracteres à gauche
MsgBox "total" 'action à produire
End If
End Sub
amicalement
A+
JMG