XL 2019 VBA Insertion lignes avec recopie des formules

JBM91 · 4 Janvier 2021

Bonjour je souhaite pouvoir sur une feuille Excel insérer une ligne tout en gardant mes formules.
Je suis donc tombé sur ce code qui répond partiellement à mon besoin:

VB:

Sub Insertion()
ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
End Sub

Mon problème est que j'ai des formules faisant référence à la ligne n-1, un décalage se produit donc à l'endroit où j'insère ma ligne

Hasco · 4 Janvier 2021

bonjour,

Testez ceci :

VB:

Sub Insertion()
    ActiveCell.EntireRow.Insert
    Rows(ActiveCell.Row + 1).Copy
    Rows(ActiveCell.Row).PasteSpecial xlPasteFormulas
    Application.CutCopyMode = False ' pour désactiver la copie
End Sub

Cordialement

JBM91 · 4 Janvier 2021

Bonjour,

cela ne solutionne malheureusement pas mon problème car je souhaite insérer une ligne entre deux lignes existantes

Dranreb · 4 Janvier 2021

Bonjour et bonne année.
Je vous conseillerais deux chose :
D'abord prendre comme formule en D2, à propager sur 4 lignes :

Code:

=SIERREUR(C2-DECALER(C2;-1;0);"-")

Ensuite mettre la plage sous forme de tableau Excel: la propagation des formules communes à toutes les lignes y est automatique.

XL 2019 VBA Insertion lignes avec recopie des formules

JBM91

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

JBM91

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Discussions similaires