résolu : Remplir TextBox

L

laetitia90

XLDnaute Barbatruc

• 5 Décembre 2015

• #2

Re : Remplir TextBox

bonjour ABIDINE🙂

brut comme cela??

Code:

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

 

Vote positif 0 Vote négatif

A

ABIDINE

XLDnaute Nouveau

• 5 Décembre 2015

• #3

Re : Remplir TextBox

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Décembre 2015

• #4

Re : résolu : Remplir TextBox

Bonjour ABIDINE, Laetitia 🙂

Un peu moins brut :

Code:

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 :

Code:

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+

 

Dernière édition: 5 Décembre 2015

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 5 Décembre 2015

• #5

Re : résolu : Remplir TextBox

salut

encore moins brut mais plus directif* ...😉

*plus de RowSource

 

Pièces jointes

• UsF date.xlsm

  28.2 KB · Affichages: 36

Vote positif 0 Vote négatif

A

ABIDINE

XLDnaute Nouveau

• 5 Décembre 2015

• #6

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

 

Vote positif 0 Vote négatif

A

ABIDINE

XLDnaute Nouveau

• 5 Décembre 2015

• #7

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 5 Décembre 2015

• #8

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

 

Pièces jointes

• calendrier.xlsm

  18.3 KB · Affichages: 37
• calendrier.xlsm

  18.3 KB · Affichages: 38

Dernière édition: 5 Décembre 2015

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 5 Décembre 2015

• #9

Re : résolu : Remplir TextBox

re

laetitia90 à dit:

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

Cliquez pour agrandir...

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.

 

Pièces jointes

• AutreCalendrier(VBA).xlsm

  33.3 KB · Affichages: 39

Vote positif 0 Vote négatif

A

ABIDINE

XLDnaute Nouveau

• 5 Décembre 2015

• #10

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

 

Vote positif 0 Vote négatif

A

ABIDINE

XLDnaute Nouveau

• 5 Décembre 2015

• #11

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

 

Dernière édition: 5 Décembre 2015

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 6 Décembre 2015

• #12

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

 

Pièces jointes

• UsF date 2.xlsm

  37.5 KB · Affichages: 42

Vote positif 0 Vote négatif