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