Somme cumulée sur une cellule

[didicel13]

Salut à tous

Je suis hyper debutant sous excel
Voilà mon problème :
Je souhaiterai que la valeur que je rentre à une cellule s'ajoute automatiquement à l'ancienne valeur.

exemple : s'il y a 6 en A1 et que je rentre 4 je souhaite voir afficher 10

Merci beaucoup pour votre aide

 

[Jean-Marie]

Bonjour, Didicel

Place ce code dans le module de la feuille, Pour le faire Alt+F11, pour aller dans VBA, doucle clique sur la feuille qui contient ta cellule, colle le code.

Modifie lu numéro de la Row (ligne) et de la Column (colonne), la cellule "A1", en fonction de la référence de la cellule.

Dim SavValeurA1 As Double

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If (ActiveCell.Row = 1) And (ActiveCell.Column = 1) Then
SavValeurA1 = Range("A1")
Range("A1") = 0
Else
Range("A1") = Range("A1") + SavValeurA1
SavValeurA1 = 0
End If
End Sub

Bonne journée

Quand les maîtres du VBA, vous passez, ils te proposeront d'autres solutions

@+Jean-Marie

 

[didicel13]

Merci pour ton aide.

Le code c'est cela ?

"Dim SavValeurA1 As Double

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If (ActiveCell.Row = 1) And (ActiveCell.Column = 1) Then
SavValeurA1 = Range("A1")
Range("A1") = 0
Else
Range("A1") = Range("A1") + SavValeurA1
SavValeurA1 = 0
End If
End Sub"

Et le module qu'est-ce que c'est en fait ?

 

[didicel13]

OK çà marche

Encore merci jean-marie.

Par contre si je veux le faire pour toutes les cellules d'un tableau quel est le code ?

@+ didicel

 

[Jean-Marie]

Bonsoir

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
SavValeurA1 = Range("A1")
Range("A1") = 0
Else
Range("A1") = Range("A1") + SavValeurA1
SavValeurA1 = 0
End If
End Sub"

Adpate la plage à ton tableau

Bonne soirée

@+Jean-Marie

 

[didicel13]

Quelle variable dois-je faire varier pour adapter la plage de mon tableau ?

Donne-moi un exemple avec un tableau 10 x 10

Merci pour ton aide

@+ didicel

 

[Jean-Marie]

Bonjour

Le code que je t'avais donné ne pouvais pas fonctionner.
Voici le bon, pour une plage de 10*10 en commençant en cellule A1
Code à mettre dans les événéments de la feuille, (comme la première fois).

Option Explicit
Dim SavValeur As Double
Dim PreviousAddress As String

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Not Application.Intersect(Target, Range("A1:J10")) Is Nothing Then
If PreviousAddress <> "" Then
Range(PreviousAddress) = Range(PreviousAddress) + SavValeur
SavValeur = 0
End If
SavValeur = ActiveCell.Value
ActiveCell = ""
PreviousAddress = ActiveCell.Address
Else
PreviousAddress = ""
End If
End Sub

Bonne journée

@+Jean-Marie

 

[didicel13]

Encore merci jean-marie
cela marche parfaitement
C'est super de connaître des gens comme vous qui aidez les autres sans intêret particulier

@+ didicel

 

[Jean-Marie]

Bonjour

Merci.
Je te rassure, il y a un intérêt dans mon cas, j'apprends.

Bonne journée

@+Jean-Marie