Condition liste Combobox

kilou92

XLDnaute Nouveau
Bonjour a tous,

Je suis nouveau sur le site, et grand débutant dans la programmation en generale.
Voila j'expose mon pb, j'ai crée avec userform deux Combox, la premiere affiche une liste, la deuxieme affiche une liste de mesure (par ex) dépendant de "l'element" choisi dans la premiere combobox.
En somme si je choisis "nutella" dans ma premiere liste, je souhaite voir le prix dans la deuxieme et ainsi de suite.

J'espere avoir été clair

Cordialement
 

kilou92

XLDnaute Nouveau
Re : Condition liste Combobox

J'ai pu trouvé ce qu'il me semble le plus adequat, cependant je souhaiterais savoir comment faire pour ouvrir un nouveaux userform ou une feuille de calcul excel lorsque je clique sur un element de la deuxieme liste.

Merci
 

kilou92

XLDnaute Nouveau
Re : Condition liste Combobox

De plus dans l'exemple Liste en cascade (deplacement, divers, hebergement),

Private Sub ListBox1_Click()
choix = Me.ListBox1.ListIndex
Me.ListBox2.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
End Sub

Je ne sais pas programmer une variable ! :(

Voici ce que j'ai tenté de faire :

Private Sub UserForm_Initialize()
Me.ListBox1.List = Application.Transpose(Range("A1:I1"))
End Sub
------------------------------------
Private Sub ListBox1_Click()
Dim choix As Range
Set choix = Range("A1:I1")
choix = Me.ListBox1.ListIndex
Me.ListBox2.List = [$A$2:$A$100].Offset(, choix).Resize(Application.CountA([$A$2:$A$100].Offset(, choix))).Value

End Sub

Excel pas content me dit Erreur d'execution 13.

A votre bon coeur :)
 

Discussions similaires

Statistiques des forums

Discussions
312 438
Messages
2 088 410
Membres
103 845
dernier inscrit
anasabir2024