UseForm, Probléme Calendrier

bonsoir à toutes et tous,

Je me permet de posté cette discussion car j'ai un petit souci avec VBA sous excel 2003.

j'ai créé un petit programme avec un UseForm dans celui ci,
j'ai deux Textbox où je dois inscrire une date d'entré et une date de sortie.

j'ai fais une ligne de programme qui me permet d'activer un UseForm de calendrier quand je double clic dans le textbox.

mon problème c'est quand je clic sur la date elle ne ce recopie pas dans le textbox.:cry:

j'ai essayé plusieurs programme mais a chaque fois j'ai une erreur.

je fais appelle à vos connaissance , et vous remercie déjà d'avoir pris le temps de lire mon poste.

si besoin je peux envoyer ma page excel par mail.

merci ;)

Ps: j'ai testé ce programme trouvé sur le site mais bug au niveau de la ligne:

Code:

---

TextBox1.value = Calendar1.value

---

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() 'spécifie la date du jour lors de l'affichage de l'USF Calendar1.Value = Now End Sub   Private Sub Calendar1_Click() TextBox1.Value = Calendar1.Value End Sub

---

Les codes sont corrects sauf si tu as changé le nom de ton calendrier ou de ton textbox

j'ai bien changé le noms des textbox mais je l'ai bien réadapté dans le code, je ne vois pas ou ça bloque ....

merci pour ton aide

Quel message d'erreur as tu?
tu as bien mis ces lignes dans le code de l'userform et du Calendar1

j'ai le code erreur 424...

j'ai trois UseForm

le premier useform principal dans ce use form j'ai ces deux ligne de code qui me permette de lancé le useform2 dans la textbox 3 et de lancer le useform 3 dans la textbox 4

Code:

---

1 2 3 4 5 6 7 8 9

'Faire apparaitre un calendrier en double cliquant dans la date de début Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm2.Show End Sub   'Faire apparaitre un calendrier en double cliquant dans la date d'expiration Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm3.Show End Sub

---

et les deux autres ce sont les calendrier
Le userform 2 calendrier pour la date d'entré

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize() 'spécifie la date du jour lors de l'affichage de l'UerForm Calendar1.Value = Now End Sub   Private Sub Calendar1_Click() TextBox3.Value = Calendar1.Value Calendar1.Visible = True Unload Me End Sub

---

le Useform 3 calendrier pour la date de sortie

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize() 'spécifie la date du jour lors de l'affichage de l'UerForm Calendar2.Value = Now End Sub   Private Sub Calendar2_Click() TextBox4.Value = Calendar2.Value Calendar2.Visible = True Unload Me End Sub

---

c'est pas la bonne méthode
ta conception part sur des bases erronées
bon,

Code:

---

1 2 3 4

Private Sub Calendar1_Click() Userform3.TextBox3.Value = Calendar1.Value Unload Me End Sub

---

edit, j'ai repris ton code sans précaution

ton textbox3 est bien dans userform3?

le textBox 3 et dans le UseForm1 mais j'avais vue ce que tu voulais dire et j'ai modifié.

Je te remercie beaucoup je viens de l'appliquer et ça fonctionne nikel :ccool:

j'avais cherché des heures , et toi en 2 min tu trouve la combine merci beaucoup.

mon programme n'est pas fini mais j'ai déjà un souci en moin


maintenant je dois trouvé la formule qui calcul la différence entre les deux dates rentré,
et si la différence est inférieur ou égale à 15jours le programme dois envoyer un email sur trois boite mail différente...
bref encore pas mal de recherche ....
si tu as un petit coup de pouce pour moi ...:oops:

merci encore

je me permet un conseil tout simple.
revois ta conception (grandiose) pour le but simple de récupérer 2 dates
il est possible de jongler entre userforms et calendriers...etc; mais il y a plus simple

regarde du côté control monthview ou datepicker
ils sont bien adaptés et ne nécessitent pas d'appeler un userform pour entrer une date


pour la différence entre date ragardes du côte

Code:

---

if datediff("d",date1,date2)>15 then

---

Merci beaucoup pour tes conseils c'est le premier programme que je fais donc c'est vrai que j'ai sans doute employé les mauvaises solutions...

je vais regarder pour la différence de date merci beaucoup:P