Discussion :

[alaintoulouse]

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

[unparia]

Bonjour

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 ??

Ce n'est pas uniquement "possible"; c'est carrément souhaitable.
Rubrique à lire dans ton aide VBA : Range.Copy, méthode
Et nul besoin de passer par des Select, Copy, Paste, etc ...

[alaintoulouse]

Merci Unparia

En fait j'avais chercher dans pas mal de forums mais certainement en ne formulant pas comme il faut ma demande sur google.

Merci encore , je vais juste adapter à mes besoins.

Alain