Discussion :

[sdispro]

Bonjour le Forum,

Sur le code ci-dessous j'ai un problème :

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
17
18
19
20
21
22
23
Private Sub CommandButton118_Click()
Sheets("comptabilité").Select
 
 Dim lgLig As Long
 
 
 
   Me.ListBox1.Clear
 
  ActiveSheet.Range("$A$1:$J$112").AutoFilter Field:=5, Criteria1:= _
        ComboBox2.Value
 
 
 
 
          For lgLig = 1 To Range("A" & Cells.Rows.Count).End(xlUp).Row
        If Rows(lgLig).Hidden = False Then
            If Range("A" & lgLig) <> "" Then
                ListBox1.AddItem Range("A" & lgLig)
            End If
        End If
    Next lgLig
End Sub

Je n'aarive pas à affciher plusierus colonnes et le fait de mettre plusieurs colonnes dans mes propriétés ne marche pas.

Pouvez vous m'aider?

Merci par avance

[Invité]

Bonsoir,

Voici une solution et une ou deux modifications du code pour l'alléger.

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 CommandButton1_Click()    
    Sheets("comptabilité").Select
    Dim lgLig As Long
    Me.ListBox1.Clear
    ActiveSheet.Range("$A$1:$J$112").AutoFilter Field:=5, Criteria1:=ComboBox1.Value
    For lgLig = 1 To Range("A" & Cells.Rows.Count).End(xlUp).Row
        If Rows(lgLig).Hidden = False And Range("A" & lgLig) <> "" Then
            With ListBox1
                .AddItem Range("A" & lgLig)
                .List(ListBox1.ListCount - 1, 1) = Range("B" & lgLig)
                .List(ListBox1.ListCount - 1, 2) = Range("C" & lgLig)
                .List(ListBox1.ListCount - 1, 3) = Range("D" & lgLig)
            End With
        End If
    Next lgLig
End Sub

[sdispro]

Un grand merci pour ton retour cependant cela ne marche pas.

De ce fait j'ai crée autant de listbox pour chaque colonnes.

Brouillon mais sa marche.

[Invité]

Bonsoir,

Bien sûr j'avais fait des essais et étais certain que cela fonctionnait.
Mais j'avais un module supplémentaire comportant cette ligne qui te manques et peut se copier en ligne 5

Code :

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

    ListBox1.ColumnCount = 4

Je te prie de m'excuser.

[sdispro]

Merci beaucoup pour ton aide.
Cela marche à la perfection.

PS : ne t'excuses pas pour un oubli, tu as eu la bonté de m'aider