Microsoft 365 Pilotage Listbox avec des combobox

[meca13]

Bonjour le Forum,

J’aurais besoin de votre aide sur deux combobox qui pilote une listbox.

Quand je je recherche ma valeur par les combobox, jusqu’à la ligne 11 de ma feuille « Base », ça fonctionne mais dès que je selectionne les valeurs de la ligne 12 à 16 ça me donne une erreur.

J’ai un format différent sur mes valeurs de colonne A et B mais ne sais pas comment le corriger par le code.

Pouvez vous me débloquer ce point ?

Cordialement,

Meca13

 

[sousou]

Bonjour
essaie comme ceci
Private Sub cbLb01_Change()

Lb01.Selected(cbLb01.ListIndex) = True
End Sub

 

[meca13]

Merci Sousou ,

Super ça fonctionne, merci pour le déblocage.

Cordialement,

Meca13

 

[sousou]

Faut faire la même chose pour la deuxième

 

[meca13]

Faut faire la même chose pour la deuxième

Oui c'est ce que je viens de faire, merci encore

 

[ChTi160]

Bonjour le Fil

Tu vas devoir , pour que l'utilisation de ton Userform soit pratique , envisager de remplir entre autres Ton Combobox "cbLb01bis" d'éléments Uniques !
Utilisation de Combobox en Cascade.
Bonne Continuation
Jean marie

 

[meca13]

Bonjour Jean Marie,

donc changer "cbLb01bis" :

With cbLb01bis
.ColumnCount = 1
.ColumnWidths = "100"
.List = Sheets(Wks).Range("B2:B" & Sheets(Wks).Range("B65536").End(xlUp).Row).Value
End With

c'est bien ça ?

Cordialement,

Meca 13

 

[ChTi160]

Re
Non ! il suffit de regarder ce que Contient le Combobox "cbLb01bis" il y a plusieurs fois la même référence !
Jean marie

 

[meca13]

Re,
Oui en effet, c'est normal, c'est un fichier test

Cordialement,

Meca13