résolu : Remplir TextBox

[ABIDINE]

Bonjour le Forum
Bonjour tout le monde
Je sollicite vos aides svp afin de resoudre ce probleme
Je veux bien si vous m'aidez lorsque je tappe l'annee dans ComboBox3 alors s'affichera automatiquement
la date choisit dans TextBox1
Merci d'avance pour l'aide
Amicalement
ABIDINE

 

[laetitia90]

Re : Remplir TextBox

bonjour ABIDINE

brut comme cela??

Private Sub ComboBox3_Change()
 TextBox1 = ComboBox1 & "/" & ComboBox2 & "/" & ComboBox3
End Sub

 

[ABIDINE]

Re : Remplir TextBox

Bonjour Laetitia90
Merci beaucoup pour simple efficace code
C'est resolu
Amicalement
ABIDINE

 

[job75]

Re : résolu : Remplir TextBox

Bonjour ABIDINE, Laetitia

Un peu moins brut :

Private Sub ComboBox1_Change()
If IsDate(ComboBox1 & "/" & ComboBox2 & "/" & ComboBox3) Then _
  TextBox1 = CDate(ComboBox1 & "/" & ComboBox2 & "/" & ComboBox3) Else TextBox1 = ""
End Sub

Private Sub ComboBox2_Change()
ComboBox1_Change
End Sub

Private Sub ComboBox3_Change()
ComboBox1_Change
End Sub

Edit : éventuellement :

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 And ComboBox3.ListIndex > -1 _
  Then TextBox1 = DateSerial(ComboBox3, ComboBox2, ComboBox1) Else TextBox1 = ""
End Sub

Private Sub ComboBox2_Change()
ComboBox1_Change
End Sub

Private Sub ComboBox3_Change()
ComboBox1_Change
End Sub

A+

 

[Si...]

Re : résolu : Remplir TextBox

salut

encore moins brut mais plus directif* ...

*plus de RowSource

 

[ABIDINE]

Re : résolu : Remplir TextBox

Bonsoir Job75
Merci beaucoup pour l'aide et pour vos efficaces codes
Les deux fonctionnent tres tres bien
Amicalement
ABIDINE

 

[ABIDINE]

Re : résolu : Remplir TextBox

Bonsoir Si...
Merci 10000 fois pour votre fichier et surtout surtout pour votre interessante remarque pour les annees et le nombre du jour de chaque mois
Merci encore
Cordialement
ABIDINE

 

[laetitia90]

Re : résolu : Remplir TextBox

re, job,SI

en sachant pas ce que veut faire ABIDINE

on pourrait s'orienter sur un simple calendrier evite bien des pb...

PS clik sur un jour envoi dans box1

 

[Si...]

Re : résolu : Remplir TextBox

re

re, job,SI
on pourrait s'orienter sur un simple calendrier evite bien des pb...

Pas si sûr ! Calendar n'est pas disponible sur 2010,DTPicker, MonthView sont à installer sur la machine...

J’étais tenté de répondre comme toi Laetitia cependant, avec la remarque ci-dessus, j'ai collé un peu plus à la demande.

En voici un, exemple personnel, mais avec une programmation assez lourde bien que simplifiée.

 

[ABIDINE]

Re : résolu : Remplir TextBox

Bonsoir Laetitia90
Merci beaucoup pour ce fichier ..une petite remarque lorsque je clique dans TextBox rien ne s'affiche comme calendrier je ne sais pas quel est le probleme
Merci plusieurs fois pour l'aide
Amicalement
ABIDINE

 

[ABIDINE]

Re : résolu : Remplir TextBox

Bonsoir Si...
Merci 1000 fois pour ce cadeau tres interessant et que je veux le prendre et l'adapter ..svp comment je vais le changer pour que le double clique pour afficher calendrier se sera dans le TextBox d'userForm mais pas dans une cellule
REMARQUE : est ce qu'on peut allonger dans calendrier pour les annees ici c'est jusqu'a 2020 .. par exemple on va mettre jusqu'a 2050 ??
Merci d'avance pour votre aide
Amicalement
ABIDINE

 

[Si...]

Re : résolu : Remplir TextBox

re

Dans le fichier joint je te mets des explications.
Nota : j’ai enlevé les numéros de semaines qui peuvent-être inutiles

Dans tous les cas, les transformations à apporter ne seront pas difficiles à inclure