Discussion :

[Rachi]

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.

[Philippe Tulliez]

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 :

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

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 :

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

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 :

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

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 :

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

1
2
3
Sub t()
    copyRow 3
End Sub