{VBA Excel} Colorier des cases selon la valeur dans une autre

Version imprimable

Bonjour

Je dois réaliser une macro qui va colorier une case en fonction de la valeur dans la case d'a coté

Si dans la colonne E j'ai un "1" je colorie la cellule d'as coter dans la colonne A

j'ai rédiger une macro qui le fait mais une case par une case pas tous en meme temps

est ce que je peux avoir un coup de main

Merci d'avance

voici mon bout de code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Colorier() Sheets("Questionnaire1").Select If Cells(6, 5).Value = 1 Then Range("A6").Select With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid End With End If End Sub

27/06/2008, 09h39
patbou

bonjour,

Citation:

Si dans la colonne E j'ai un "1" je colorie la cellule d'as coter dans la colonne A

a moins que tes colonnes soit masquée , la colonne "a" n est pas à coté de la colonne "e".:?
peux tu repréciser ta demande

sinon essaye d utiliser

Code:

range("a1").offcet(0,1)
27/06/2008, 09h44
Thomas69

ce que je veux dire

si dans la case E11 j'ai un "1" je colorie la case A11
et ainsi de suite pour E12, E13 .......

moi avec ma macro je le fait une case par une case
et je ne sais pas comment faire pour verifier toutes les cases E.. et ainsi colorier les cases A..

je controle toutes les cases E1 jusqu'a E55

Bonjour,

est-tu obligé d'utiliser une macro ?

parce-que sinon tu peux utiliser la mise en forme conditionnelle. (Format > mise en forme conditionnelle >...);)

sinon, si tu ne vérifie que de la ligne 1 à 55

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Colorier()
 
Sheets("Questionnaire1").Select
    For I = 1 To 55
        If Cells(I, 5).Value = 1 Then
           Range(Cells(I, 1)).Select
               With Selection.Interior
                    .ColorIndex = 35
                    .Pattern = xlSolid
               End With
        End If
    Next
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Colorierbis()
 
Sheets("Questionnaire1").Select
    For i = 1 To 55
        If Cells(i, 5).Value = 1 Then
            Cells(i, 1).Select
               With Selection.Interior
                    .ColorIndex = 35
                    .Pattern = xlSolid
               End With
        End If
    Next
End Sub

Voila le code que j'ai taper
car Range(Cells(i, 1)).Select
ne marchait pas j'ai enlever et tout marche correctement

Merci beaucoup pour le coup de main