XL 2010 macro de recherche

[michel.dupont]

bonjour
qui peut m'aider ? ce code me retourne une erreur de compilation variable non définie...quelle correction apporter
merci et bonne journée
Michel

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

 

[Staple1600]

Bonjour

Essaie d'ajouter en début de code.
Dim c as Range

 

[michel.dupont]

bonjour et merci pour votre attention
l'erreur porte sur nom = InputBox("Nom cherché?") hélas votre proposition ne supprime pas l'erreur
michel

 

[Staple1600]

Re

Et comme ceci?

Sub cherche_plusieurs()
Dim c As Range, nom
[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

 

[michel.dupont]

bonjour
déjà mieux mais l'erreur porte désormais sur premier (variable non définie)
bonne journée

 

[Staple1600]

Re

Et comme cela?

Sub cherche_plusieurs()
Dim c As Range, premier$, nom
[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

 

[michel.dupont]

PLUS DE BUG
un tout grand merci
bonne journée
Michel