Discussion :

[bibou1212]

Bonjour à tous

Je vais essayer d'être clair :

j'ai un code trés simple Sub copie()

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
'
' copie Macro
' Copie de la feuille de tri dans la page impression et impression
'
' Touche de raccourci du clavier: Ctrl+q
'
 
    Dim Zone As Range
    Range("A23").Select
    Selection.Copy
    Sheets("impression").Select
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Feuille de tri").Select
 'Sheets("impression").PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Mon problème est sur la ligne Range("A23"). select,

Ce que je voudrais c'est copier une plage de cellule désigné par la cellule A23 (dans laquelle est écrit AU9:AX17)

Lorsque j’exécute la macro il me copie juste AU9:AX17 et le colle dans la cellule B7, je voudrais copier la plage AU9:AX17

Merci d'avance

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Zone As Range
Range(Range("A23").Value).Copy Destination:=Sheets("impression").Range("B7")
Application.CutCopyMode = False
Sheets("Feuille de tri").Select
'Sheets("impression").PrintOut Copies:=2, Collate:=True, _
 IgnorePrintAreas:=False
End Sub

attention il faut etre sur le sheets dans le quel tu copie et non celui de destination

si ce n'est pas le sheets ou se trouve la cellule a copier qui est actif alors..on fait comme ceci:. remplace "origine" par le nom de ton sheets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

with sheets("origine"):.Range(.Range("A23").Value).Copy Destination:=Sheets("impression").Range("B7"):end with

[bibou1212]

Merci ça marche super bien. A bientôt