Pbl alimentation/récupération dans Array pour autofilter

Version imprimable

Dans un listbox multicolonnes a selections multiples (sur un userform) je selectionne des lignes (factures).
Ensuite j'ai besoin de récupérer ces lignes pour alimenter un tri sur une feuille via Autofilter (avec nf) et n'afficher ainsi que les factures selectionnées.
Mon idée était d'alimenter un Array afin de pouvoir en extraire mes données (en listant les arguments par exemple).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 <div style="margin-left:40px">For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) = True Then 'je repère bien les selections nf = Me.ListBox1.List(i, 2) 'nf pour alimenter Autofilter MsgBox Me.ListBox1.List(i, 2) 'pour voir si je les ai bien => OK L = Array(Me.ListBox1.List(i, 2)) If IsArray(L) = True Then 'Pour vérifier que je crée bien un tableau MsgBox ("VARIABLE = TABLEAU") 'Il y est bien, sauf qu'il est vide (comme s'il était sans argument) ???!!!! Else: MsgBox ("Pas de tableau") End If Next End if</div>
Je voudrais pouvoir récupérer les valeurs des arguments de L sous la forme
msgbox L(1)
msgbox L(2)
msgbox L(3)...

Mais je n'y arrive pas malgré les quelques heures passées dessus...
Je vois bien déjà que je n'ai qu'un seul argument dans array, alors que je devrais en avoir autant que de sélections, mais je n'ai pas réussi à trouver.
Ceci est mon premier message sur le forum. J'espère en avoir respecté les règles. Peut être aussi qu'Array n'est pas appropriée et qu'il y a plus simple. Merci à ceux qui pourront me dépanner ou m'éclairer.
Bien cordialement.
AD

Bonsoir,

tu peux alors utiliser un tableau dynamique et le dimentionner avec le nombre des sélections .

Exemple, avec une listbox à une colonne (à toi de jouer avec le reste)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
  If List1.SelCount = 0 Then Exit Sub
  Dim montableau() As String, I As Integer
  ReDim montableau(List1.SelCount - 1)
  n = 0
  For I = 0 To List1.ListCount - 1
   If List1.Selected(I) Then
     montableau(n) = List1.List(I)
     n = n + 1
   End If
  Next
  ' et maintenant, juste pour voir ce qu'on a fait
  For I = 0 To UBound(montableau)
    MsgBox montableau(I)
  Next
End Sub

Pbl alimentation/récupération dans Array pour autofilter (suite)

Bonsoir et merci pour votre réponse

J'ai adapté le code comme ci-après (ListBox1...).
Mais cela ne fonctionne pas: SelCount se met en inversion vidéo et le message suivant apparaît : "Erreur de compilation - Membre de méthode ou de données introuvable." => erreur 461

J'ai vérifié ma version de VBA : c'est Visual Basic 6.3
Il semble que je ne dispose pas de SelCount?! (L'aide à la frappe ne fonctionne pas... => pas dans la liste des "propriétés" proposés...)
Pas de résultat non plus pour SelCount dans l'aide intégrée de Microsoft VBA?!
Comment est-ce possible ?!

Par contre j'ai bien trouvé sur le Web

Visual Basic Reference
SelCount Property
Returns the number of selected items in a ListBox control.
Syntax
object.SelCount
Bien cordialement.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub CommandButton6_Click() If ListBox1.SelCount = 0 Then Exit Sub Dim montableau() As String, I As Integer ReDim montableau(ListBox1.SelCount - 1) n = 0 For I = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(I) Then montableau(n) = ListBox1.List(I) n = n + 1 End If Next ' et maintenant, juste pour voir ce qu'on a fait For I = 0 To UBound(montableau) MsgBox montableau(I) Next End Sub

18/02/2009, 02h57
fred65200

bonjour, il te faut un tableau à plusieurs dimensions.

http://silkyroad.developpez.com/vba/tableaux/#LII-C

cordialement

Re,...

Je vois en effet que SelCount n'existe pas en VBA !

Alors :

soit tu utilises en effet un tableau dynamique que tu redimensionnes à chaque fois avec Redim Preserve,

soit tu le dimensionnes une fois pour toutes après avoir fabriqué un "VbaSelCount" (qui ne fait que compoter le nombre d'articles sélectionnés !

Exemple, donc (en reprenant mon 1er exemple) :
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 Private Sub Command1_Click() If vbaselcount = 0 Then Exit Sub Dim montableau() As String, I As Integer ReDim montableau(vbaselcount - 1) n = 0 For I = 0 To List1.ListCount - 1 If List1.Selected(I) Then montableau(n) = List1.List(I) n = n + 1 End If Next ' et maintenant, juste pour voir ce qu'on a fait For I = 0 To UBound(montableau) MsgBox montableau(I) Next End Sub Private Function vbaselcount() As Integer For I = 0 To List1.ListCount - 1 If List1.Selected(I) Then vbaselcount = vbaselcount + 1 End If Next End Function

18/02/2009, 16h31
Antoine D

Citation:

Envoyé par fred65200

bonjour, il te faut un tableau à plusieurs dimensions.

http://silkyroad.developpez.com/vba/tableaux/#LII-C

cordialement

Merci, mais c'est un poil court comme réponse. J'ai regardé le lien et je ne suis pas plus avancé qu'avant (voir pire). Je suis plutôt dans la catégorie des débutants et je ne comprends déjà pas vraiment le fonctionnement d'un tableau à UNE dimension...
Bien cordialement.

Citation:
Envoyé par ucfoutu
Re,...

Je vois en effet que SelCount n'existe pas en VBA !

Alors :

soit tu utilises en effet un tableau dynamique que tu redimensionnes à chaque fois avec Redim Preserve,

soit tu le dimensionnes une fois pour toutes après avoir fabriqué un "VbaSelCount" (qui ne fait que compoter le nombre d'articles sélectionnés !

Exemple, donc (en reprenant mon 1er exemple) :
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 Private Sub Command1_Click() If vbaselcount = 0 Then Exit Sub Dim montableau() As String, I As Integer ReDim montableau(vbaselcount - 1) n = 0 For I = 0 To List1.ListCount - 1 If List1.Selected(I) Then montableau(n) = List1.List(I) n = n + 1 End If Next ' et maintenant, juste pour voir ce qu'on a fait For I = 0 To UBound(montableau) MsgBox montableau(I) Next End Sub Private Function vbaselcount() As Integer For I = 0 To List1.ListCount - 1 If List1.Selected(I) Then vbaselcount = vbaselcount + 1 End If Next End Function
Désolé de ne pas vous suivre. Je ne comprends pas vos indications. Je suis débutant en VBA...
Je n'ai même pas le commencement d'une ID pour fabriquer un "VBASelCout" pour pouvoir interpréter votre code. D'ailleurs si j'arrivais à compter le nombre de selections de ma listbox j'aurai déjà moins de soucis... J'ai cherché l'équivalent de SelCount en VBA mais je n'ai rien trouvé. Il doit pourtant exister une fonction équivalente. Compter des sélections est un problème assez récurent...
Afin de rester "pratique" pouvez vous m'indiquer l'erreur dans ma ligne de code suivante (alimentation Array). Je vois bien qu'elle est incorrecte puisqu'elle n'indique qu'un seul argument, mais je ne sais pas comment l'écrire autrement.
L = Array(Me.ListBox1.List(i, 2))
Pour la suite (récupération des arguments) je devrai pouvoir m'en sortir.

18/02/2009, 19h13
ucfoutu

Citation:

Envoyé par Antoine D

Je n'ai même pas le commencement d'une ID pour fabriquer un "VBASelCout" pour pouvoir interpréter votre code. D'ailleurs si j'arrivais à compter le nombre de selections de ma listbox j'aurai déjà moins de soucis... J'ai cherché l'équivalent de SelCount en VBA mais je n'ai rien trouvé. .

Ben (çà, alors !)...
Je ne vois pas de quelle autre idée tu aurais besoin, sinon copier/coller la fonction VBASelCount que je t'ai faite ! (elle est toute cuite et prête à servir !)

Désolé je n'avais pas lu jusqu'au bout...
Et pour le coup cela fonctionne à merveille.
Mon problème est donc résolu mais je n'ai pas trouvé de case à cocher pour l'indiquer.
Je commence à comprendre un peu mieux les tableaux, les Dim et les Redim...
Je donne ci-après le code que j'ai commenté ligne à ligne.
Pour ceux comme moi qui rencontrent des difficultés avec les tableaux...
Attention il y a peut être des bourdes...

Un grand merci pour l'aide.

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
37
38
39
40
41
42
Private Sub CommandButton10_Click() 'TRI FACTURE
 
         ActiveSheet.Range("A:W").AutoFilter Field:=1, Criteria1:=Me.ComboBox1 'filtrage de l'AUTEUR
          'Application.DisplayAlerts = False
 
  '19/02/2009 de ucfoutu à AD via le forume des développeurs
  If vbaselcount = 0 Then Exit Sub
 
  Dim I As Integer
  Dim montableau() As String        'On ne précise pas la Dimension du tableau, juste String
  ReDim montableau(vbaselcount - 1) 'redimensionnement = nb de sélections (via la function vbaselCount)
                                    'redim sans remettre à String sinon => erreur
                                    'vbaselcount-1 car comptage à partir de 0
                                    'ex : Dim Tableau(3) As Integer, déclare un tableau de 4 entiers
 
  n = 0                                       '1er argument du tableau
    For I = 0 To ListBox1.ListCount - 1       'liste toutes les ref de la listBox
       If ListBox1.Selected(I) Then          'Trouve les sélections dans la LisBox
           montableau(n) = ListBox1.List(I, 2) 'Rempli montableau avec les selections trouvées
                                              'tableau(0) => 1er argument tableau(1)=> 2ème, etc...
              n = n + 1                       'passe le focus sur l'argument suivant du tableau
           End If                             'fin de la condition "si sélection dans la ListBox"
        Next                                  'passe à l'élément suivant de la LisBox
 
'  ' et maintenant, juste pour voir ce qu'on a fait
'  For I = 0 To UBound(montableau)  'Ubound Retourne le plus grand indice disponible
'                                   'pour la dimension indiquée d'un tableau
'    MsgBox montableau(I)
'  Next
'
  ActiveSheet.Range("A:W").AutoFilter Field:=13, Criteria1:=Array(montableau), Operator:=xlFilterValues
 
'Effacement liste & selections ListBox + focus auteur sur "" + Masquage Userform
    For x = 0 To ListBox1.ColumnCount
      For I = 0 To ListBox1.ListCount - 1
        ListBox1.List(I, x) = Clear
          Me.ListBox1.Selected(I) = False
           Next I
             Next x
               ComboBox1.ListIndex = -1
                 UserForm1.Hide
End Sub