Lier 2 ComboBox avec des données variables [Résolu]

Messages postés
2
Date d'inscription
dimanche 19 novembre 2006
Statut
Membre
Dernière intervention
17 janvier 2007
- - Dernière réponse : elbarthou
Messages postés
2
Date d'inscription
dimanche 19 novembre 2006
Statut
Membre
Dernière intervention
17 janvier 2007
- 17 janv. 2007 à 21:45
Bonjour à toutes et à tous.
Je suis en train de faire un outil sur excel et vba en gestion de stock, sans grande prétention ^^, et je débute.

J'ai fait un Userform dans lequel j'ai inclu deux ComboBox.
la ComboBox1 fait très bien son travail en recuperant des variables dans des cellules données en utilisant la propriété RowSource ("Listing_produit!C15:C42") et en archivant ensuite.

Mon souci arrive ici : je souhaite que ma ComboBox2 se serve du choix fait dans la ComboBox1 pour mettre par défaut une donnée qui sera dans la même ligne excel mais dans la colonne juste après.
("Listing_produit!D15:D42"). Le problème étant que les données des cellules sont modifiées tout le temps, et ne sont donc pas fixes il faut que je me base sur les coordonnées des cellules seulement.

Comment puis-je faire ? J'ai recherché dans ce forum mais ne suis tombé que sur des ComboBox avec des données fixes, ce qui, vous l'avez compris, ne marchera pas.
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
7745
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
28
3
Merci
J'ai pas bien tout compris. Tu souhaite que lorsque un item est choisit dans la liste de la combo1, l'item correspondant de la liste de la combo2 soit automatiquement choisit ?

Si c'est cela, il te faut, dans l'évènement change de la combo1, sélectionner l'item dans la combo2 ayant le même index que celui sélectionné dans la combo1 :

Private Sub ComboBox1_Change()
    ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 141 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_casy
Messages postés
267
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
30 avril 2009
0
Merci
En fait, le numéro d'index de ta valeur de combobox1 te permet de savoir à quel cellule la valeur fait référence


exemples

on choisit la première valeur de la liste on a donc combobox.listindex = 0 et comme ta selection demarre en D15, c'est D15

on choisit la quatrième valeur => listindex = 3, cellule D18 etc...


tu donc procéder ainsi:

    ActiveSheet.Range("D15").Activate

    Combobox2.Additem    ActiveCell.Offset(0, ComboBox1.Listindex)


Voilà!!!!


(merci de valider les réponses exacte)


Toujours + d'APi et de VB

____________________________________

API @ la Loupe http://xav.prog.power.free.fr
Commenter la réponse de zavier666
Messages postés
2
Date d'inscription
dimanche 19 novembre 2006
Statut
Membre
Dernière intervention
17 janvier 2007
0
Merci
Super, ça marche ! Un grand merci à tous les deux pour avoir trouvé et avoir été super rapides !
Commenter la réponse de elbarthou