Recherche mot

Résolu
ordi94 -  
 ordi94 -
Bonjour,

dans une cellule il y a plusieurs mots moi je cherche un mot ex toto
for each c in range("A1;A11)
if c.value like toto then ???????
merci

2 réponses

f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,

Sub test1()
    With Worksheets("feuil1")
        For Each cel In .Range("A1:A10")
            If cel Like "*toto*" Then
                MsgBox "mot trouvé dans cellule: " & cel.Address
            End If
        Next cel
    End With
End Sub
0
ordi94
 
merci beaucoup
0