recopie d'une plage de la ligne active

[Olivier_HTP]

Bonsoir à tous,

je cherche le code qui me permettrait de copier la plage C:L de la ligne active, puis de la coller dans la même plage de la ligne suivant la ligne active, en rajoutant en plus une constante dans la cellulle B de cette même ligne suivante.

En fait il me manque surtout la façon de nommer la ligne courante, et la suivante par rapport à elle.

Merci d'avance.

Bonne soirée.

 

[Lord Nelson]

Salut,

Si tu fais Outils/Macro/Nouvelle Macro...
tu lances l'enregistreur de macro qui te donneras le code suivant :

Sub Macro1()
Range("C4:L4").Select
Selection.Copy
Range("C5").Select
ActiveSheet.Paste
Range("B5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "4"
End Sub

Ensuite, pour le transposer à la ligne active, quelques modifications sont possibles, avec l'objet "ActiveCell" :

Sub Macro1()
Dim Ligne As Long
Ligne = ActiveCell.Row
Range("C" & CStr(Ligne) & ":L" & CStr(Ligne)).Select
Selection.Copy
Range("C" & CStr(Ligne + 1)).Select
ActiveSheet.Paste
Range("B" & CStr(Ligne + 1)).Select
Application.CutCopyMode = False
ActiveCell.Value = "Ce que tu veux"
End Sub

NB : "Ligne" est une donnée numérique
Cstr est une fonction de conversion d'un nombre en texte.

A+
LN

 

[Olivier_HTP]

Merci beaucoup Amiral !

Bonne journée.

Olivier