VBA copier une plage Résolu/Fermé

Question

Bonjour,


voici mon problème sur execl 2007 

Je dispose d'une plage sur une feuille "A" et j'aimerais créer quelques lignes de code vba pour que je puisse, tout en étant sur la feuille "B": 

- sélectionner la plage  
- la coller sur la feuille "B" de façon à se qu'elle apparaisse à la suite des données déjà présentes. (e.g. la dernière ligne de la feuille "B" est la 10, je souhaite que ma plage soit copiée à partir de la cellule A11. 


Je n'arrive pas à retranscrire cela en VBA. 

Merci d'avance pour votre aide! 
Cordialement

m@rina · Answer

Bonjour,

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

VBA copier une plage

1 réponse

Discussions similaires

Newsletters