Macro pour changer la couleur du texte de cellules
Quentin.1375
Messages postés
3
Statut
Membre
-
via55 Messages postés 14730 Statut Membre -
via55 Messages postés 14730 Statut Membre -
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!!
A voir également:
- Excel macro couleur cellule condition
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Excel somme si couleur cellule - Guide
- Proteger cellule excel - Guide
3 réponses
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!
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 :
Cdlmnt
Via
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
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!!