bonjour à tous,
je cherche à mettre en évidence (avec une couleur) des cellules d'un onglet de ma feuille de calcule contenant un ou plusieurs des mots clé que j'ai listé dans un autre onglet de cette même feuille (de A1 à A10 par exemple). J'ai pour ceci pensé au code suivant mais ça ne s'applique que à la cellule $A$1 de mon onglet feuil1. je souhaiterais que cette action se mette en boucle sur toutes les cellules suivantes non vides de ma colonne A 'feuil1. (le nombre de mot clé peut évoluer).
Je suis novice en VBA et malgré de nombreux essais, je n'arrive pas à faire une boucle. Besoins d'aide SVP !
le tableau joint est un exemple de ce que je souhaiterais, mise en forme remplissage jeune des cellules de la Feuil'ANSMTEST' contenant le texte spécifique de ma plage de cellule A1 à A3 de la feuil1.
Sub recherche()
Sheets("ANSMTEST").Select
Range("A1:A119").Select
Application.CutCopyMode = False
Selection.FormatConditions.Add Type:=xlTextString, String:="=Feuil1!$A$1" _
, TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
merci par avance !!
je cherche à mettre en évidence (avec une couleur) des cellules d'un onglet de ma feuille de calcule contenant un ou plusieurs des mots clé que j'ai listé dans un autre onglet de cette même feuille (de A1 à A10 par exemple). J'ai pour ceci pensé au code suivant mais ça ne s'applique que à la cellule $A$1 de mon onglet feuil1. je souhaiterais que cette action se mette en boucle sur toutes les cellules suivantes non vides de ma colonne A 'feuil1. (le nombre de mot clé peut évoluer).
Je suis novice en VBA et malgré de nombreux essais, je n'arrive pas à faire une boucle. Besoins d'aide SVP !
le tableau joint est un exemple de ce que je souhaiterais, mise en forme remplissage jeune des cellules de la Feuil'ANSMTEST' contenant le texte spécifique de ma plage de cellule A1 à A3 de la feuil1.
Sub recherche()
Sheets("ANSMTEST").Select
Range("A1:A119").Select
Application.CutCopyMode = False
Selection.FormatConditions.Add Type:=xlTextString, String:="=Feuil1!$A$1" _
, TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
merci par avance !!
