Discussion :

[florent149]

Salut la compagnie

une petite enigme pour vous. Regardez l'image ci-jointe:

les 3 premieres colonnes sont la source de 3 combobox en cascade. donc par exemple si dans la premiere l'utilisateur choisi 610, dans la deuxieme il ne peut choisir que 305 ou 229, etc...
J'aimerais attribuer a une variable la valeur de la cellule de la colonne G par exemple correspondant a la ligne choisie par l'utilisateur.
Quelqu'un aurait il une idée?

Merci!

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
NoLigne = LeCombox.listindex
NoCol = 7
LaValeur = Cells(NoLigne,NoCol).value

Pas testé mais je pense que ça devrait aller. Il y a peut-être un décallage de 1 si tu as une ligne d'entête dans ta feuille de calcul. Tu ajustes
Tu dis

[florent149]

oui ca doit etre un truc comme ca mais comment tenir compte des 3 combobox? car je ne peux pas mettre seulement la valeur de la 3eme colonne (donc de la 3eme combo) car je peux avoir des valeurs en double...
merci

[SfJ5Rpw8]

déjà est tu arrivé à effectuer ta cascade ..? et si oui comment...?

[florent149]

Oui j'y suis arrive par une methode que j'avoue ne pas avoir tres bien compris. Je l'ai adapte d'un exemple que quelqu'un m'a envoye du mpfe, et ca marche parfaitement. C'est vraiment assez complique donc je ne pense pas que ca serve a quelque chose que je vous la presente car a mon avis y en a pas besoin.
il faudrait juste finalement identifier le contenu de la premiere combo (en supposant que l'utilisateur a selectionne quelque chose) avec les lignes ou cette valeur est presente, puis faire de meme pour la deuxieme combo en se restreignant aux lignes precedemment selectionnees, puis une troisieme fois. Mais comment arriver a ca?

[ouskel'n'or]

Quand tu as l'adresse de ton premier combo et en a déduit le N° de ligne, tu conserves ton N° de ligne.
Pour coller les données de tes deux autres combo, tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Cells(NoLigne, NoCol2).value = LeCombo2.list(LeCombo2.listindex)
Cells(NoLigne, NoCol3).value = LeCombo3.list(LeCombo3.listindex)

.... si c'est bien ta question car j'avoue que je n'ai pas bien suivi tes explications
Tu dis