Affecter une couleur si week-end

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Patchi06

XLDnaute Nouveau
Bonjour

J'essaie de créer une macro qui me changerai automatiquement la couleur des lignes du WE pour les mettre en évidence (le calendrier allant du 1er janvier au 31 mars de n+1)

J'ai écris plusieurs macros mais je galère depuis 3 heures pour comprendre comment la faire fonctionner
(ci-dessous ma dernière version)
Ma feuille de base n'est constituée que d'une liste de dates (a/c de A1) du 1er janvier au 31 mars.

Sub Coul18()
Dim LValue As String
LValue = WeekdayName(Weekday(D), , vbSunday)
Range("A1").Select
For Each cell In Range("A1:A400")
MsgBox LValue
If LValue = "Samedi" or Lvalue = "Dimanche" Then
Range(ActiveCell, ActiveCell.Offset(0, 11)).Interior.ColorIndex = 33
End If
ActiveCell.Offset(1, 0).Select
Next
End Sub

Si vous avez une idée... Merci
 
Re : Affecter une couleur si week-end

Bonsoir à tous

Une idée...? Oui, une MFC 😉
VB:
Sub Macro1()
' Macro enregistrée le 13/11/2012 par Staple1600
With Range("A1:K456") '-> 456 pour aller jusqu'au 31/03/N+1
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=JOURSEM($A1;2)>5"
    .FormatConditions(1).Interior.ColorIndex = 33
End With
End Sub
 
Dernière édition:
Re : Affecter une couleur si week-end

Re

Et si on reprends ta boucle (qui a le désavantage de figer les choses par rapport à une MFC)
Code:
Sub Couleur18BIS()
Dim p As Range, c As Range
Set p = [A1:A456]
For Each c In p
c.Resize(, 11).Interior.ColorIndex = 33 * -(Weekday(c, vbMonday) > 5)
Next c
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL pour MAC boucle couleur
Réponses
25
Affichages
1 K
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
872
Réponses
57
Affichages
5 K
Retour