Discussion :

[jfontaine]

Ce post vous propose une méthode pour aider l'utilisateur à saisir une date dans une cellule en lui proposant un calendrier.

Pour l'exemple on prendra comme hypothèse que la saisie se fait dans la cellule E11.

1 - Ajouter sur la feuille contrôle Calendrier que vous trouverez dans les contrôles complémentaires de la boite à outils VBA, et le positionner en bas a droite du coin de la cellule E11

2 - Dans les propriétes du calendrier, mettre visible à false

3 - Dans l'évenement Selection_Change de la feuille on va gérer l'affichage du calendrier si la cellule est sélectionnée

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address = "$E$11" Then
    Me.Calendar1.Visible = True
Else
    Me.Calendar1.Visible = False
End If
 
End Sub

4 - L'affichage de la date dans la cellule sera provoqué par le click sur le calendrier

Code :

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

1
2
3
4
 
Private Sub Calendar1_Click()
    Range("E11").Value = Me.Calendar1.Value
End Sub

5 - Pour éviter les saisies forcées, on utilsera la validation (menu données) que l'on mettra a date supérieur à 01/01/1900 (a vous de voir)


Et avec le fichier c'est plus parlant : Calendrier.xls

[Abed_H]

Bonsoir jfontaine
Je me suis permis de porter un petit changement à ton code bien sûr si vous permettait
A part ça c’est bon, il facilite beaucoup plus la saisie des dates dans les cellules tout en évitant les erreurs de saisie.
dans l'évenement clic du control calendar

Code :

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

1
2
3
4
Private Sub Calendar1_Click()
    Range("E11").Value = Me.Calendar1.Value
    Me.Calendar1.Visible = False
End Sub

dans l'évenement Worksheet_SelectionChange de la feuille

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$11" Then
    Me.Calendar1.Visible = True
End If
End Sub

Bonne soirée
Abed_H

[pibi47]

Bonjour,
j'aimerai faire la meme chose mais avec excel 2007
est ce possible
merci d'avance

[ESVBA]

Je prèfere la méthode du double-clic sur la cellule quand on a des colonnes de dates et que l'on doit les traverser au clavier.

Voir l'exemple justement du post de ce midi :http://www.developpez.net/forums/d88...drier-cellule/

Réponse à pibi_47, il n'y a aucun problème avec 2007 à partir du moment ou le contrôle calendrier est référencé sur la machine.

ESVBA

[JeffT]

Si vous avez une feuille qui contient une colonne DATE et que vous aimeriez saisir des dates différentes dans chacune des cellules de cette colonne, à l'aide du calendrier, voici une petite modification du code VBA.

À la ligne If Target.Column = 6 Then, inscrire le bon numéro de colonne.

Prévoir également de figer les volets sous le calendrier, puisqu'il ne se déplace pas à mesure que l'on se déplace sur la feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Calendar1_Click()
    ActiveCell = Me.Calendar1.Value
End Sub
________________________________
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Column = 6 Then
    Me.Calendar1.Visible = True
Else
    Me.Calendar1.Visible = False
End If
 
End Sub