Bonjour tout le monde,
essayes avec Instr,
Sub Brico1()
Dim Vciel As String
Vciel = Range('B4')
If InStr(Vciel, 'étoiles') 'signe différent de ' 0 Then MsgBox 'OK' Else MsgBox 'Pas Là'
End Sub
édition : le signe différent ne passe pas ici, donc mis en texte, attention sinon àla casse dans la valeur de Vciel
Bonne journée,
Brico
Message édité par: Bricofire, à: 19/05/2006 14:33