Couleur en mode recherche

[stevevda]

Bonjour,

Voici mon problème, j'ai une makro en mode recherche pour excel j'aimerais pouvoir ajouter un fond de couleur sur la ou les cellules trouvées mais ne sais ou ajouter le code et lequel ?
Merci de votre aide...
Voici la makro.

Sub Recherche()
texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
If texte_a_rechercher = "" Then Exit Sub
For Each feuille In Worksheets
feuille.Select
Range("C2").Select

With feuille.Cells
Set C = .Find(texte_a_rechercher, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Select
rep = MsgBox("Recherche du suivant", vbOKCancel, "Recherche")
If rep = vbCancel Then Exit Sub
Set C = .FindNext(C)
If C Is Nothing Then
Adresse_encours = 0
Else
Adresse_encours = C.Address
End If
Loop While Not (C Is Nothing) And (Adresse_encours <> firstAddress)
End If
End With
Next feuille
End Sub

 

[Guest]

Re : Couleur en mode recherche

Hello,

Hey!les gars, pourriez-vous utiliser la balise

 de l'éditeur avancé de message pour vos codes. Ce serait plus facile à lire!
 
Merci!
 
A+

 

[soenda]

Re : Couleur en mode recherche

Bonjour le fil, stevevda, Jean-Marcel, Hasco

Avec les balises:

Sub Recherche()
 
    texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
    If texte_a_rechercher = "" Then Exit Sub
 
    For Each feuille In Worksheets
 
        With feuille.Cells
 
            Set c = .Find(texte_a_rechercher, LookIn:=xlValues)
            If Not c Is Nothing Then
 
                firstAddress = c.Address
 
                Do
                    [COLOR=blue][B]c.Interior.ColorIndex = 6[/B][/COLOR]
                    If MsgBox("Recherche du suivant", vbOKCancel, "Recherche") = vbCancel Then Exit Sub
 
                    Set c = .FindNext(c)
                    Adresse_encours = c.Address
 
                Loop While [B][COLOR=red]Adresse_encours <> firstAddress[/COLOR][/B]
 
            End If
 
        End With
    Next
 
End Sub

A plus

 

[stevevda]

Re : Couleur en mode recherche

Ok super sa fonctionne parfaitement.😉
le seul hic est que la cellule trouvée garde la couleur alors qu'en principe après avoir trouvé la cellule elle devrait reprendre sa couleur d'origine pour une autre recherche...

 

[stevevda]

Re : Couleur en mode recherche

Ok ok
Bon suite à la réponse, la makro ne fonctionne plus 😀 sur que la solution existe sur base de la première et suite au problème déjà connut ...
Bon pas de soucis ce n'est pas une urgence je pense que le mieux est d'envoyer le fichier pour comprendre le problème de ma première question.
Comment envoyer le fichier ?.

Je vous remercie aussi du temps que vous passez pour m'aider et sur que la solution se trouve quelque part dans vos connaissances.
Je viens de m'inscrire sur ce forum et sur que j'ai fait le bon choix...

 

[soenda]

Re : Couleur en mode recherche

Re,

Une petite amélioration (en bleu).
Sûr, que si le texte cherché est mal orthographié ...

Sub Recherche()
 
    texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
    If texte_a_rechercher = "" Then Exit Sub
 
    For Each feuille In Worksheets
 
        With feuille.Cells
 
            Set c = .Find(texte_a_rechercher, LookIn:=xlValues)
            If Not c Is Nothing Then
 
                firstAddress = c.Address
 
                Do
                    c.Interior.ColorIndex = 6
                    If MsgBox("Recherche du suivant", vbOKCancel, "Recherche") = vbCancel Then Exit Sub
 
                    c.Interior.ColorIndex = xlnone
                    Set c = .FindNext(c)
 
                Loop While [B][COLOR=blue]c.Address[/COLOR][/B] <> firstAddress
 
            End If
 
        End With
    Next
 
End Sub

A plus

 

[stevevda]

Re : Couleur en mode recherche

La sa fonctionne Jean-Marcel super...
Par contre j'ai testé celle Soenda rien à faire elle ne marche pas je vais comparer les deux codes pour voir ou est le prob.
De toute façon je vous remercie à tous pour votre aide je suis déjà bien dépanné...

A bientôt