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.