Addition dans une cellule

Résolu
serge30560 Messages postés 4 Statut Membre -  
serge30560 Messages postés 4 Statut Membre -
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

  1. Utilisateur anonyme
     
    Par exemple :
    =SOMME(A1;A5)
    pour avoir de A1 à A5 ?
    0
  2. PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
     
    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
    1. serge30560 Messages postés 4 Statut Membre
       
      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
      1. PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835 > serge30560 Messages postés 4 Statut Membre
         
        Voir la proposition de Gyrus
        0
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    1. serge30560 Messages postés 4 Statut Membre
       
      Merci beaucoup "ça marche".
      Bonne journée.
      0