XL 2010 Macro recherche et mise en évidence du mot clé

[Mirguy23]

Bonjour,

Je cherche une macro qui sera à mesure de faire la cherche d'un mot clé sur une feuille bien précise et de le souligner automatique en couleur, taille X et le mettre en gras.

Quelqu'un peut me proposer un code afin que je me lance svp?

Merci de votre gentillesse !

 

[Temjeh]

Bonjour

Recherche 1 valeur par feuille et passe à l'autre
En attendant mieux:

On Error GoTo fin
v = InputBox("Entrez le N° de l'Article:")
For x = 1 To Sheets.Count
    Sheets(x).Select
    Sheets(x).Cells.Find(What:=v, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True).Activate
    Sheets(x).Cells.FindNext(After:=ActiveCell).Font.Bold = True
    Sheets(x).Cells.FindNext(After:=ActiveCell).Font.Color = -16776961
    Sheets(x).Cells.FindNext(After:=ActiveCell).Font.Size = 16
Next x

Exit Sub
fin:
MsgBox "Inexistant"

A+

 

[zebanx]

Bonjour Temjeh, Mirguy23, le forum

Une aide toujours bienvenue de notre ami Jacques Boisgontier disponible sur son site
(Fil "FIND" et fichier joint extrait du fichier findici récupéré sur le fichier find_synthèse.xls)

Cela vous donnera une idée pour votre code.

xl-ment

 

[Mirguy23]

Bonjour

Recherche 1 valeur par feuille et passe à l'autre
En attendant mieux:

On Error GoTo fin
v = InputBox("Entrez le N° de l'Article:")
For x = 1 To Sheets.Count
    Sheets(x).Select
    Sheets(x).Cells.Find(What:=v, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True).Activate
    Sheets(x).Cells.FindNext(After:=ActiveCell).Font.Bold = True
    Sheets(x).Cells.FindNext(After:=ActiveCell).Font.Color = -16776961
    Sheets(x).Cells.FindNext(After:=ActiveCell).Font.Size = 16
Next x

Exit Sub
fin:
MsgBox "Inexistant"

A+

Merci Temjeh, 🙂 de m'avoir aider ton exemple est super !

 

[Mirguy23]

Bonjour Temjeh, Mirguy23, le forum

Une aide toujours bienvenue de notre ami Jacques Boisgontier disponible sur son site
(Fil "FIND" et fichier joint extrait du fichier findici récupéré sur le fichier find_synthèse.xls)

Cela vous donnera une idée pour votre code.

xl-ment

Regarde la pièce jointe 1036694

Merci zebanx 🙂,
J'ai visualisé le lite de Jacques Boisgontier c'est vraiment intéressant.
Encore merci zebanx!