Combobox en cascade et Ligne

[Bruce68]

Bonsoir à tous
J'ai récupéré sur le forum une macro pour 4 combobox il m'en faut que 2 , j'arrive à les faire fonctionner mais il me faudrait le N° de ligne quand je clique sur la ComboBox2 et là je bloque
En 1: je recherche le departement ComboBox1
En 2 je recherche la Sous prefecture ComboBox2
Pour afficher les 2 textBox il me faudrait le N° de ligne quand je choisi la sous prefecture.
Je vous remercie de votre aide

 

[ledzepfred]

Re : Combobox en cascade et Ligne

bonsoir bruce,

ajoute cette procédure dans le code du userform

Private Sub ComboBox2_Change()
col = Cells.Find(what:="Sous Prefectures").Column
lig = Columns(col).Find(what:=ComboBox2).Row
TextBox1 = Cells(lig, col + 1)
TextBox2 = Cells(lig, col - 3)
End Sub

c'est une des nombreuses possibilités

A+

 

[Bruce68]

Re : Combobox en cascade et Ligne

Bonsoir à tous
Merci ledzepfred pour ta réponse cela fonctionne , pourrais je avoir quelques explications sur le code ?
Merci pour l'aide

 

[ledzepfred]

Re : Combobox en cascade et Ligne

bonsoir bruce,

mes commentaires dans le code

Private Sub ComboBox2_Change()
col = Cells.Find(what:="Sous Prefectures").Column 'je cherche l'entête 
'"sous prefectures" dans les cellules et définit la variable col qui représente 
'le n° de colonne de l'entête
lig = Columns(col).Find(what:=ComboBox2).Row 'je cherche la valeur de 
'combobox 2 dans la colonne col et définit la variable lig qui représente 
'le n°de ligne de la valeur cherchée
TextBox1 = Cells(lig, col + 1) 'si lig=12 et col=4, j'affecte la valeur de 
'E12 dans le textbox 1
TextBox2 = Cells(lig, col - 3) 'si lig=12 et col=4, j'affecte la valeur de A12 
'dans le textbox 2
End Sub

bref tu l'auras compris, la structure du tableau doit être conservé pour que ça marche

A+

 

[Bruce68]

Re : Combobox en cascade et Ligne

Bonsoir à tous

Merci ledzepfred pour ces compléments d'informations.

Bonne nuit à tous