Copier coller les lignes visibles d'un tableau après la sélection d'un filtre.
Code de la vidéo :
Sub copier_coller()
Dim ws_feuil1 As Worksheet
Dim ws_feuil2 As Worksheet
Dim lstrw As Long
'identifier mes onglets
Set ws_feuil1 = Worksheets(1)
Set ws_feuil2 = Worksheets(2)
'dernière ligne
lstrw = ws_feuil1.Cells(Rows.Count, 1).End(xlUp).Row
'copier coller
ws_feuil1.Range(ws_feuil1.Cells(1, 1), ws_feuil1.Cells(lstrw, 2)).Copy ws_feuil2.Cells(1, 1)
'message
MsgBox ("Fin")
End Sub
-------------------------------
MERCI
-------------------------------
De regarder mes vidéos,
Pour vos partages
Et vos commentaires !
-------------------------------
RENDEZ-VOUS SUR MON SITE INTERNET
-------------------------------
www.kevinbrund...
Retrouvez y :
Des fichiers Excel à télécharger gratuitement
Mes formules clés en main sur Excel avec des fichiers prêts à l'emploi
Mes services de Consultant Optimisation, Performance et Génération d'idées
-------------------------------
AUTRES RESSOURCES EN LIGNE
-------------------------------
Livres publiés : www.amazon.fr/...
Cours en ligne sur Udemy :
VBA Macro Excel - Formulaire simplifié sur une feuille Excel www.udemy.com/...
VBA Macro Excel - Compiler des fichiers dans un seul tableau www.udemy.com/...
Suivez toutes les actualités sur mon site internet directement.
-------------------------------
DES QUESTIONS ?
-------------------------------
Laissez vos questions en commentaires ou contactez-moi directement via mes réseaux sociaux.
-------------------------------
RESEAUX SOCIAUX
-------------------------------
Pour en savoir plus sur moi et me contacter :
Site internet : www.kevinbrund...
LinkedIn : / k%c3%a9vin-brundu-9a91...
Негізгі бет Copier coller les lignes visibles
Пікірлер: 3