Macro coloration VBA

Bonjour
Je souhaite faire une macro qui colore les cellules de ma colonne B en fonction des valeurs des cellules correspondantes dans la colonne C..
Je m'explique : Si C6 = 2 => B6 (Orange) , Si C6 = 1 => B6 (Vert) , Si C6 = 0 => B6 (Blanc)
Sachant aussi que ma plage de travail est [B6,EJ5000]
Je suis bloqué là-dessus si qlqujn pourrait m'aider je serai reconnaissant
Merci beaucoup

Bonjour,

quel début de code as-tu entrepris ?

ce n'est pas très compliqué :

1) Une structure If/Elseif/Else pour tester tes trois conditions
2) Utiliser la propriété .Interior.Color (ou ColorIndex) de l'objet Range avec les bons numéros de couleurs (utiliser l'enregistreur de macro pour les capturer si besoin)

Je n'ai pas compris l'explication de ta référence [B6,EJ5000], en gros on couple B avec C, puis D avec E etc ??

Par ailleurs, une mise en forme conditionnelle peut aussi répondre à ton besoin

Bonjour
Merci pour ta réponse, vous avez bien compris ma référence sauf que ma plage comme de la colonne B jusqu'à colonne EJ , et de la ligne 6 jusqu'à ligne 5000
J'ai commencé par cette idée , mais il faut que je l'adapte à ma problématique , peux-tu m'aider là dessus ?
Merci beaucoup

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Format() Dim PLAGE As Range, cel As Range, derlg As Long With ActiveSheet derlg = .Range("B" & .Rows.Count).End(xlUp).Row Set PLAGE = .Range("B6:B" & derlg) For Each cel In PLAGE If cel = "2" Then cel(1, 2).Interior.ColorIndex = 49407 If cel = "1" Then cel(1, 2).Interior.ColorIndex = 5287936   If cel = "0" Then cel(1, 2).Interior.ColorIndex =   End If Next cel End With End Sub

---

Il est beaucoup plus simple de faire ça avec une mise en forme conditionnelle : trois règles simples à étendre à une plage, ça te prendrait au maximum 5 min, beaucoup moins de temps que le développement d'une macro.

Sinon tu utilise 2 boucles imbriquées : La première bouclant sur chaque colonne de B à EJ en sautant 2 colonnes par 2 colonnes et la deuxième dans la première qui boucle de la ligne 6 a 5000.

Quelque chose du genre de :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

dim i as integer dim k as integer   'initialise le numéro de colonne i = 2   'initialise le numéro de ligne k = 6   'boucle sur chaque duo de colonne en commencant par la colonne 2 "B" Do until i = "numéro de colonne correspondante à EJ"   'boucle sur chaque ligne de 6 à 5000 Do until k = 5000   'Conditions pour colorier l'intérieur des cellules if cells(k,i).value = 1 then cells(k,i+1).interior.colorindex = blabla if cells(k,i).value = 2 then cells(k,i+1).interior.colorindex = blabla   'passe à la ligne suivante k = k +1   loop   'passe au duo de colonne suivante i = i +2 loop

---

Merci pour votre réponse
le code fonctionne bien mais il avance pas sur les autres colonnes , il ne s'applique que pour la première colonne

Montre le code que tu as mis exactement

Merci j'ai trouvé l'astuce il fallait initialiser le k en dessous de la boucle de i comme il revient en haut de la colonne. voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Couleur() Dim i As Integer Dim k As Integer   'initialise le numéro de colonne i = 3   'boucle sur chaque duo de colonne en commencant par la colonne 2 "B" Do Until i = 5001 k = 6 'boucle sur chaque ligne de 6 à 5000 Do Until k = 5000   'Conditions pour colorier l'intérieur des cellules If Cells(k, i).Value = 1 Then Cells(k, i - 1).Interior.ColorIndex = 10 <div class="bbcode_container"> <div class="bbcode_description">Code:</div> <hr /><code class="bbcode_code"><span style="color: #0000ff;">If</span> Cells<span class="br0">(</span>k, i<span class="br0">)</span>.Value = <span style="color: #cc66cc;">2</span> <span style="color: #0000ff;">Then</span> Cells<span class="br0">(</span>k, i - <span style="color: #cc66cc;">1</span><span class="br0">)</span>.Interior.ColorIndex = <span style="color: #cc66cc;">45</span></code><hr /> </div>'passe à la ligne suivante k = k + 1   Loop   'passe au duo de colonne suivante i = i + 2 Loop End Sub

---

C'est ça, petite erreur de ma part :)

Merci beaucoup quand méme :resolu: