Combobox & dépendance

[mormox]

Bonjour à tous,

Ma requête est simple, j'aimerai créér un bouton qui lorsque je choisis une valeur dans une combobox (liée à une cellule A1), cela m'affiche une valeur minimale directement dans une autre combobox (liée à une cellule A2) et en plus de cela qu'elle (cbx2) laisse des choix suplémentaires.

exemple : je choisis Combobox 1 = "Catégorie 1"
alors directement Combobox 2 = "Val min Cat 1"
Avec en liste déroulante dans la Combobox 2 d'autres options comme "Val moyenne Cat 1" et "Val max Cat 1"

Du coup j'ai testé un bouton qui fait ça:

Private Sub CommandButton1_Click()

If [A1].Value = "Catégorie 1" Then

[A2].Value = " Val min Cat 1 "
 
End If

End Sub

Alors quand je choisis "Catégorie 1" ça m'affiche bien "Val min Cat 1" dans A2 mais pas dans la combobox 2 qui est placé au dessus de la cellule A2 justement...

Lorsque je fais à la place de [A2].Value = " Val min Cat 1 " --> Combobox2.Value = " Val min Cat 1 " alors là erreur même si l'option est disponible dans la liste VBA.Array de la cbx2 !

Pour les options de listes déroulantes j'utilise VBA.Array...

Merci, j'espère avoir été clair

 

[mormox]

Re : Combobox & dépendance

Re Bonjour à tous,

J'ai trouvé la réponse :

Il suffit de rajouter :

With ComboBox2
.ListIndex = 0 '0 = 1er item - 1 = 2ème item ....
End With

Voilà merci, si vous avez d'autres solutions, je suis preneur !!!

Bonne journée à tous

EDIT : Bon alors nouveau problème : je souhaite appliquer ce With/And With à plusieurs combobox, alors j'ai fait :

Private Sub CommandButton1_Click()

If [A1].Value = "Catégorie 1" Then

With ComboBox2
.ListIndex = 0 
End With

Else

If [A1].Value = "Catégorie 1" Then
With ComboBox3
.ListIndex = 0 
End With


Else

If [A1].Value = "Catégorie 1" Then
With ComboBox4
.ListIndex = 1 'par exemple
End With


End If
End If
End If
End Sub

Mais le problème est que ça ne fonctionne qu'une seule fois, mais pas pour les autres.. je sèche un peu

 

[mormox]

Re : Combobox & dépendance

Bon j'ai trouvé lol je suis désolé pour tout, j'ai tout simplement fait :

If [A1].Value = "Catégorie 1" Then

ComboBox2.ListIndex = 0
ComboBox3.ListIndex = 0
ComboBox4.ListIndex = 1
...
..
.

End If