Recherche

Bon matin,

Comment faire pour que lorsque j'utilise la fonction recherche (Ctrl-F) le/les résultats soient en couleurs? Car parfois c'est difficile de retrouver la case car mon fichier et volumineux OU trop petit.

Merci beaucoup.

Bonjour,

voici un exemple,

Sub Couleur()
Dim keywords As String, c As Range, n As Integer
Set plg = Range("H1:S28")
For Each réf In Sheets("Comp").Range("AI2:AI" & Sheets("Comp").Cells(Sheets("Comp").Rows.Count, "AI").End(xlUp).Row)
  keywords = réf
  With plg
    Set c = .Find(keywords, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.ColorIndex = 3
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
 End With
Next
MsgBox "FIN"
End Sub

Donc, seulement une macro le fera si j'ai bien compris?

Merci beaucoup.

Donc, seulement une macro le fera si j'ai bien compris?

non, tu peux le faire manuellement,

ctrl+F ouvre la fenêtre de recherche

inscrire le mot recherché

appuyer sur "suivant"

laisser la fenêtre "Recherche" ouverte et

colorer la cellule

appuyer de nouveau sur "suivant"

etc...

OK merci beaucoup.