mettre en surlignage la recherche [Résolu]

[momo032114]

Bonjour
J'aimerais savoir si il y a une option dans la fonction "find" de EXCEL 2007 qui permet de mettre en couleur la(les) recherche(s) ?
Merci
Matt

[Daniel.C]

Bonjour,

Non.

Mais tu peux le faire par macro. Tu dis si ça t'intéresse.

[momo032114]

Alors oui cela m’intéresse par macro je vais donc essayer de me mettre au VB !
Si tu as des idees je suis preneur

merci
Matt

[Daniel.C]

Bonjour,

La macro te demande d'abord la chaîne à rechercher et ensuite la plage sur laquelle doit se faire la recherche (les cellules trouvées sont coloriées en jaune) :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub FindCouleuur()
rech = InputBox("Entrez l'élément à rechercher")
Set plage = Application.InputBox("Entrez la plage de recherche", Type:=8)
Set c = plage.Find(rech)
If Not c Is Nothing Then
    resadr = c.Address
    Do
        c.Interior.ColorIndex = 6
        Set c = plage.FindNext(c)
    Loop While c.Address <> resadr
End If

End Sub

[momo032114]

Merci beaucoup c'est Nickel !

Puis je t'embeter une derniere fois pour te demander comment faire pour reinitialiser la recherche ? pour enlever la couleur apres la recherche sachant que sur la feuille excel il y a des autres couleurs deja présentes ?

Merci d'avance