Bonjour,
Merci cela fonctionne bien, par contre je souhaite développer ma formule en rajoutant des lignes (cf ci-dessous) et cela me renvoie une erreur ligne Range("A5) = ..........
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Target.Row = 5 Then Exit Sub
End If
Range("A5") = Application.Sum(Range("A1,A4"))
If Target.Column = 2 And Target.Count = 1 Then
If Target.Row = 5 Then Exit Sub
End If
Range("b5").Value = Range("b1").Value + Range("b4").Value
If Target.Column = 3 And Target.Count = 1 Then
If Target.Row = 5 Then Exit Sub
End If
Range("c5").Value = Range("c1").Value + Range("c4").Value
If Target.Column = 1 And Target.Count = 1 Then
If Target.Row = 5 Then Exit Sub
End If
Range("a15").Value = Range("a10").Value + Range("a14").Value
End Sub
Aussi est-ce le même principe si par exemple je souhaite ajouter une ligne pour faire un % par exemple dans H4 avoir la formule (h2/h3) ?
Merci d'avance,