Discussion :

[Thomas69]

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 :

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

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

[patbou]

bonjour,

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 :

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

range("a1").offcet(0,1)

[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

[zandru]

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 :

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

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

[Thomas69]

Code :

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

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