Addition dans une cellule

Résolu/Fermé
serge30560 Messages postés 4 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 15 février 2016 - 31 janv. 2016 à 11:00
serge30560 Messages postés 4 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 15 février 2016 - 1 févr. 2016 à 14:11
Bonjour,

Je souhaiterai additionner dans une cellule plusieurs nombres en les « empilant ». C’est-à-dire ajouter des nombres dans la cellule sans avoir à taper le signe + dans la formule.
Par exemple : dans la cellule 5 puis 5 par-dessus et avoir bien sur 10 ?

Bonne journée et merci pour vos solutions.

Serge

4 réponses

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
31 janv. 2016 à 13:39
Bonjour,

Une autre proposition
https://www.cjoint.com/c/FAFmMqKramC

A+
2
Kartzull Messages postés 537 Date d'inscription mercredi 31 octobre 2012 Statut Membre Dernière intervention 5 mai 2018 138
31 janv. 2016 à 11:02
Par exemple :
=SOMME(A1;A5)
pour avoir de A1 à A5 ?
0
PHILOU10120 Messages postés 6393 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 9 octobre 2024 810
31 janv. 2016 à 12:43
Bonjour

Le principe de base d'Excel est une cellule une info
Donc pour une addition vous entrez vos valeurs les unes en dessous des autres (vous tapez la valeur et validez par entrer) et vous appliquez la formule que Kartzull vous propose en l'adaptant au nombre de lignes

=SOMME(A1;A5)
0
serge30560 Messages postés 4 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 15 février 2016
31 janv. 2016 à 16:06
Je connais cette façon de faire, ce n’est pas tout à fait ça ma question. Je veux taper 5 dans une cellule, je sélectionne à nouveau cette cellule, je tape 5 et je veux avoir dix. Ex. : taper 5 sur A1, taper à nouveau 5 sur A1 et avoir 10 ?
Merci.

Serge

PS : si c'est con n'hésite pas à me le dire...
0
PHILOU10120 Messages postés 6393 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 9 octobre 2024 810 > serge30560 Messages postés 4 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 15 février 2016
31 janv. 2016 à 16:21
Voir la proposition de Gyrus
0
Mike-31 Messages postés 18352 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 décembre 2024 5 110
Modifié par Mike-31 le 31/01/2016 à 17:39
Bonsoir le fil,

si l'action doit prendre en charge une colonne exemple pour la colonne 1 ou A
clic droit sur l'onglet de la feuille/visualiser le code et coller ce code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
ValSaisie = Target
Application.Undo
Target = ValSaisie + Target
Application.EnableEvents = True
End If
End Sub


pour adapter le code à une colonne, remplacer cette ligne
If Target.Column = 1 And Target.Count = 1 Then
par celle ci et adapter les bornes de la plage
If Not Intersect(Target, Range("C3:D10")) Is Nothing Then
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
serge30560 Messages postés 4 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 15 février 2016
1 févr. 2016 à 14:11
Merci beaucoup "ça marche".
Bonne journée.
0