Bonjour,

Je voudrais sélectionner des plages de cellules indépendamment pour ensuite les coller sur une autre page. Je m'explique:

- j'ai deux plages a sélectionner en "feuil1" : ("A1:B5") et ("C8:F16") que je nomme "plage1" et "plage2"
- je voudrais les copier sur la page "Feuil2" a des endroits différents: la première en A5 et la deuxième en G5.

Le truc spécifique c'est que je ne voudrais pas faire l'aller retour entre les deux pages : copier une plage, aller la copier sur l'autre page, puis revenir sur la première page, copier la deuxième plage et ensuite retourner sur la deuxième et coller.

Est ce possible ??

Je mets mon code actuel. J'ai mis en "commentaire" les lignes que j'ai essayer mais qui ne marchent pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub essai()
 
Dim plage1 As Range
Dim plage2 As Range
 
 
Sheets("feuil1").Activate
Set plage1 = Range("A1:B5")
plage1.Copy
 
'Set plage2 = Range("C8:F16")
'plage2.Copy
 
Sheets("Feuil2").Select
 
Range("A5").Activate
Selection.PasteSpecial
 
'Range("G5").Activate
'Selection.PasteSpecial
 
 
End Sub

Merci pour votre aide.


Alain