Excel VBA : Copie Plage variable filtrée
Résolu
Eaheru
Messages postés
205
Statut
Membre
-
matjukid -
matjukid -
Bonjour,
Je cherche à résoudre le problème suivant depuis hier sans succès :
J'ai un fichier Excel qui contient plusieurs centaines de lignes, les opérations sont les suivantes :
- Réalisation d'un filtrage sur la colonne K,
- Copier des lignes restantes après ce filtrage dans l'onglet 1 d'un nouveau fichier.
Mon problème vient du fait que la plage a copier est variable et change chaque jour et que lorsque je tente un copier / coller, j'ai aussi les lignes qui sont normalement filtrées qui sont transférées sur le nouveau fichier.
Ce que je ne souhaites absolument pas :)
Quelqu'un aurait une idée svp ?
Je cherche à résoudre le problème suivant depuis hier sans succès :
J'ai un fichier Excel qui contient plusieurs centaines de lignes, les opérations sont les suivantes :
- Réalisation d'un filtrage sur la colonne K,
- Copier des lignes restantes après ce filtrage dans l'onglet 1 d'un nouveau fichier.
Mon problème vient du fait que la plage a copier est variable et change chaque jour et que lorsque je tente un copier / coller, j'ai aussi les lignes qui sont normalement filtrées qui sont transférées sur le nouveau fichier.
Ce que je ne souhaites absolument pas :)
Quelqu'un aurait une idée svp ?
A voir également:
- Excel VBA : Copie Plage variable filtrée
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
Bonjour,
La syntaxe pour ne copier que les lignes visibles est la suivante :
En gras : à adapter
par exemple :
Cordialement,
-- Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --
La syntaxe pour ne copier que les lignes visibles est la suivante :
Sheets(NomDeLaFeuille).Range("A2:AZ16500").SpecialCells(xlVisible).Copy
En gras : à adapter
par exemple :
Range("A2:AZ16500") peux devenir "variable" comme ceci :
Range("A2:AZ" & Range("A65536").End(xlUp).Row)
Cordialement,
-- Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --
matjukid
merci pour tes bons conseils. c'est vraiment sympa!