M
Mathieu
Guest
Bonjour à tous,
Petite question d'esthétique qui pourrait s'avérer bien pratique pour beaucoup !
Je souhaiterais que si la couleur de fond d'une cellule dans laquelle se trouve une date est "rouge", alors ce même jour apparaisse avec un fond "rouge" dans le calendrier (objet calendrier). Voilà mon raisonnement mais je sais qu'il est faux (d'ailleurs il ne fonctionne pas !) :
Private Sub cmdTest_Click()
If Range("C1").BackColor = "rouge" Then 'Les couleurs sont en hexa ?
Day(Calendar1) .Value = Range("C1").Value
Day(Calendar1).BackColor.Value = "rouge"
End If
End Sub
Ne connaissant pas encore bien le VBA, je pose d'abord mes raisonnements et ensuite j'essaie de trouver la bonne syntaxe, mais là je coince !!
D'avance merci à tous.
Bonne soirée.
Mathieu
Petite question d'esthétique qui pourrait s'avérer bien pratique pour beaucoup !
Je souhaiterais que si la couleur de fond d'une cellule dans laquelle se trouve une date est "rouge", alors ce même jour apparaisse avec un fond "rouge" dans le calendrier (objet calendrier). Voilà mon raisonnement mais je sais qu'il est faux (d'ailleurs il ne fonctionne pas !) :
Private Sub cmdTest_Click()
If Range("C1").BackColor = "rouge" Then 'Les couleurs sont en hexa ?
Day(Calendar1) .Value = Range("C1").Value
Day(Calendar1).BackColor.Value = "rouge"
End If
End Sub
Ne connaissant pas encore bien le VBA, je pose d'abord mes raisonnements et ensuite j'essaie de trouver la bonne syntaxe, mais là je coince !!
D'avance merci à tous.
Bonne soirée.
Mathieu