Copier données filtrées visibles sans l’en-tête
Bonjour le forum, bonjour à tous,
Je souhaite copier des données filtrées visibles dans une autre feuille, pour cela j’utilise le code suivant :
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Ma question est la suivante :
Comment faire pour copier les données filtrées visibles sans l’entête c.-à-d. sans la 1ere ligne.
PS : si j’exclue cette 1ere ligne c’est parce que j’ai des boutons qui sert à exécuter d’autres macros, le fait de ne pas exclure cette ligne, me copie aussi les boutons se trouvant sur cette 1ere ligne.
D’avance merci pour votre aide.
Bonjour Harzer
Tu peux passer par la recherche de la dernière ligne remplie et la sélection à partir de la 2ème ligne
DLig = Cells.SpecialCells(xlCellTypeVisible).Row
Rows("2:" & DLig).Copy
' ou pour ne copier que les cellules des colonnes A à Z (par exemple)
Range("A2:Z" & DLig).CopyA+
Bonjour
Autre solution : dans les propriétés des boutons, cocher "Ne pas déplacer ou dimensionner avec les cellules"
Amicalement
Nad
Bonjour à tous,
Merci à tous les deux pour vos réponses.
Amicalement.