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

Mirguy23

XLDnaute Nouveau
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

XLDnaute Accro
Supporter XLD
Bonjour

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

VB:
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

XLDnaute Accro
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

Sans titre.png
 

Pièces jointes

  • cherche_occurences.xlsm
    17.2 KB · Affichages: 7

Mirguy23

XLDnaute Nouveau
Bonjour

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

VB:
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

XLDnaute Nouveau
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!
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510