Modifier le code VBA d'un calendrier dans cellule

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 ?

Pièce jointe 186859

Merci infiniment de votre aide.

bonjour,

Code:

---

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

---

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

et comme ca:

Code:

---

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

---

Parfait
Merci beaucoup !!!

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)?

le ocde de base:

Code:

---

1 2	If Not Intersect(Target, Range("G5")) Is Nothing Then If ActiveCell.Address = "$G$5" Then

---

avec ceci vous voyez comment ajouter une autre cellule:
ajouter un Or a la condition if:

Code:

---

If Not Intersect(Target, Range("G5")) Is Nothing OR Not Intersect(Target, Range("G41")) Is Nothing

---

aussi pour la condition:

Code:

---

If ActiveCell.Address = "$G$5" or ActiveCell.Address = "$G$41" then

---

le code devient:

Code:

---

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 Or not Intersect(Target, Range("G41")) Is Nothing Then If ActiveCell.Address = "$G$5" or ActiveCell.Address = "$G$41" Then vDate = IIf(IsDate(Target.Value), Target.Value, Date) UsFCalendrier.Show End If End If End Sub

---