[VBA Excel] Controle DatePicker

Bonjour,
Je suis nouveau sur le forum et ça fait un petit moment que je me suis mis au vba sous excel pour développer ce qui s'avère etre une grosse application mais je suis confronté à un tout petit problème. Le genre de problème que d'habitude se résout facilement en cherchant un peu mais là je comprends vraiment pas...:evilred:

Je m'explique :
J'ai une macro qui lance un userform de la manière suivante:

Code:

---

1 2 3 4 5

Sub Macro6()   UserForm10.Show   End Sub

---

Ce qui ouvre ce UserForm:
http://img5.hostingpics.net/thumbs/m...userform10.jpg

Qui comprend donc deux controles DatePicker et dans lequel j'ai rentré ces codes:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Date1 As Date Public Date2 As Date   Sub CommandButton1_Click() Unload Me End Sub Private Sub DTPicker1_Change() Date1 = UserForm10.DTPicker1.Value MsgBox Date1 End Sub Private Sub DTPicker2_Change() Date2 = UserForm10.DTPicker2.Value End Sub

---

Malheureusement qd je fais appel aux variables Date1 et Date2 dans une macro quelconque (ce que je peux faire normalement vu que je les ai déclarées public), elles sont vides:
http://img5.hostingpics.net/thumbs/m...Sans_titre.jpg

Pourquoi ? Comment y remédier ?

Merci ! 8-)

Bonjour,

j'ai essayé ton code et ta form dans un classeur vide, j'ai mis dans un module vierge

Code:

---

1 2 3 4 5

Public Date1 As Date Public Date2 As Date Sub essaidate() MsgBox Date1 End Sub

---

dans le code USF

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() essaidate End Sub   Private Sub DTPicker1_Change() Date1 = DTPicker1.Value MsgBox Date1 End Sub Private Sub DTPicker2_Change() Date2 = UserForm10.DTPicker2.Value End Sub

---

la date apparait

a+

Merci beaucoup de ta réponse si rapide !

Elle m'a permi de me rendre compte de mon erreur à savoir que j'avais déclaré mes variables Date1 et Date2 dans l'USF... Je comprends pas vraiment ce que ca change mais au moins maintenant ca marche !

:king:

@+

Content d'avoir découvert le problème (ça m'arrive pas souvent):cry:

mais enfin, quand je poste, ça aide quelquefois

Bonne journée