Pb avec TextBox et Calendar

Salut

Peux-tu être plus précis?

Pierre

"David" <(Pas de Spam)direction-ternoise@wanadoo.fr> a écrit dans le message
de news:OT%23jNwotEHA.1048@tk2msftngp13.phx.gbl...

Bonjour à tous
Excel 2000
Débutant en VBA

Pouvez vous me dire pourquoi ceci ne fonctionne pas ?

Private Sub Calendar1_Click()
TextBox1.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Calendar1.Visible = True
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Calendar1.Visible = False
End Sub

Merci de votre aide
David

Bonjour Pierre

Rien ne s'inscrit quand je clic sur une date dans le Calendar

Merci de ton aide

David

Bonjour David;
Modifie la procédure:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Calendar1
Calendar1.Visible = False
End Sub

MP

"David" <(Pas de Spam)direction-ternoise@wanadoo.fr> a écrit dans le message
de news:OT%23jNwotEHA.1048@tk2msftngp13.phx.gbl...

Bonjour à tous
Excel 2000
Débutant en VBA

Pouvez vous me dire pourquoi ceci ne fonctionne pas ?

Private Sub Calendar1_Click()
TextBox1.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Calendar1.Visible = True
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Calendar1.Visible = False
End Sub

Merci de votre aide
David

Bonjour
Peux-être t'assurer que tu as bien une valeur affectée à Calendar1 ?
Si tu veux en être certain je te suggère d'affecter la date système (par
exemple) par défaut au chargement de ton Userform :
Private Sub UserForm_Initialize()
Me.Calendar1.Value = Date
End Sub
En complément, ton évènement MouseDown ne spécifie pas quel bouton de la
souris doit être pris en compte donc je te suggère :
If Button = 1 Then Calendar1.Visible = True

Cordialement
Pascal

"David" <(Pas de Spam)direction-ternoise@wanadoo.fr> a écrit dans le message
de news: eaSyseptEHA.3088@tk2msftngp13.phx.gbl...

Bonjour Pierre

Rien ne s'inscrit quand je clic sur une date dans le Calendar

Merci de ton aide

David

Bonjour Papou

Merci également pour cela

Cela ne fonctionne pas tout a fait comme je veux mais le désespère pas. Au
pire je trouverais bien une ame charitable !!!

Encore merci

David

Merci pierre cela fonctionne

Mais là, tu vas mêler JPS ;-)


"David" <(Pas de Spam)direction-ternoise@wanadoo.fr> a écrit dans le
message de news:O0vjyJqtEHA.1008@tk2msftngp13.phx.gbl...

Merci pierre cela fonctionne