Colorer les cellules trouvés

Bonjour à tous,

Je voudrais savoir si quelqu'un à une macro, ou une idée de macro, pour mettre en surbrillance des cellules obtenues via ctrl+f.

J'ai ce code qui ne fonctionne uniquement pour le premier résultat touvé.

Sub Ctrl+f surbrillance ()
Application.Dialogs(xlDialogFormulaFind).Show
Cells.FindNext(After:=ActiveCell).Interior.ColorIndex = 6
End Sub

Merci d'avance

Bonjour,

Question préalable : comment ta macro fonctionne-t-elle, avec un nom non conforme ?

Je ne vois pas VBA accepter que tu colles cette ligne Sub dans un module sans réagir. Qu'en est-il ?

En retapant la macro j'ai oublié de mettre un "_" à la place de l'espace.

Mais avec un nom conforme elle fonctionne bien car le premier résultat trouvé est bien coloré

Ça ne suffit pas ! le "+" n'est pas un caractère accepté dans les noms.

Si tu lis la macro, tu vois que la recherche n'intervient qu'une fois. Demandé 1 fois = 1 réponse !

Ah... Bin j'avais peut être pas mis ce nom de macro alors, je me souviens plus j'ai sauvegardé que le code. ^^

Essaie avec ça :

Sub RechercheSurbrillance()
    Dim c As Range, csuiv As Range
    Application.Dialogs(xlDialogFormulaFind).Show
    Set c = Cells.FindNext(ActiveCell)
    If Not c Is Nothing Then
        Set csuiv = c
        Do
            csuiv.Interior.ColorIndex = 6
            Set csuiv = Cells.FindNext(csuiv)
        Loop Until csuiv.Address = c.Address
    End If
End Sub

Ne pas oublier que la macro affiche la boîte de dialogue : il convient de faire les réglages de la recherche souhaitée, puis de fermer la boîte (ne pas utiliser Suivant, qui ne la ferme pas). La suite de la macro s'exécute après fermeture.

Cordialement

Parfait

Merci beaucoup