Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Couleur en mode recherche

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion stevevda
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

stevevda

XLDnaute Junior
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
 
Trier par date Trier par votes
Re : Couleur en mode recherche

Hello,

Hey!les gars, pourriez-vous utiliser la balise
Code: 
 de l'éditeur avancé de message pour vos codes. Ce serait plus facile à lire!
 
Merci!
 
A+
 
Vote positif 0 Vote négatif
Re : Couleur en mode recherche

Bonjour le fil, stevevda, Jean-Marcel, Hasco

Avec les balises:
Code: 
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
 
Vote positif 0 Vote négatif
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...
 
Dernière édition:
Vote positif 0 Vote négatif
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...
 
Vote positif 0 Vote négatif
Re : Couleur en mode recherche

Re,

Une petite amélioration (en bleu).
Sûr, que si le texte cherché est mal orthographié ...
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
398
patricktoulon
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
402
sylvanu
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
687
job75
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
660
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
403
un internaute
U
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
387
nabilexcel2007
N
  • Question Question
XL 2021 VBA - Process Start Time
Réponses
7
Affichages
399
Dudu2
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
734
Nicolas JACQUIN
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
463
anthoYS
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
186
Marie L
M
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
504
spike29
S
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
N
  • Question Question
Microsoft 365 connexion ado vers access office 2024 64 bits
Réponses
2
Affichages
466
nabilexcel2007
N
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
371
KTM
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
274
Francky79
F
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
370
lestoiles1
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…