Discussion :

[juju152]

Bonjour à tous !

Je suis un débutant sur vba et je rencontre un gros problème.

Je dois créer un fichier qui récupère des données dans une base de données, jusque-là tout va bien, ce fichier comporte un peu plus de 60 000 lignes et tous les jours des lignes se rajoutent.

Pour les exécuter rapidement j'ai déclaré le tableau en virtuel sur VBA.

Mon gros problème est que je dois filtrer (2 filtres: date, numéro) les données dans mon tableau, mais je n'arrive pas à trouver une fonction qui filtre ou alors un programme qui permet de filtrer sur VBA, pour ensuite recopier ce tableau sur une feuille Excel.

Merci beaucoup.

[Marc-L]

Bonjour,

voir peut-être du côté de l'aide VBA de la fonction Filter …

[juju152]

La fonction filter ne s'utilise que sur un tableau à 1 dimension et le mien en a 2.
Cette fonction peut quand même être utilisé ?

[casefayere]

Bonjour,
exemple à améliorer car vite fait

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
Sub exemple()
Dim Dl As Range, Tbl, tblFiltre(), x As Long, NbF As Long, y As Long
y = 0
With Sheets("Feuil1")
  Set Dl = .Range("A" & .Rows.Count).End(xlUp)
  Tbl = .Range("A2", Dl)
  'filtre demandé
  NbF = WorksheetFunction.CountIf(.Range("A2", Dl), "le filtre")
  ReDim tblFiltre(1 To NbF, 1 To 2)
  For x = 1 To UBound(Tbl, 1)
    If Tbl(x, 1) = "le filtre" Then
      y = y + 1
      tblFiltre(y, 1) = Tbl(x, 1)
      tblFiltre(y, 2) = Tbl(x, 2)
    End If
  Next
End With
Sheets("Feuil2").Range("A2").Resize(UBound(tblFiltre, 1), UBound(tblFiltre, 2)) = tblFiltre
 
End Sub

[juju152]

Merci beaucoup pour cette réponse rapide !
j'éssaye de le mettre dans mon programme, si j'ai bien compris le but est de chercher les bonnes valeurs dans un premier tableau, et ensuite de les incrémenter dans un autre tableau ?

Du coup je voulais aussi savoir si quelqu'un sait comment utiliser la fonction FILTER = Filter(sourcesrray, match[, include[, compare]])
Car je ne sais pas trop quoi mettre à la place de "Match", "Include", "compare".

[Marc-L]

Je ne ferais pas mieux vis à vis de l'explication pourtant claire dans son aide !

Sinon il y a un exemple vers la fin de ce tutoriel : Manipuler les chaînes de caractères en VB6 et VBA Excel …

[casefayere]

Re,

je reprends dès le départ :

...je dois filtrer (2 filtres: date, numéro) ...

ou sont les filtres : même colonne, colonnes différentes ?

La fonction filter ne s'utilise que sur un tableau à 1 dimension et le mien en a 2.

2 dimensions mais combien de colonnes ?

Du coup je voulais aussi savoir si quelqu'un sait comment utiliser la fonction FILTER = Filter(sourcesrray, match[, include[, compare]])
Car je ne sais pas trop quoi mettre à la place de "Match", "Include", "compare".

c'est une autre question ou a t'elle rapport avec le problème actuel ?

Ce que j'ai envoyé n'est qu'un exemple (1 seul filtre sur une colonne) qu'on peut adapter à tous les filtres qu'on souhaitent sur n'importe quelle colonne. (on utilisera "Countifs" à la place de" Countif")

N'hésites pas à donner de plus amples explications.

Bon courage

[juju152]

Merci beaucoup !
Mon programme marche!
Il filtre mes données.
Mais il reste un petit problème comment je peux faire pour le forcer a continue de chercher ?

[casefayere]

Mais il reste un petit problème comment je peux faire pour le forcer a continue de chercher ?

à continuer de chercher ou ? si tu veux répéter l'opération par la suite, insères un bouton de commande(activeX) sur ta feuille et rentre le code ou dans son Private Sub, ecris tout simplement "exemple" soit :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
exemple
End Sub

bien sur parce que c'est ce nom que j'ai donné au code, sinon je ne vois pas ce que tu veux dire

[juju152]

Bonjour à tous!

Ce matin mon programme marche super bien et je vous remercie, mais mon problème est que quand il arrive l'étape filtre et que la valeur demandé n'est pas dans la première ligne il me sort rien...
Car j'ai créé un userform ou on rentre les valeurs des numéros (colonne 2) et il y a 8 sortes de numéro (27 , 28 , 29 , 30 , 31 , 33).
Le tableau se présente un peu comme ça :
Numéros :
27
27
28
28
29
29
30
30
31
...

Quand je rentre 27 dans l'userform il me reporte bien les bonnes valeurs dans mon deuxième tableau, mais quand je mets 30 il me sort rien ...
C'est pour cela que hier je vous parlez d'un forçage, pour qu'il continue à lire jusqu'à la fin.

Merci

[casefayere]

Bonjour,

Que te répondre ?, envoies ton travail avec des données bidon si tu veux, je vérifierai dès qu je serai disponible

[juju152]

Voila, mon filtre marche super bien je n'ai plus aucun problème, par contre est-il possible de filtrer plusieur variable en meme temps sur la même colonne ?
exemple: numéros "27 , 28"

[casefayere]

Comme tu ne communiques toujours pas, je restes sur mon exemple, remplacer

Code :

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

If Tbl(x, 1) = "le filtre" Then

par

Code :

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

If Tbl(x, 1) = "le filtre" Or Tbl(x, 1) = "le filtre2" Then