Insertion de lignes avec emplacement variable

Bonjour l'équipe,

Quelqu’un peut m'aider à trouver une macro qui me permettra d'insérer une ligne en gardant les formules de la ligne utilisée, mais je voudrai pouvoir l'insérer là ou je le souhaite. C'est à dire en fonction du numéro de la ligne, ce dernier est variable.

Merci l'équipe.

Bonjour,
Premier réflexe quand on cherche un code, c'est l'enregistreur de macros
Si tu utilises l'enregistreur de macros pour copier une ligne et la copier par insertion, voici ce que l'enregistreur de macros va donner

Code:

---

1 2 3 4 5 6

Sub Macro1() Rows("4:4").Select Selection.Copy Selection.Insert Shift:=xlDown Application.CutCopyMode = False End Sub

---

Ensuite le remanier

Code:

---

1 2 3 4 5 6

Sub Macro11() With Rows(4) ' Rows("4:4") ou Rows(4) c'est pareil .Copy .Insert Shift:=xlDown End With End Sub

---

Si tu veux en faire une procédure paramétrée, tu ajoute un argument

Code:

---

1 2 3 4 5 6

Sub copyRow(row As Long) With Rows(row) .Copy .Insert Shift:=xlDown End With End Sub

---

Que tu peux invoquer ainsi

Code:

---

1 2 3

Sub t() copyRow 3 End Sub

---