Discussion :

[ftisse]

Bonjour,
dans un UserForm j'ai un souci pour remplir deux listbox depuis une comboBox. Je préféré joindre le fichier parce que c'est pas facile a expliquer, le but et de remplir les listbox 1 et 2 de l'UserForm6, en fonction du ComboBox3, les donner sont dans l'onglet base colonne L et M.

Cordialement
Florian

Fichierclients.xlsm

[casefayere]

Bonsoir,

tu peux adapter ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox3_Change()
Dim plage As Range, x As Integer
Dim cel As Range
With Worksheets("base")
  Set plage = .Range("K2:K" & .Range("K" & .Rows.Count).End(xlUp).Row)
  For x = 2 To 3
    Controls("listBox" & x - 1).Clear
    For Each cel In plage
      If cel = ComboBox3 Then
        Controls("listBox" & x - 1).AddItem cel(1, x)
      End If
    Next cel
  Next x
End With
 
End Sub

[ftisse]

Impeccable ça marche nickel merci beaucoup.


Cordialement Florian