Calendar

[bingo10]

Il s'agit en ckiquant sur 1 date depuis le calendar la placer en cellule
voici un exemple de ce que je souhaiterai dans ce classeur
Merci!
Regarde la pièce jointe Calendar.xls

 

[sabzzz]

Re : Calendar

bonjour Bingo10,

click-droit sur la Feuil1, sélectionne Visualiser le code,
et colle cette macro, sur la page blanche à droite

Public no As Integer
Private Sub Calendar1_Click()
If no = 0 Then
Range("C6") = Calendar1.Value: no = 1
Else
Range("C8") = Calendar1.Value: no = 0
End If
End Sub

 

[jeanpierre]

Re : Calendar

Bonjour bingo10, sabzzz,

Sinon, tu as ceci aussi, très bien, très beau et surtout très pratique :

mDF XLcalendar v1.1 : myDearFriend! Excel Pages

Bonne soirée.

Jean-Pierre

 

[bingo10]

Re : Calendar

Bonjour Sabzzz,
C'est génial, cela est interessant pour moi, merci vraiment!

 

[bingo10]

Re : Calendar

Bonjour jeanpierre,
En effet, c'est super pratique,
Merci!!