Insérer une variable dans une macro

[JJ1]

Bonjour,
J'ai enregistré une macro automatique qui fait 4 copier/coller valeurs.
La destination de la copie ne varie pas.

Les valeurs à copier varient au niveau de la ligne et je voudrai insérer en debut de macro la variable ligne (que je n'aurai qu'à modifier) pour que je n'aie pas à aller modifier toutes mes lignes à copier.

Ici la ligne est 2421, mais la semaine suivante ce sera 2422 etc.
Il faudrait modifier la partie Range de la macro en intégrant la variable ligne ?
Range("BLligne:BYligne").Select ?

voici la macro:

Range("BL2421:BY2421").Select
Selection.Copy
Range("JU2431").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("DX2421:EK2421").Select
Selection.Copy
Range("JU2433").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("JU2426").Select
Application.CutCopyMode = False
Range("FV2421:GI2421").Select
Selection.Copy
Range("JU2432").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("JT2427").Select
Application.CutCopyMode = False
Range("HT2421:IG2421").Select
Selection.Copy
Range("JU2434").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("JW2427").Select
Application.CutCopyMode = False
Range("BK2425").Select
End Sub

Merci
Bon AM

 

[tototiti2008]

Re : Insérer une variable dans une macro

Bonjour JJ1,

avec quelque chose comme ça :

Dim Ligne as Long
Ligne = 2421
Range("BL" & Ligne & ":BY" & Ligne).Select
Selection.Copy

 

[PascalXLD]

Re : Insérer une variable dans une macro

Bonjour

Tu peux même eviter le select en faisant direct le copy et le paste

 

[JJ1]

Re : Insérer une variable dans une macro

Bonjour Tototiti, Pascal,
merci pour vos réponses, je modifie de suite la macro !
Bon appêtit, il est l'heure!