Somme de cellule en VBA

K

kjin

XLDnaute Barbatruc

• 1 Février 2013

• #2

Re : Somme de cellule en VBA

Bonsoir,
Nomme la cellule E20 total auparavant

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
x = [total].Row
If Target.Column = 5 And Target.Row < x Then
    [total] = Application.Sum(Range("E1:E" & x - 1))
End If
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 1 Février 2013

• #3

Re : Somme de cellule en VBA

Bonsoir lelectricien,

Peut être aussi une autre approche kjin je pense que cela peut être une facilité pour les sommes, votre solution est aussi très bien, c'est pour d'autres idées

comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wkb As Workbook
Dim wksf1 As Worksheet
Dim pl As Range

Set wksf1 = Worksheets("Feuil1")

'somme plage
Set pl = wksf1.Range(wksf1.Cells(5, 5), wksf1.Cells(17, 5))

Cells(20, 5) = "=Sum(" & pl.Address & ")"

Set pl = Nothing
End Sub

Laurent

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 1 Février 2013

• #4

Re : Somme de cellule en VBA

re,

laurent950 à dit:

Peut être aussi une autre approche....

Cliquez pour agrandir...

...je ne fais que lire ce qui est écrit là...

lelectricien à dit:

Mais si j'ajoute une ligne (ou plusieurs), et que j'insère de nouveaux chiffres....

Cliquez pour agrandir...

Ajouter ou insérer une ligne veut dire décaler la somme vers le bas !
En outre quel est l'intérêt de recalculer la somme à chaque click intempestif ?
A+
kjin

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 1 Février 2013

• #5

Re : Somme de cellule en VBA

salut

pas vu la dernière demande donc proposition effacée !

 

Vote positif 0 Vote négatif

L

lelectricien

Guest

• 5 Février 2013

• #6

Re : Somme de cellule en VBA

Bonsoir et désolé de ne pas vous avoir répondu plutôt.

Je voulais juste vous remercier pour vos solutions, toutes les solutions proposées fonctionnent à merveille.

Un grand merci à vous, et à bientôt.

 

Vote positif 0 Vote négatif