XL 2010 Colorier semaine paire ou impaire par alternance VBA

[riton00]

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

 

[patricktoulon]

bonjour
il ne te reste plus qu'a attacher cette sub a un bouton

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]

Bonjour patricktoulon, le forum

Super.... merci beaucoup pour ton investissement ça fonctionne selon mon espérance

Bonne journée

Slts

 

[sylvanu]

Bonjour le fil, patrick, Riton,
Une solution sans macro, en modifiant un peu les MFC avec une cellule donnant Pair/Impair.

 

[patricktoulon]

re
bonjour
bien vu sylvanu 😉

 

[riton00]

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