Discussion :

[phagege5265]

Bonjour,

j’ai ce fichier qui ouvre un mini calendrier dans une cellule en faisant un double clique.

Comment le modifier pour que ça fonctionne par un simple clic gauche et uniquement dans la cellule G5 ?

calendrier3.xls

Merci infiniment de votre aide.

[bboy-eazy]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G5")) Is Nothing Then
If ActiveCell.Address = "$G$5" Then
' ta procédure
End If
End If
End Sub

[phagege5265]

Merci mais du coup mon calendrier ne marche plus il indique l'année 1899

[bboy-eazy]

et comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim sDate As Date
If Not Intersect(Target, Range("G5")) Is Nothing Then
If ActiveCell.Address = "$G$5" Then
 vDate = IIf(IsDate(Target.Value), Target.Value, Date)
 UsFCalendrier.Show
End If
End If
End Sub

[phagege5265]

Parfait
Merci beaucoup !!!

[phagege5265]

Bonjour,
comment modifier le code si finalement je voudrai que mon calendrier s'affiche en selectionnant la case g41 également par exemple (en plus de g5)?