Discussion :

[Chris171717]

Bonsoir,

le code suivant envoi mes données dans la listbox mais en une seule colonne, or je souhaiterai que les infos soient réparties dans les 6 colonnes...

Avez-vous une idée !?

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
24
25
26
Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim str As String
 
UserForm4.Hide
 
    With Worksheets("Retenues")
        For i = 0 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
            str = ""
            If .Range("A1").Offset(i, 0).Value = ComboBox1 And .Range("B1").Offset(i, 0).Value = ComboBox2 And .Range("C1").Offset(i, 0).Value = ComboBox3 Then
                For j = 0 To .Rows(.Range("A1").Offset(i, 0).Row).Find("*", , , , xlByColumns, xlPrevious).Column
                    str = str & .Range("A1").Offset(i, j).Value & " "
                Next j
                  With UserForm8.ListBox1
                     .Clear
                     .ColumnCount = 6
                     .ColumnWidths = "50;60;30;170;130;30"
                  End With
 
                UserForm8.ListBox1.AddItem (str)
            End If
        Next i
    End With
 
    UserForm8.Show
End Sub

[Daranc]

à la louche je dirais
je dirais de faire un tableau de tes éléments
dans le style:
Dim TaBlo2() As String

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
 
 
'constitution du tableau la liste d'index 
For i = 2 To UBound(TaBlo1) + 1
    ReDim Preserve TaBlo2(5, i)
    TaBlo2(0, i - 2) = CStr(Cells(i, 1).Value)
    TaBlo2(1, i - 2) = CStr(Cells(i, 2).Value)
    TaBlo2(2, i - 2) = CStr(Cells(i, 3).Value)
    TaBlo2(3, i - 2) = CStr(Cells(i, 4).Value)
    TaBlo2(4, i - 2) = CStr(Cells(i, 5).Value)
    TaBlo2(5, i - 2) = CStr(Cells(i, 6).Value)
 
Next i
With Me.ListBox1
.ColumnCount = 
.ColumnWidths =  "50;60;30;170;130;30"
.Column() = TaBlo2
End With
End Sub

[Chris171717]

Merci pour ta réponse, je vais essayer ça...

[Chris171717]

En fait j'ai réussi autrement...

Merci encore...

Chris