copie de formule lors d'insertion de ligne

[alexandre33260]

Bonjour, sur le fichier joint, j'ai en E3 une petite formule (=SI(D3="";"";C3-B3)), idem en E2.
Si je me positionne sur la ligne 3 puis clic droit, Insertion, une nouvelle ligne est crée, mais la formule n'est pas automatiquement crée.
Soit en nouvelle cellule E3 (RIEN), il me faut copier la formule de E2 pour que le calcul se fasse à nouveau.
Comment faire pour qu'en insérant une ligne, Excel comprenne qu'il faut aussi copier les formules associés aux cellules???
Merci pour votre aide précieuse.

 

[DoubleZero]

Re : copie de formule lors d'insertion de ligne

Bonjour, alexandre33260, le Forum,

Les colonnes ont-elles été retrouvées 🙄 ?

A bientôt.

 

[alexandre33260]

Re : copie de formule lors d'insertion de ligne

Oui pour les colonnes, merci.

 

[job75]

Re : copie de formule lors d'insertion de ligne

Bonsoir alexandre33260, DoubleZero 🙂

Essayez dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("E2:E" & Rows.Count), Me.UsedRange)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-2]-RC[-3])"
Application.EnableEvents = True
End Sub

A+

 

[brunosc]

Re : copie de formule lors d'insertion de ligne

Bonsoir alexandre33260, job75.
Une autre façon de faire :
Sub InsererSousAvecFormules()
Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
End Sub
Dans un module
Bonne soirée

 

[alexandre33260]

Re : copie de formule lors d'insertion de ligne

Y'a pas sans utiliser des macros???

 

[brunosc]

Re : copie de formule lors d'insertion de ligne

Je pense pas non.