Calendrier affiché en cliquant dans un textbox

[niki42]

Salut à tous

J'espère que vous avez passé de bonnes fêtes de Paques ( Notre seul long week-end de l'année!!!).
j'ai une question à vous poser à vous les spécialistes;
Dans un userform j'ai un textbox et je voudrais qu'en cliquant dans la cellule un calendrier apparaisse afin de pouvoir choissir une date.
est-ce possible et si oui comment?

Merci d'avance pour vos réponses

:kiss: :kiss:

[Pierre]

Bonjour Niki,

Comme ceci?


Pierre [file name=PourNiki.zip size=12184]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourNiki.zip[/file]

[niki42]

salut Pierre

Décidément je serais toujours épatée par la vitesse des réponses que l'on a suite à nos questions!!

Mais revenons à nos moutons.

ton fichier est très bien mais je vais pousser l'exigence un peu plus loin: est-il possible que la date choisie s'affiche dans mon textbox?
Si oui par quel petit bout de code?

Niki42

[Pierre]

Cezrtainement NIKI,

A toi d'adapter le format selon ton souhait.

(Et désolé pour le délai aussi long... )


Pierre [file name=PourNiki_20050329194410.zip size=12873]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourNiki_20050329194410.zip[/file]

[@Christophe@]

Bonsoir,

Voici une autre possibilité avec explication.

bonne soirée

Message édité par: @Christophe@, à: 29/03/2005 20:17

[@Christophe@]

Ahh, fichier trop gros, voici sans l'image

Le click droit pour afficher les controles supplémentaire se fait sur la fenêtre ou tu trouves les controles (textbox, commandbutton, label,...)

bonne chance

[file name=DatePicker.zip size=13849]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DatePicker.zip[/file]

Message édité par: @Christophe@, à: 29/03/2005 20:20

[niki42]

merci Pierre (ou Speedy Gonzales??)
Ta solution me convient, j'espère que je saurais la réutiliser correctement sinon je ferais encore appel à ta promptitude!!!

Je remercie aussi Christophe pour sa réponse mais je n'ai pas pu utiliser sa solution car je n'ai pas l'outil microsoft monviewth control. Apparement il n'est pas disponible sur mon PC Peut-être que ça vient du fait que j'ai office xp?
merci quand même


A+++
Niki42

:kiss: :kiss: :kiss: :kiss:

Bonsoir,

J' ai essayé la solution de Christophe, tout est parfait, mais si en cliquant en G14 par exemple, je veux faire apparaître le calendrier N°1
et que la date choisie s' inscrive dans cette cellule j' ai mis dans la feuille le code suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sel As Range
Set Sel = Range('g14')
If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
Cancel = True
UserForm1.Show
End If
End Sub

mais ça ne fonctionne pas. Le calendrier apparaît mais la date ne s'inscrit pas dans la cellule.

Une idée ?

Merci.