Discussion :

[La fermière]

Bonjour,
Je souhaiterais mettre ma base de données dans un tableau puis la trier en fonction du nom d'une colonne (615) et n'afficher dans la ListBox 4 (multicolonnes) que les valeurs des lignes identiques (Case 1) en cliquant sur le bouton 12. Je me suis pour cela servie de la fonction

Code :

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

FiltreArrayCléColRécup(Tbl, clé, colClé, colRécup)

mais j'ai le message d'erreur suivant : Erreur d'exécution '424': Objet requis qui apparaît.

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
Private Sub CommandButton12_click()
 
Dim a, b, feuille
Set feuille = Sheets("CLASSEMENT")
Set a = feuille.Range("A2:G" & f.[A65000].End(xlUp).Row).Value
  b = FiltreArrayCléColRécup(a, "Case 1", 615, Array(615, 4, 5, 6, 10, 11, 12, 17, 14))
  [p2].Resize(UBound(b), UBound(b, 2)) = b
b = Me.ListBox4.List
 
End Sub
 
Function FiltreArrayCléColRécup(Tbl, clé, colClé, colRécup)
  Dim n, d As Object, c, i, k
  n = 0
  Set d = CreateObject("scripting.dictionary")
  For Each c In clé: d(c) = "": Next c
  For i = 1 To UBound(Tbl)
    If d.Exists(Tbl(i, colClé)) Then n = n + 1
  Next i
  Dim Tbl2(): ReDim Tbl2(1 To n, LBound(colRécup) To UBound(colRécup))
  n = 0
  For i = 1 To UBound(Tbl)
    If d.Exists(Tbl(i, colClé)) Then
      n = n + 1
      For k = LBound(colRécup) To UBound(colRécup): Tbl2(n, k) = Tbl(i, colRécup(k)): Next k
    End If
  Next i
  If n > 0 Then FiltreArrayCléColRécup = Tbl2
End Function

Pourriez-vous me dire pourquoi cela ne fonctionne pas ? Merci

[Zekraoui_Jakani]

A quelle ligne se produit l'erreur ?
Conseil: transformer votre tableau en tableau structurel (insérer table dans ruban); c'est beaucoup plus pratique et peut facilement répondre à votre demande.

[La fermière]

Bonjour,

Ci-joint le classeur :
Classeur4.xlsm

Lorsque je clique sur le bouton "SAUMUR", j'ai l'erreur ci-dessous qui apparaît :

Erreur d'exécution '424' : objet requis

Cela me met une erreur à la ligne ci-dessous :

Code :

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

Set a = feuille.Range("B3:J" & f.[A65000].End(xlUp).Row).Value

[Pierre Fauconnier]

Salut.

Tu as déclaré un objet portant le nom Feuille, et sur la ligne incriminée, tu utilises f.. Essaie ceci: Set a = feuille.Range("B3:J" & feuille.[A65000].End(xlUp).Row).Value.

Cela dit, c'est du vieux code! "A65000" ça sent le XL2003, voire plus vieux, et une syntaxe que je te déconseille: [A65000]...

Je suivrais le conseil de Zekraoui et je travaillerais avec un tableau structuré. Et pour correspondre à ma signature, je travaillerais avec Excel et un tableau temporaire pour éviter de manipuler un array en VBA avec tout ce que ça comporte de "niveau informatique" à comprendre.


Cela étant, il y a d'autres erreurs dans ton code... Dans CommandButton1_Click, tu as la ligne Set a = feuille.Range("B3:J" & feuille.[A65000].End(xlUp).Row).Value, or a est un tableau, donc tu ne peux pas mettre Set devant, qui est réservé pour l'affectation de valeurs à des objets.

Dans FiltreArrayCléColRécup, tu as For Each c In clé: d(c) = "": Next c (Très mauvaise idée, plusieurs instructions sur la même ligne, au passage) or c contient "Saumur", alors que for each requiert une collection...

L'idée des trois boutons est à bannir. Si demain tu dois utiliser plus de villes, ça va devenir ingérable puisque tu vas devoir multiplier les codes des boutons ou passer par une classe qui les gèrent. Perso, je verrais mieux une listbox ou une combobox pour choisir la ville

Je ne sais pas où tu as péché ce code (la syntaxe me donne bien une idée du "pondeur de code") mais il n'est pas fonctionnel, soit de façon native soit suite à tes modifications...