Discussion :

[lienard6u]

Bonjour à tous !

J'ai un soucis d'affichage de ma listbox, j'aimerais pouvoir afficher les données de la feuille excel " Appel1" dans une listbox.
Cet affichage de la listbox doit se faire en fonction des conditions que je rentre dans la feuille "acceuil" a travers l'userform 1 en cliquant sur le bouton "Soumettre"

Le probleme c'est qu'avec le code ci dessous l'affichage conditionnel ne se fait pas .. Auriez vous une solution à mon probleme ?

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
Dim i As Integer, l as long
Dim Tableau(), x as long
 
With WorkSheets("Appel1")
l = .Range("d65536").End(xlUp).Row + 1
For i = 2 To l
      If Sheets("Acceuil").Range("B2").Value = "PME" And Sheets("Appel1").Cells(i, 1).Value = "PME" Then
            x=x+1
            redim Tableau(1 to 12 , 1 to x)
           Tableau(1 , x) = .Cells(i, 1).Value
           Tableau(2 , x) = .Cells(i, 2).Value
           Tableau(3 , x) = .Cells(i, 4).Value
           Tableau(4 , x) = .Cells(i, 7).Value
           Tableau(5, x) = .Cells(i, 5).Value
           Tableau(6 , x) = .Cells(i, 6).Value
           Tableau(7 , x) = .Cells(i, 8).Value
           Tableau(8 , x) = .Cells(i, 9).Value
           Tableau(9 , x) = .Cells(i, 10).Value
           Tableau(10 , x) = .Cells(i, 11).Value
           Tableau(11 , x) = .Cells(i, 12).Value
           Tableau(12 , x) = .Cells(i, 13).Value
    End If
Next i
End With
 
Listbox1.list =application.transpose( Tableau)
' ou a priori
'Listbox1.column= Tableau

Merci d'avance !