Dernière Ligne Visible (Filtre Elaboré) - VBA

Bonjour,

Je fais appel à vous car j'ai un nouveau soucis sur Excel.
Lorsque je fais un filtre élaboré, j'ai un grand tableau avec des cellules visibles et d'autres masquées.
Du coup, le tableau a des lignes 3 puis 20,21,22,23, puis 26 et ainsi de suite ...
J'aimerais extraire ces données dans un autre tableau.
Pour ce faire, j'ai commencé par faire une macro qui va chercher la dernière ligne comprenant une valeur pour délimiter l'extraction.
Le problème est que la macro va récupérer la première ligne qui contient une valeur après des cellules masquées.
Je m'explique : au lieu d'aller en bas du tableau comme je le désire, la macro s'arrête à la première valeur trouver après des lignes masquées.

J'espère que c'est assez clair, je vous remercie pour votre aide !

Cordialement,
Elie

Bonjour Elie,
Non, ce n'est pas très clair (au moins pour moi).
Pourrais-tu déjà mettre ton code, ça donne une idée de ce que tu veux faire et de la méthode utilisée.
Pour ta dernière ligne est-ce que tu pars du bas de la feuille ou du début du tableau ; en général on part du bas :

Code:

---

1 2	dim DerLg as Integer DerLg = Range("A" & Rows.Count).End(xlUp).Row

---

Ou si tu travaille avec un tableau Inséré (Menu Insertion / Tableau), tu n'as même pas besoin de chercher ta dernière ligne, pour sélectionner une colonne d'un tableau :

Code:

---

Range("NomDuTablo[NomColonne]").Select

---

A +

Bonjour,

ce n'est pas plus clair pour moi également

si c'est uniquement la plage filtrée que tu souhaites récupérer, utilise la méthode SpecialCells :f1: (avec la constante xlCellTypeVisible) pour générer une plage ne contenant que le résultat de ton filtrage, que tu pourras facilement copier ailleurs


sinon, le filtre avancé permet d'exporter les données, ce qui est plus simple
(pour exporter vers une autre feuille, on doit valider l'application du filtre depuis la feuille de destination)

Bonjour,

Utiliser un filtre pour récupérer des données suivant critères est vraiment très efficace et rapide .... La clé pour la récupération est le Range.SpecialCells(xlCellTypeVisible)

Voir exemple ci-dessous, à adapter

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

Sub Supprime_OldEnregitr() ' Supprime les enregistrements du Tableau2 mis à VRAI ' Dim Wsh As Worksheet Dim TabRng As Range   ' Initialisation Set Wsh = ThisWorkbook.Worksheets("ALERTE") Application.ScreenUpdating = False   If Wsh.AutoFilterMode = True Then Wsh.AutoFilterMode = False     Set TabRng = Wsh.ListObjects("Tableau2").Range Debug.Print TabRng.AddressLocal, TabRng.Rows.Count   'On filtre TabRng.AutoFilter Field:=3, Criteria1:="VRAI" Debug.Print TabRng.SpecialCells(xlCellTypeVisible).AddressLocal   ' On enleve ce qui est visible après avoir enlevé le header Set TabRng = TabRng.Offset(1, 0).Resize(TabRng.Rows.Count - 1, TabRng.Columns.Count) TabRng.SpecialCells(xlCellTypeVisible).EntireRow.Delete   TabRng.AutoFilter Application.ScreenUpdating = True End Sub

---

Bonjour, bonjour !

Juste en passant, pas besoin de la méthode SpecialCells sur une plage filtrée pour utiliser les méthodes Copy & Delete
car par défaut elles ne s'appliquent qu'aux cellules visibles !


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Bonjour,

Merci pour vos réponses.
En fait je réalise le filtre élaboré sur un premier document, et je veux extraire les données sur un autre document.

Je m'explique par étapes :

- doc 1 : filtre élaboré sur ensemble des données (pour enlever les lignes vides etc)
- copie des données du filtre élaboré du doc 1
- doc 1 : trouver la dernière ligne non-vide (pour que l'extraction des documents futurs se fasse toute seule et se placent directement à la suite (en bas de la liste du doc 2))
- doc 2 : extraction données du doc 1
- copie extraction données doc 1 sur doc 2 (directement en bas du tableau à la suite de la dernière ligne non-vide)

Ainsi, cela me permettra d'avoir une base de données qui s'automatise à chaque fois que les utilisateurs rentrent des données dans le doc 1.
Je pense pas l'avoir expliqué de façon plus simple mais je ne sais pas comment l'expliquer autrement !

Je vous mets les morceaux de macros que j'ai pour le moment.

EXTRACTION

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub testextraction() ' testextraction Macro Dim classeurSource As Workbook, classeurDestination As Workbook 'ouvrir le classeur source (en lecture seule) Set classeurSource = Application.Workbooks.Open("D:\Users\Documents\Base Données Test\doc 1", , True) 'définir le classeur destination Set classeurDestination = ThisWorkbook 'copier les données de la feuille"essai" du classeur source vers la feuille "aaa" du classeur destination Windows("doc 1.xlsm").Activate End Sub

---

COPIE DONNEES VISIBLES

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub SelectionVisible() ' SelectionVisible Macro Range("A4").Select Selection.End(xlDown).Select Derniereligne = Selection.Row Range("A4:E" & Derniereligne).Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy ActiveSheet.Paste   End Sub

---

DERNIERE LIGNE VIDE

Code:

---

1 2 3 4 5 6 7

Sub Dernièrelignevide()   ' Dernièrelignevide Macro Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Activate   End Sub

---

Donc voilà, désolé si je ne suis pas très clair et si les macros ressemblent à rien mais j'ai commencé VBA que récemment et j'ai vraiment du mal.

Je vous remercie encore.

Elie

Bonjour,

Il y a quelques optimisations possibles du code mais rien de très grave docteur :)
Vous pourriez joindre un bout d'exemple?

Sinon, vous pouvez tester:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub SelectionVisible2() Dim InpRng As Range   Set InpRng = Range("A4").CurrentRegion.SpecialCells(xlCellTypeVisible) Debug.Print InpRng.LocalAddress   InpRng.Copy ActiveSheet.Paste End Sub

---

et normalement, en passant par le

Code:

---

Range.SpecialCells(xlCellTypeLastCell)

---

vous pouvez récupérer facilement la dernière ligne ....

Bonjour !

Merci je vais essayer la macro sur le document.

Et malheureusement je ne peux pas partager les documents en question parce qu'il s'agit de documents liés au travail et je crains ne pas pouvoir divulguer les informations dedans.

Après, je peux faire des documents similaires ..?

Merci en tout cas !

Elie