Discussion :

[Hanada]

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

[joe.levrai]

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

[Hanada]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

[kaze78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Hanada]

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