Discussion :

[skeut]

Bonjour,

Je cherche à mettre les colonnes d'un calendrier en couleur si le jour est férié. Pour savoir si le jour est férié, je regarde dans un autre onglet de mon mon fichier avec chaque fois la mention OUI/NON (oui = férié).

J'ai la macro suivante:

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
Sub ColonnesEnJaune()
Dim I As Integer
 
    For I = 1 To 31
        If ActiveWorkbook.Sheets("Données").Range("J" + CStr(I) + "_JF").Value = "OUI" Then
            ActiveWorkbook.Sheets("Statistiques").Range("A" + CStr(I + 5) + ":AB" + CStr(I + 5)).Select
            With Selection.Interior
                .ColorIndex = 36
                .Pattern = xlSolid
                End With
        Else
            ActiveWorkbook.Sheets("Statistiques").Range("A" + CStr(I + 5) + ":AB" + CStr(I + 5)).Select
            Selection.Interior.ColorIndex = xlNone
            End If
        Next I
End Sub

Lorsque j'exécute la macro, au lieu de me mettre les colonnes en couleurs, il me met les lignes; A la place de "Range", si je mets "Columns", la macro ne s'exécute pas.

Merci d'avance de votre aide.
skeut.

[helios77]

Normal, ton bout de code fait prend la zone A6:AB6 ==> une ligne allant de la colonne A à la colonne AB

Code :

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

Range("A" + CStr(I + 5) + ":AB" + CStr(I + 5)).Select

Par exemple, si c'est la colonne I que tu veux mettre en une autre couleur, tu devrais remplacer les Range apr ceci

Code :

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

Columns(Cstr(I)).Select

[skeut]

ok, merci bien