Condition liste Combobox

  • Initiateur de la discussion Initiateur de la discussion kilou92
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

K

kilou92

Guest
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
 
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
 
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 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
Réponses
4
Affichages
2 K
Compte Supprimé 979
C
Retour