copie de formule lors d'insertion de ligne

DoubleZero

XLDnaute Barbatruc

• 31 Janvier 2012

• #2

Re : copie de formule lors d'insertion de ligne

Bonjour, alexandre33260, le Forum,

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

A bientôt.

 

Vote positif 0 Vote négatif

alexandre33260

XLDnaute Occasionnel

• 31 Janvier 2012

• #3

Re : copie de formule lors d'insertion de ligne

Oui pour les colonnes, merci.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Janvier 2012

• #4

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) :

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+

 

Vote positif 0 Vote négatif

brunosc

XLDnaute Occasionnel

• 31 Janvier 2012

• #5

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

 

Vote positif 0 Vote négatif

alexandre33260

XLDnaute Occasionnel

• 31 Janvier 2012

• #6

Re : copie de formule lors d'insertion de ligne

Y'a pas sans utiliser des macros???

 

Vote positif 0 Vote négatif

brunosc

XLDnaute Occasionnel

• 31 Janvier 2012

• #7

Re : copie de formule lors d'insertion de ligne

Je pense pas non.

 

Vote positif 0 Vote négatif