VBA copier une plage
Résolu/Fermé
mxtess
-
Modifié par mxtess le 13/02/2012 à 17:38
m@rina Messages postés 17533 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 14 mars 2023 - 14 févr. 2012 à 23:45
m@rina Messages postés 17533 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 14 mars 2023 - 14 févr. 2012 à 23:45
A voir également:
- VBA copier une plage
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Erreur 1004 vba ✓ - Forum VB / VBA
- Copier une vidéo youtube - Guide
- Vba selection plage variable ✓ - Forum VB / VBA
- Super copier - Télécharger - Gestion de fichiers
1 réponse
m@rina
Messages postés
17533
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
14 mars 2023
11 053
14 févr. 2012 à 00:58
14 févr. 2012 à 00:58
Bonjour,
Voici un code qui copie la plage en cours de la feuille A vers la feuille B.
Çar marche si la ligne au dessus de la cellule A11 est vide, car la copie prend toute la zone en cours.
S'il faut copier à partir de la cellule A11 parce qu'il y a quelque chose au dessus, faut modifier un peu le code.
m@rina
Voici un code qui copie la plage en cours de la feuille A vers la feuille B.
Sub copier_coller()
Application.ScreenUpdating = False
Dim f_A As Worksheet
Dim f_B As Worksheet
Dim plage1 As Range
Dim plage2 As Range
Set f_A = ActiveWorkbook.Sheets("feuil1")
Set f_B = ActiveWorkbook.Sheets("feuil2")
Set plage1 = f_A.Range("A11").CurrentRegion
Set plage2 = f_B.Range("A65000").End(xlUp).Offset(1, 0)
f_A.Activate
plage1.Copy Destination:=plage2
f_B.Activate
Application.ScreenUpdating = True
End Sub
Çar marche si la ligne au dessus de la cellule A11 est vide, car la copie prend toute la zone en cours.
S'il faut copier à partir de la cellule A11 parce qu'il y a quelque chose au dessus, faut modifier un peu le code.
m@rina
14 févr. 2012 à 08:20
cependant la cellule A11 n'était qu'un exemple...j'aimerais simplement que la plage se colle à la suite des autres lignes. Cela veut dire que cela pourrait être n'importe quel ligne...
en espérant que celq soit possible...merci
14 févr. 2012 à 23:45
m@rina