Discussion :

[Chris171717]

J'ai le code suivant pour mettre à jour 3 combobox à la suite... (la deuxième dépend de la première et la troisième dépend de la deuxième)...

Je ne comprend pas pourquoi la troisème fonctionne bizarrement... après choix dans combobox1 puis combobox 2, la valeur affichée dans combobox3 ne correspond pas du tout aux choix précédents. En revanche si je déroule les choix, ce sont bien les bons qui apparaissent...

Pouvez-vous m'aider... !?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'MISE A JOUR DES VALEURS DEPUIS LA COMBOBOX1
Private Sub ComboBox1_Click()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
 
ComboBox2 = Ws.Range("B" & Me.ComboBox1.ListIndex + 2) 'On alimente les données correspondant à la ligne
ComboBox3 = Ws.Range("C" & Me.ComboBox1.ListIndex + 2) 'de l'index de la Combobox + 2 pour la ligne de Feuille
 
End Sub
 
'MISE A JOUR DES VALEURS DEPUIS LA COMBOBOX2
Private Sub ComboBox2_Click()
If Me.ComboBox2.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
 
ComboBox3 = Ws.Range("C" & Me.ComboBox2.ListIndex + 2) 'On alimente les données correspondant à la ligne
 
End Sub

[Daniel.C]

Bonjour,

Peux-tu mettre ton classeur en pièce jointe ?

[Chris171717]

voilà

[Daniel.C]

Est-ce que tu donner un exemple de ce qui est anormal ?

[Chris171717]

Donc si tu lance la recherche d'un nom (userform4)

Cas1

'combobox1' je choisi "ABO"
'combobox2' il affiche automatiquement "P"
'combobox3' il affiche automatiquement "4C"

là ça fonctionne.


Cas2

'combobox1' je choisi "EMILE"
'combobox2' il affiche automatiquement "j"
'combobox3' il affiche automatiquement "6A"

c'est toujours bon


Cas3

'combobox1' je choisi "EMILE"
'combobox2' il affiche automatiquement "j" mais je choisi "p"
'combobox3' il affiche automatiquement "6A" qui n'est pas la bonne classe mais propose bien "3B" dans le menu déroulant


Dis moi si je suis pas assez clair...

[Daniel.C]

Pour tenir compte de la ligne d'entête :

Code :

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

1
2
3
4
5
6
'MISE A JOUR DES VALEURS DEPUIS LA COMBOBOX2
Private Sub ComboBox2_Click()
If Me.ComboBox2.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
ComboBox3.Value = Ws.Range("C" & Me.ComboBox2.ListIndex + 3) 'On alimente les données correspondant à la ligne
 
End Sub

au lieu de "+2".