Discussion :

[Progeric]

Bonjour,

J'aimerai simplifier le code suivant en arrivant à faire un Range et un copier/coller

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
nmrdeb = Cells(4, 2).Value
nmrfin = Cells(5, 2).Value   
 
Worksheets(nomfeuil).Range(Worksheets(nomfeuil).Cells(nmrdeb, 9), Worksheets(nomfeuil).Cells(nmrfin, 12)).Copy
Cells(15, 7).Select
ActiveSheet.Paste
Worksheets(nomfeuil).Range(Worksheets(nomfeuil).Cells(nmrdeb, 16), Worksheets(nomfeuil).Cells(nmrfin, 16)).Copy
Cells(15, 11).Select
ActiveSheet.Paste
Worksheets(nomfeuil).Range(Worksheets(nomfeuil).Cells(nmrdeb, 20), Worksheets(nomfeuil).Cells(nmrfin, 20)).Copy
Cells(15, 12).Select
ActiveSheet.Paste

Il me faudrait un code qui ressemble à ça :

Code :

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

1
2
3
4
 
Worksheets(nomfeuil).Range(Range(Worksheets(nomfeuil).Cells(nmrdeb, 9), Worksheets(nomfeuil).Cells(nmrfin, 12)), Range(Worksheets(nomfeuil).Cells(nmrdeb, 16), Worksheets(nomfeuil).Cells(nmrfin, 16)), Range(Worksheets(nomfeuil).Cells(nmrdeb, 20), Worksheets(nomfeuil).Cells(nmrfin, 20))).Copy
 Cells(15, 7).Select
ActiveSheet.Paste

Merci pour votre aide

[Tête de chat]

Bonjour,
à ma connaissance non, ou alors l'astuce qui permettrait de le faire m'échappe pour l'instant.

Tu peux déjà simplifier un peu comme ça :

Code :

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

1
2
3
4
5
6
7
8
With Worksheets(nomfeuil)
    .Range(.Cells(nmrdeb, 9), .Cells(nmrfin, 12)).Copy
    ActiveSheet.Cells(15, 7).PasteSpecial xlPasteAll
    .Range(.Cells(nmrdeb, 16), .Cells(nmrfin, 16)).Copy
    ActiveSheet.Cells(15, 11).PasteSpecial xlPasteAll
    .Range(.Cells(nmrdeb, 20), .Cells(nmrfin, 20)).Copy
    ActiveSheet.Cells(15, 12).PasteSpecial xlPasteAll
End With

[Progeric]

Merci, je vais déjà faire comme ça.

Je posai la question car lorsque je fais un test manuellement en enregistrement de macro, cela donne :

Code :

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

1
2
3
4
5
6
 
Range("E15:H15,J15:K15,M15,O15:P15").Select
Range("O15").Activate
Selection.Copy
Range("R15").Select
ActiveSheet.Paste

Alors je me suis dis qu'en mettant les blocs entre "," cela pourrai fonctionner...

[Tête de chat]

Re,

Code :

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

1
2
3
4
With Worksheets(nomfeuil)
    Application.Intersect(.Range(nmrdeb & ":" & nmrfin), .Range("I:L, P:P, T:T")).Copy
    ActiveSheet.Cells(15, 7).PasteSpecial xlPasteAll
End With

[jurassic pork]

Hello,
et avec une union ?
Exemple :

Code :

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

1
2
3
4
Union( _
 ActiveSheet.Range(ActiveSheet.Cells(5, 5), ActiveSheet.Cells(6, 6)), _
 ActiveSheet.Range(ActiveSheet.Cells(7, 7), ActiveSheet.Cells(8, 8)), _
 ActiveSheet.Range(ActiveSheet.Cells(9, 9), ActiveSheet.Cells(10, 10))).Select

jusqu'à 30 arguments.

Ami calmant, J.P

[Progeric]

Impeccable, cela fonctionne très bien
Merci