Magic_Doctor
XLDnaute Barbatruc
Bonjour le forum,
J'ai récemment trouvé dans ce forum incontournable une macro événementielle intéressante qui permet de modifier la couleur d'un texte écrit dans une cellule, si ce texte répond à certaines conditions indiquées dans la macro.
Voici la macro (très courte !) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Variant
For Each cell In Range("Colonne1")
'Jamais contentes
If cell = "Julie" Or cell = "Hildegarde"Then cell.Font.ColorIndex = 3
'Toujours contentes
If cell = "Christine" Or cell = "Cunégonde" Then cell.Font.ColorIndex = 5
Next cell
End Sub
En conséquence, quand j'écris (dans la "Colonne1") "Julie" ou "Hildegarde", le texte devient rouge, mais quand j'écris "Christine" ou "Cunégonde", il devient bleu.
J'ai mis 2 colonnes dans ma feuille. L'une s'intitule "Jamais Contentes", l'autre "Toujours Contentes".
Plutôt que de sempiternellement revenir à ma macro pour rajouter de nouveaux noms satisfaisants à ces 2 critères, ce que je voudrais c'est "tout simplement" que la macro vérifie dans quelle colonne se trouve le nom écrit, et si ce nom est dans une des 2 colonnes, alors elle appliquera la mise en forme qui correspond au texte.
Bref :
If cell est dans la colonne1 --> texte rouge
If cell est dans la colonne2 --> texte bleu
Merci pour toute aide Xldienne.
J'ai récemment trouvé dans ce forum incontournable une macro événementielle intéressante qui permet de modifier la couleur d'un texte écrit dans une cellule, si ce texte répond à certaines conditions indiquées dans la macro.
Voici la macro (très courte !) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Variant
For Each cell In Range("Colonne1")
'Jamais contentes
If cell = "Julie" Or cell = "Hildegarde"Then cell.Font.ColorIndex = 3
'Toujours contentes
If cell = "Christine" Or cell = "Cunégonde" Then cell.Font.ColorIndex = 5
Next cell
End Sub
En conséquence, quand j'écris (dans la "Colonne1") "Julie" ou "Hildegarde", le texte devient rouge, mais quand j'écris "Christine" ou "Cunégonde", il devient bleu.
J'ai mis 2 colonnes dans ma feuille. L'une s'intitule "Jamais Contentes", l'autre "Toujours Contentes".
Plutôt que de sempiternellement revenir à ma macro pour rajouter de nouveaux noms satisfaisants à ces 2 critères, ce que je voudrais c'est "tout simplement" que la macro vérifie dans quelle colonne se trouve le nom écrit, et si ce nom est dans une des 2 colonnes, alors elle appliquera la mise en forme qui correspond au texte.
Bref :
If cell est dans la colonne1 --> texte rouge
If cell est dans la colonne2 --> texte bleu
Merci pour toute aide Xldienne.