Discussion :

[fasedan]

Bonjour à tous,

Je rame pas mal, même après avoir parcouru la documentation sur ce site.
J'arrive à afficher dans une Listox les données d'une colonne ("A") selon une condition, mais je n'arrive pas à afficher les données de la colonne ("D") selon la même condition

Pour faire simple, voici le 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
17
18
19
20
21
22
 
Private Sub UserForm_Activate()
ListBox1.Clear
ListBox1.Visible = True
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "50;50"
ListBox1.TextAlign = fmTextAlignCenter
        Worksheets("Feries").Select
        Range("A1").Select
 
    Dim i, j, x, y As Integer
    i = Range("A1048576").End(xlUp).Row
    On Error Resume Next
    x = 1
    For j = 2 To i
    If Range("D" & j) = Label1.Caption Then
    ListBox1.AddItem Format(Range("A" & j).Value, "dd/mm/yyyy")
    ' Ici ajouter une colonne dans la ListBox et afficher les données de la colonne ("D") de la feuille excel
    x = x + 1
    End If
    Next j
End Sub

Merci de m'avoir lu

Fasedan

[jfontaine]

Bonjour,

Essai cette ligne

Code :

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

ListBox1.List(ListBox1.ListCount - 1, 1) = Range("D" & j).Value

[gFZT82]

Bonjour,

J’obtiens le résultat avec

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
Private Sub UserForm_Activate()
Dim i As Long, j As Long
    ListBox1.Clear
    ListBox1.Visible = True
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "50;50"
    ListBox1.TextAlign = fmTextAlignCenter
    With Worksheets("Feries")
        i = .Range("A" & .Rows.Count).End(xlUp).Row
        On Error Resume Next
        For j = 2 To i
            If Range("D" & j) = Label1.Caption Then
                ListBox1.AddItem Format(.Range("A" & j).Value, "dd/mm/yyyy")
                ListBox1.List(j - 2, 1) = .Range("D" & j)
            End If
        Next j
    End With
End Sub

Cordialement.

[fasedan]

Merci à jfontaine et à gFZT82 pour votre précieuse aide.

Mais simplement faire un copier-coller ne me suffit pas.

J'ai testé les deux exemples, J'ai repris le code en entier de gFZT82 qui ne m'affiche dans la ListBox qu'une seule colonne avec :

Code :

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

1
2
3
4
5
6
7
ListBox1.AddItem Format(.Range("A" & j).Value, "dd/mm/yyyy")
ListBox1.List(j - 2, 1) = .Range("D" & j)
 
J'ai donc remplacé la deuxième ligne de code par celle jfontaine :
 
ListBox1.AddItem Format(.Range("A" & j).Value, "dd/mm/yyyy")
ListBox1.List(ListBox1.ListCount - 1, 1) = Range("D" & j).Value

et j'ai testé en ajoutant des colonnes dans la ListBox et cela fonctionne.

Que signifie donc, (j - 2, 1) ou (ListBox1.ListCount - 1, 1)

Encore merci pour votre aide.

Fasedan

[Theze]

Bonjour,

Une autre façon très similaire mais avec column. Quand, pour indiquer une colonne dans la listbox, on utilise l'index de la boucle il faut bien faire attention à partir de quelle valeur on commence (j = 2 to i), ici j commence à 2 alors que la listbox est en base 0, il faut alors déduire 2 à j pour faire référence à la bonne ligne. C'est pour cette raison qu'il est préférable d'incrémenter une variable dédiée (dans mon exemple, x) ou d'utiliser "ListBox1.ListCount - 1" :

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
27
28
29
30
31
32
33
34
35
36
37
 
Private Sub UserForm_Initialize()
 
    Dim I As Long
    Dim j As Long
    Dim x As Long
 
    With ListBox1
 
        .Clear
        .Visible = True
        .ColumnCount = 2
        .ColumnWidths = "50;50"
        .TextAlign = fmTextAlignCenter
 
    End With
 
 
    With Worksheets("Feries")
 
    I = Range("A" & .Rows.Count).End(xlUp).Row
 
        For j = 2 To I
 
            If .Range("D" & j) = Label1.Caption Then
 
                ListBox1.AddItem Format(.Range("A" & j).Value, "dd/mm/yyyy")
                ListBox1.Column(1, x) = .Range("D" & j)
                x = x + 1
 
            End If
 
        Next j
 
    End With
 
End Sub

Hervé.

[fasedan]

Encore merci à tous pour avoir éclairé ma lanterne.
Je reviendrais surement plus tard pour d'autres questions.

Fasedan.