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

[bboy-eazy]

le ocde de base:

Code :

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

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 :

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

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

aussi pour la condition:

Code :

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

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

le code devient:

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