XL 2013 SOMME EN VBA

[mcj1997]

Bonjour,

J'ai réussi à créer ce programme qui me donne la somme de a1 à a4, comment adapter ma formule afin de cumuler uniquement A1 + A4 ?

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.(Range("A1":"A4"))
End Sub

Merci d'avance,

 

[riton00]

Bonsoir,

Peut -être comme ça...

Private Sub Worksheet_Change(ByVal Target As Range)
Range("a5").Value = Range("a1").Value + Range("a4").Value
End Sub

Slts

 

[mcj1997]

Merci pour la réponse mais cela me génère une erreur sur la ligne Range("a5")......

 

[riton00]

Re

Bizarre essai fait sur excel 2003 et 2010 sans erreur

désolé

 

[mcj1997]

Merci pour la réponse, j'ai fait avec les deux formules et cela fonctionne comme ci-dessous :

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").Value = Range("a1").Value + Range("a4").Value
End Sub

 

[mapomme]

Bonjour,

Essayez aussi:

Range("A5") = Application.Sum(Range("A1,A4"))

 

[mcj1997]

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,

 

[mcj1997]

Bonjour,

Pas de réponse #7 , peut-être plus de chance avec un fichier joint,

Merci d'avance,