calendrier

Bonjour,

Dans la fenêtre VB de ton classeur tu insères un Userform
dans lequel tu poses un Contrôle Calendar.

S'il n'est pas disponible dans la bpîte à outils, tu
cliques droit sur celle-ci et "Contrôles
supplémentaires" --> Calendrier.
Tu l'insères dans ton Userform et tu double cliques sur un
jour. Il te proposes l'évènement sur clic. Dans la liste
des évènements va chercher "DblClick" et tu mets le code
suivant :

Private Sub Calendar1_DblClick()
ActiveCell = CDate(Calendar1)
UserForm1.Hide
Unload UserForm1
End Sub

Camille

-----Message d'origine-----
Bonjour,

Je voudrais, à l'aide d'un bouton de commande, appeler un
calendrier (en

français), qui en double-cliquant sur une date,
insérerait dans la cellule

active.

Je débute en VBA, je m'en sers pour le boulot, et ce
forum est instructif et

est une source d'apprentissage géniale.

Bravo et merci à tous !



.

Bonjour David,

associer à un bouton de commande de la BO "Contrôles"

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub


Alt+F11 pour accéder ensuite à VBE

Insertion/UserForm
Sélectionner l'outil "Calendar" dans la BO "Contrôles" de VBE
(s'il n'est pas disponible, clic-droit sur la BO "Contrôles"/Contrôles
supplémentaires, puis valider Contrôle calendrier xx.x)
L'outil étant maintenant disponible, le sélectionner puis dessiner un
rectangle dans la zone disponible de "UserForm1"
Double-cliquer sur une valeur "date" quelconque du calendrier puis indiquer
dans la fenêtre principale (en dessous de Calendar1)

Private Sub Calendar1_DblClick()
ActiveCell = Calendar1.Value
End Sub

Private Sub UserForm_Initialize()
Calendar1.Today
End Sub


"Retourner" dans Excel par Alt+F11, désactiver si cela n'a pas été déjà fait
le mode création de la BO "Contrôles", puis fermer cette BO.
Reste plus qu'à tester, et à peaufiner la boîte de dialogue...


ChrisV


"david" <chrisdavfr@club-internet.fr> a écrit dans le message de news:
c085e0$l4f$1@news-reader5.wanadoo.fr...

Bonjour,

Je voudrais, à l'aide d'un bouton de commande, appeler un calendrier (en
français), qui en double-cliquant sur une date, insérerait dans la cellule
active.

Je débute en VBA, je m'en sers pour le boulot, et ce forum est instructif
et

est une source d'apprentissage géniale.

Bravo et merci à tous !