Probleme listbox avec condition

Version imprimable

1 pièce(s) jointe(s)

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:

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 ! :(

bonjour
1/ merci de baliser ton code pour qu'il soit lisible (entre #)
2/ tentative de réponse
* inutile d'ajouter 1 à la dernière ligne non vide
* déclarer la valeur de x en dehors du boucle et après la fin de if ajouter un 1 (x=x+1)

Code:

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("g65536").End(xlUp).Row
x = 1
For i = 2 To l
      If Sheets("Acceuil").Range("B2").Value = "PME" And Sheets("Appel1").Cells(i, 1).Value = "PME" Then
 
            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
     x = x + 1
Next i
End With
 
ListBox1.List = Application.Transpose(Tableau)

2 pièce(s) jointe(s)

Re bonjour,

Merci pour la synthaxe !

Voici en Photo ce que j'obtiens .. hors ce n'est pas la seule ligne présentant "PME" comme condition ... j'en ai 2 ou 3 pour le test mais ça ne fonctionne pas..

le code semble bon

J'ai essayé de modifié

Code:

l = .Range("g65536").End(xlUp).Row

par

Code:

l = .Range("m65536").End(xlUp).Row

et ça modifie mais en ne mettant les colonnes de la première ligne, tout en ligne et pas en colonne..

Code:

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("g65536").End(xlUp).Row
x = 1
For i = 2 To l
      If Sheets("Acceuil").Range("B2").Value = "PME" And Sheets("Appel1").Cells(i, 1).Value = "PME" Then
 
            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
     x = x + 1
Next i
End With
 
ListBox1.List = Application.Transpose(Tableau)

re bonjour
je suis nul en tableau et pour tel cas je fais avec :

Code:

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
Dim i As Integer, l As Long
Dim x As Byte
 
With Worksheets("Appel1")
l = .Range("g65536").End(xlUp).Row
 
x = 0
For i = 2 To l
      If Sheets("Acceuil").Range("B2").Value = "PME" And Sheets("Appel1").Cells(i, 1).Value = "PME" Then
 
 
 On Error Resume Next
    UserForm2.ListBox1.ColumnCount = 12
    UserForm2.ListBox1.ColumnWidths = "30;30;30;30;30;30;30;30;30;30;30;30"
    UserForm2.ListBox1.AddItem
    UserForm2.ListBox1.Column(0, x) = .Cells(i, 1).Value
    UserForm2.ListBox1.Column(1, x) = .Cells(i, 2).Value
    UserForm2.ListBox1.Column(2, x) = .Cells(i, 3).Value
    UserForm2.ListBox1.Column(3, x) = .Cells(i, 4).Value
    UserForm2.ListBox1.Column(4, x) = .Cells(i, 5).Value
    UserForm2.ListBox1.Column(5, x) = .Cells(i, 6).Value
    UserForm2.ListBox1.Column(6, x) = .Cells(i, 7).Value
    UserForm2.ListBox1.Column(7, x) = .Cells(i, 8).Value
    UserForm2.ListBox1.Column(8, x) = .Cells(i, 9).Value
    UserForm2.ListBox1.Column(9, x) = .Cells(i, 10).Value
    UserForm2.ListBox1.Column(10, x) = .Cells(i, 11).Value
    UserForm2.ListBox1.Column(11, x) = .Cells(i, 12).Value
 
   x = x + 1
    End If
 
     Next i
 
 
 
 End With

15/05/2019, 13h02
lienard6u

1 pièce(s) jointe(s)

Oui j'ai utilisé aussi le AddItem mais cependant je fais face a plus de 10 colonnes dans mon tableau donc plus de 10 colonnes sur la listbox hors j'ai cette erreur du à la limite de additem
et c'est pour cela que j'étais parti sur l'autre solution ..