Sub cherche_plusieurs() [A:C].Interior.ColorIndex = xlNone nom = InputBox("Nom cherché?") If nom = "" Then Exit Sub Set c = [A:A].Find(nom, , , xlWhole) If Not c Is Nothing Then premier = c.Address Do c.Resize(, 3).Interior.ColorIndex = 4 Set c = [A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If End Sub
Sub cherche_plusieurs()
[A:C].Interior.ColorIndex = xlNone
nom = InputBox("Nom cherché?")
If nom = "" Then Exit Sub
Set c = [A:A].Find(nom, , , xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
c.Resize(, 3).Interior.ColorIndex = 4
Set c = [A:A].FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End Sub
Sub cherche_plusieurs() [A:C].Interior.ColorIndex = xlNone nom = InputBox("Nom cherché?") If nom = "" Then Exit Sub Set c = [A:A].Find(nom, , , xlWhole) If Not c Is Nothing Then premier = c.Address Do c.Resize(, 3).Interior.ColorIndex = 4 Set c = [A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If End Sub