Macro pour changer la couleur du texte de cellules
Bonjour à tous!
J'ai un petit problème
J'ai besoin d'appliquer un code couleur
aux lignes de gros tableaux en fonction d'un champ
de la Colonne "H" à la colonne "R" en fonction du contenu de la colonne "R"
Code :
"Client" : Rouge
"ECA2" : Bleu
"Shared" : Violet
cela doit s'appliquer à toutes les lignes du tableau de l'onglet à partir de la ligne 2
et la taille des tableaux est variable
Toute aide sera la bienvenue est merci à tous!!
J'ai un petit problème
J'ai besoin d'appliquer un code couleur
aux lignes de gros tableaux en fonction d'un champ
de la Colonne "H" à la colonne "R" en fonction du contenu de la colonne "R"
Code :
"Client" : Rouge
"ECA2" : Bleu
"Shared" : Violet
cela doit s'appliquer à toutes les lignes du tableau de l'onglet à partir de la ligne 2
et la taille des tableaux est variable
Toute aide sera la bienvenue est merci à tous!!
3 réponses
-
-
Salut Chaton333,
Merci pour ta réponse!
Par contre je précise que je veux le faire en VBA
et pas en mise en forme conditionelle.
La mise en forme conditionelle n'est pas exportable vers d'autre tableurs
ou alors peut être as tu une solution pour figer la mise en forme conditionelle en vrai couleur afin d'être exportable??
Merci en tout cas!! -
-
-
Je précise que j'ai besoin de faire cette manip en VBA
et pas en mise en forme conditionelle
(les tableaux doivent être ouvert avec un autre tableur par la suite)
Merci! -
Bonjour Quentin
Essaie une macro de ce style :Sub colore() Dim Ligne As Long ' derniere ligen remplie en col R Ligne = Columns(18).Find("*", , , , xlByColumns, xlPrevious).Row 'boucle sur les lignes For n = 2 To Ligne col = 0 'code couleur en fonction de valeur en R If Range("R" & n) = "Client" Then col = 255 Else If Range("R" & n) = "ECA2" Then col = 15773696 Else If Range("R" & n) = "Shared" Then col = 10498160 ' si codecouleur selection de H à R et coloration If col > 0 Then Range("H" & n & ":R" & n).Select Selection.Interior.Color = col End If Next End Sub
Cdlmnt
Via
