[RESOLU par Roger2327 et Roland_M] : Date de naissance

[MADAGASCAR]

Bonsoir EXCEL DOWNLOADS
Bonsoir à tous et à toutes
SVP gentelmans ..
SI vous pouvez m'aider à finir ce fichier ..
J'ai dans UserForm1 ..3 ComboBox :
ComboBox1 pour afficher les jours du mois du ( 1 à 30 )
ComboBox2 pour afficher les mois d'annee du ( 1 à 12 )
ComboBox3 pour afficher les annees ..je ne sais pas peut etre du ( 1950 jusqu'à 2050 )
j'ai aussi un TextBox1 pour afficher la date de naissance choisit dés que je sors de ComboBox3..
Mon probleme est :
1 - Est ce qu'il ya une methode d'afficher les annees dans ComboBox3 .. " SANS passer par onglet excel "
Merci beaucoup d'avance pour l'aide et bienvenue pour n'importe quel opinion
Tres cordialement
MADA BLACK

 

[Roland_M]

Re : Date de naissance

bonsoir,

"1 - Est ce qu'il ya une methode d'afficher les annees dans ComboBox3 .. " SANS passer par onglet excel ""

comprend pas !? pourquoi sans passer par onglet, qu'est ce que ça signifie ?

 

[ROGER2327]

Re : Date de naissance

Bonsoir MADAGASCAR.

Peut-être comme cela :​

Private Sub UserForm_Initialize()
Dim i%

    ComboBox1.AddItem ("1")
    ComboBox1.AddItem ("2")
    ComboBox1.AddItem ("3")
    ComboBox1.AddItem ("4")

    ComboBox2.AddItem ("1")
    ComboBox2.AddItem ("2")
    ComboBox2.AddItem ("3")
    ComboBox2.AddItem ("4")

    For i = 1950 To 2050: ComboBox3.AddItem (CStr(i)): Next

End Sub

Bonne soirée.


ℝOGER2327
#8176

Mardi 17 Décervelage 143 (Saint Mandrin, poète et philosophe - fête Suprême Quarte)
24 Nivôse An CCXXIV, 8,0938h - cuivre
2016-W02-4T19:25:30Z

 

[MADAGASCAR]

Re : Date de naissance

Bonsoir Roland_M
Merci beaucoup pour votre intention d'aide
Je ne veux pas passer par onglet Excel .. car seulement j'ai officiel fichier et j'ai essayé de resoudre tous les problemes par uniquement macros .. et apres je vais faire afficher l'UserForm par mot de passe
Merci encore
Cordialement
MADA BLACK

 

[MADAGASCAR]

Re : Date de naissance

Bonsoir Roger2327
BRAVO .. du fond du coeur "MERCI"
C'est exactement ce que je veux avoir
C'est formidablement résolu
Cordialement
MADA BLACK

 

[Roland_M]

Re : [RESOLU par Roger2327] : Date de naissance

bonsoir,

sinon voir avec un calendrier ce serait plus fiable !
car les mois ne font pas tous 30 jours et avec ci-dessous tu vas devoir faire des tests sur les saisies !!
For I = 1 To 31: ComboBox1.AddItem (CStr(I)): Next
For I = 1 To 12: ComboBox2.AddItem (CStr(I)): Next
For I = 1950 To 2050: ComboBox3.AddItem (CStr(I)): Next

 

[MADAGASCAR]

Re : [RESOLU par Roger2327] : Date de naissance

Bonsoir Roland_M
Tres gentil de votre part
Merci pour votre super solution
Cordialement
MADA BLACK