Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier / coller 10 premières cellules après filtre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Rafilo13

XLDnaute Junior
Bonjour à tous,

Après plusieurs recherches et tentatives d'adaptation infructueuses je me permets de solliciter l'aide du Forum.

Je ne pense pas que cela soit très difficile, mais quand on ne s'y connait pas trop c'est une autre affaire.

J'applique un traitement à une base de données en appliquant différents filtres jusque la pas de problème. Par contre ensuite je souhaite simplement copier coller les 10 premières cellules visibles dans un autre onglet et la impossible, puisque quand je fais un Range("A1:A10").copy bien evidement je copie aussi les cellules non désirées ...

quelqu'un aurais une piste ?

J'ai mis un fichier très simplifié pour que vous donner une idée.

En vous remerciant de l'aide que vous pourrez m'apporter.

Rafael
 

Pièces jointes

Re : Copier / coller 10 premières cellules après filtre

Bonsoir

Essaye :
Code:
Sub Copier()
Sheets("onglet A").Range("A:A").SpecialCells(xlCellTypeVisible).Copy Sheets("Onglet B").Range("A1")
End Sub
Cordialement
Chris
 
Re : Copier / coller 10 premières cellules après filtre

Bonsoir Rafilo13,

En PJ copie de ton fichier avec exemple de macro.

A +

Cordialement.

Edit: salut Chris. Évidemment, ta solution est bien plus simple et bien plus rapide que la mienne.
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…