Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End Sub
fond commentaire
complet https://les-astuces-blogger.blogspot.com/2024/07/fond-couleur-des-commentaires-avec.html
bienvenue chez blondi
RépondreSupprimer