XL 2016 Fonction .Filter dans une variable tableau / [RESOLU]

schoum5

XLDnaute Nouveau
Bonjour à tous!

Voilà, je me permets de vous solliciter de nouveau afin de savoir s'il était possible d'utiliser la fonction .Filter dans une variable tableau par rapport un un critère ce trouvant sur un feuille puis d'y retranscrire le résultat sur une autre feuille.

Je m'explique un peu.
J'essaie de m'améliorer en VBA, c'est pas encore ça mais ça avance!!
J'ai donc commencé à utiliser les variables tableaux.
Après avoir appelé le miens en fonction de données se trouvant dans une feuille "Base", j'aimerai maintenant le filtrer par rapport à une valeur en A1 de la feuille "Modele" puis d'y retranscrire sur la même feuille le résultat de la colonne 3 de mon tableau tampon.

Pour une meilleure lecture, je vous mets mon début de code avec quelques indications pour comprendre.
Je peux également vous envoyer mon fichier excel.

Code:
Option base 1
Sub Recherche_Dans_Tab()

'création du tableau "tampon" par rapport à ma base en feuille "Base"

With Sheets("Base")
    Dim der_Lig As Integer
        der_Lig = .Range("A1").End(xlDown).Row
 
    Dim Tab_Tampon()
    ReDim Tab_Tampon(der_Lig, 8)
 
    For i = 1 To der_Lig - 1
        Tab_Tampon(i, 1) = .Range("A" & i + 1)
        Tab_Tampon(i, 2) = .Range("B" & i + 1)
        Tab_Tampon(i, 3) = .Range("C" & i + 1)
        Tab_Tampon(i, 4) = .Range("D" & i + 1)
        Tab_Tampon(i, 5) = .Range("E" & i + 1)
        Tab_Tampon(i, 6) = .Range("F" & i + 1)
        Tab_Tampon(i, 7) = .Range("G" & i + 1)
        Tab_Tampon(i, 8) = .Range("H" & i + 1)
   
 
    Next i
End With

'Fin de la création du tableau "tampon"

'j'aimerais filter dans mon Tab_Tampon la valeur qui se trouve en A1 dans ma feuille "Modele" (cette info se trouve dans la colonne 1 de mon Tab_Tampon)
Filter(Tab_Tampon(), Sheets("Modele").Range("A1")) ' c'est ce que j'ai commencé à écrire mais je bloque par la suite
'Après avoir filtrer j'aimerais copier/coller la colonne 3 de mon Tab_Tampon dans le feuille "Modele" avec les valeurs restantes après mon filtre

End Sub

J'espère être assez clair.
N'hésitez pas à me le dire je ferai en sorte d'être plus précis.
Merci d'avance à tous!!
 

schoum5

XLDnaute Nouveau
Un grand merci bisson!!! Je vais aller regarder tout ça !
Et merci pour la précision sur Filter().

EDIT: Toute petite question, est-ce que c'est adaptable si je converti/mets la base de donnée du classeur (feuille "BD") dans un tableau dans mon code (en tant que variable, un tableau à 2 dimensions non figé)?

EDIT2: J'ai rien dit, j'avais mal lu. Merci encore :)
 
Dernière édition:

Discussions similaires

Réponses
12
Affichages
225
Réponses
4
Affichages
165