Discussion :

[plasto590807]

Bonjour,

J'ai créé 3 combobox (jour, année, mois).

Puis , j'ai créé un tableau (comme ci-dessous) :



Puis apres mure reflexion, à partir du 1ere tableau que j'ai appelé, TableauTotal_naissance , je l'ai divisé en 3 tableaux :

-Tableau_jourNaissance
-Tableau_moisNaissance
-Tableau_anneeNaissance

dont voici les codes des ComboBox1 , ComboBox2 , ComboBox3:

1) combobox1 (combobox_jour):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
Dim jour_naissance As Integer
 
'ComboBox1.List = Range("Tableau Liste DD[T_jourNaissance]", 1).Value    'liste des JOURS de naisance
 
'affichage du jour de naissance
'ComboBox2.List = Range("Tableau Liste DD[Tab_jourNaissance]", 1).Value     'liste des MOIS de naisance
 
'MsgBox ("jour de naissance :"), jour_naissance
 
End Sub

2) combobox2 (combobox_mois):

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBox2_Change()
Dim mois_naissance As String
 
'ComboBox2.List = Range("Tableau Liste DD[Tab_moisNaissance]", 2).Value     'liste des MOIS de naisance
 
'affichage du mois de naiddance
'MsgBox ("mois de naissance :"), mois_naissance
 
End Sub

3) combobox3 (combobox_mois):

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBox3_Change()
Dim annee_naissance As String
 
'ComboBox3.List = Range("Tableau Liste DD[Tab_annéeNaissance]", 3).Value    'liste des ANNEES de naisance
 
'affichage du annee de naiddance
'MsgBox ("année de naissance :"), annee_naissance
 
End Sub

Les combox s'affichent mais rien de visibile dans les ComboBox dedans !!!!


Pouvez-vous m'aider ?