alimenter listbox multi colonne en fonction de la feuille sélectionnée

[jtitin]

Bonjour à tous

je cherche à alimenter une listbox multi colonnes aprés avoir fait la sélection de la feuille par une combobox.

je vous joint un fichier plus explicatif

merci de votre aide

 

[Pierrot93]

Re : alimenter listbox multi colonne en fonction de la feuille sélectionnée

Bonjour jtitin

si j'ai bien compris, code ci dessous à placer dans le module de l'usf :

Option Explicit
Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> -1 Then ListBox1.List = Sheets(ComboBox1.Value).Range("B12:E" & _
    Sheets(ComboBox1.Value).Range("E65536").End(xlUp).Row).Value
End Sub
Private Sub UserForm_Initialize()
Dim mafeuille As Worksheet
For Each mafeuille In ThisWorkbook.Worksheets
    If mafeuille.Index > 1 Then
        ComboBox1.AddItem mafeuille.Name
    End If
Next
ListBox1.ColumnCount = 4
End Sub

bonne journée
@+

 

[BOISGONTIER]

Re : alimenter listbox multi colonne en fonction de la feuille sélectionnée

Bonjour,

Private Sub ComboBox1_Click()
   f = Me.ComboBox1
   champ = "B12:E" & Sheets(f).[E65000].End(xlUp).Row
   Me.ListBox1.List = Sheets(f).Range(champ).Value
End Sub

JB
Formation Excel VBA JB

 

[jtitin]

Re : alimenter listbox multi colonne en fonction de la feuille sélectionnée

merci Pierrot93, BOISGONTIER

c'est tous bon

enci encore

 

[skoobi]

Re : alimenter listbox multi colonne en fonction de la feuille sélectionnée

Bonjour,

voici le code du combobox complété:

Private Sub ComboBox1_Change()
'on cré 4 colonnes à la listbox
  ListBox1.ColumnCount = 4
  On Error GoTo Out
  With Worksheets(CStr(Me.ComboBox1))
    .Activate
    On Error Resume Next
  'on cré la listbox
    ListBox1.List = .Range("B12:E" & .[B65536].End(xlUp).Row).Value
  End With
  Exit Sub
Out:
  MsgBox "La Feuille " & CStr(Me.ComboBox1) & " n'existe plus !", vbCritical, ""

End Sub

Edit: arfff, suis à la bourre moi, bonjour Jacques 🙂