Discussion :

[-François-]

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.value = Calendar1.value

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

[-François-]

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

[mercatog]

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

[-François-]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[-François-]

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

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 ...

merci encore

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[-François-]

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