XL 2010 Colorier semaine paire ou impaire par alternance VBA

riton00

XLDnaute Impliqué
Bonsoir à tous

Je cherche si possible à alterner les couleurs sur un calendrier de façon à pouvoir visualiser soit les semaines paire ou les semaines impaire, par le biais d'un bouton

Merci

Slts
 

Pièces jointes

  • Semainespaire ou impaire.xlsx
    26.8 KB · Affichages: 21

patricktoulon

XLDnaute Barbatruc
bonjour
il ne te reste plus qu'a attacher cette sub a un bouton
VB:
Sub test()
    Dim x$, i&
    x = InputBox("tapez p pour pair" & vbCrLf & " i pour impair", "semaine")

    Range("A:C").Interior.Color = xlNone
    For i = 8 To 373
        If x = "p" And Format(CDate(Cells(i, 3).Value), "ww", vbUseSystemDayOfWeek) Mod 2 = 0 Then
            Cells(i, 1).Resize(, 3).Interior.Color = vbRed

        ElseIf x = "i" And Format(CDate(Cells(i, 3).Value), "ww", vbUseSystemDayOfWeek) Mod 2 <> 0 Then
            Cells(i, 1).Resize(, 3).Interior.Color = vbCyan

        End If
    Next
End Sub
 

riton00

XLDnaute Impliqué
Bonjour sylvanu, patricktoulon, le forum

Excellent, je n'avais même pas imaginé que cela était possible avec une mise en forme traditionnelle + liste déroulante, et du coup c'est plus facile à gérer pour moi que par code VBA "moins à l'aise" merci à toi pour cet exemple, que je vais d’ailleurs adopter.

Merci

Slts
 

Discussions similaires

Réponses
1
Affichages
311