Additionner automatiquement les valeurs d'une même cellule

Question

Bonjour, 

J'aimerais savoir s'il existe une formule qui permettrait d'additionner automatiquement les valeurs que l'on rentre dans une seule et même cellule ; ce, dans un soucis de gain de temps. C'est un tableau assez long et à remplir souvent, alors j'en aurais besoin pour éviter d'avoir à calculer à chaque fois les valeurs que j'ajoute.

Merci beaucoup !


Configuration: Windows 7 / Firefox 36.0

ccm81 · Answer

Bonjour

Il va falloir passer par une macro
Un exemple
https://www.cjoint.com/?3BzmhcrzvPI

Cdlmnt

ccm81 · Answer

Alt-F11 pour accéder au code de la macro (c'est indiqué dans la feuille)
Bon, comme ça tu ne pourras pas la manquer. Elle est ?  placer dans le module de la feuille ?  traiter. Pour accéder ?  ce module : Clic-doit sur l'onglet de cette feullle/Visualiser le code
Tu modifieras l'adresse de la cellule ?  traiter en début de code
Const cel = l'adresse de ta cellule

Option Explicit

Const cel = "A1"

Dim v

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range(cel)) Is Nothing Then
  v = 0
  Target.Value = v
  Target.Offset(1, 0).Select
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range(cel)) Is Nothing Then
  Target.Value = v + Target.Value
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range(cel)) Is Nothing Then
  v = Target.Value
End If
End Sub
Bon courage

Additionner automatiquement les valeurs d'une même cellule

2 réponses

Discussions similaires

Newsletters