XL 2010 Colorier semaine paire ou impaire par alternance VBA

patricktoulon

XLDnaute Barbatruc

• 10 Janvier 2020

• #2

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

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 11 Janvier 2020

• #3

Bonjour patricktoulon, le forum

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

Bonne journée

Slts

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Janvier 2020

• #4

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

 

Pièces jointes

• Semainespaire ou impaire par MFC.xlsx

  22.1 KB · Affichages: 26

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Janvier 2020

• #5

re
bonjour
bien vu sylvanu

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 11 Janvier 2020

• #6

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

 

Vote positif 0 Vote négatif