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:
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.
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
Merci d'avance de votre aide.
skeut.
Partager