Lier 2 ComboBox avec des données variablesRésolu

Question

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.

cs_casy · Accepted Answer

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 #

zavier666 · Answer

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

elbarthou · Answer

Super, ça marche ! Un grand merci à tous les deux pour avoir trouvé et avoir été super rapides !

Lier 2 ComboBox avec des données variables

3 réponses

Votre réponse

Discussions similaires