[VBA-E Colonnes et lignes en VBA Excel
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:
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.
