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

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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