Microsoft 365 Pilotage Listbox avec des combobox

sousou

XLDnaute Barbatruc

• 23 Novembre 2023

• #2

Bonjour
essaie comme ceci
Private Sub cbLb01_Change()

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

 

Vote positif 1 Vote négatif

M

meca13

XLDnaute Nouveau

• 23 Novembre 2023

• #3

Merci Sousou ,

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

Cordialement,

Meca13

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 23 Novembre 2023

• #4

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

 

Vote positif 0 Vote négatif

M

meca13

XLDnaute Nouveau

• 23 Novembre 2023

• #5

sousou à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 23 Novembre 2023

• #6

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

 

Vote positif 0 Vote négatif

M

meca13

XLDnaute Nouveau

• 23 Novembre 2023

• #7

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 23 Novembre 2023

• #8

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

 

Vote positif 0 Vote négatif

M

meca13

XLDnaute Nouveau

• 23 Novembre 2023

• #9

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

Cordialement,

Meca13

 

Vote positif 0 Vote négatif