Recherche mot

Résolu/Fermé
ordi94 - 20 avril 2013 à 19:06
 ordi94 - 2 mai 2013 à 09:54
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 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 709
21 avril 2013 à 09:28
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
merci beaucoup
0