Aide pour addition complexe Excel

Résolu
Bonjour,

Je suis confronté à un problème sur excel qui est le suivant:

Je ne trouve pas la formule qui me permet de calculer le TOTAL de cette opération soit "3+12+24" + "15" + "20+3". Je précise que je suis obligé de saisir le "3+12+24" et le "20+3" car ça me sert pour autre chose. En effet, j'ai besoin de connaître le nombre de "nombres" dans chaque cellule (ici en A1 j'en ai 3, 1 en A2 et 2 en A3).

ex : A

1 3+12+24
2 15
3 20+3

4 TOTAL

Franchement si quelqu'un trouve je lui tire mon chapeau car j'ai tout essayé sans succés.

Merci par avance.

18 réponses

Résumé de la discussion

Calculer le TOTAL et le nombre de nombres dans des chaînes Excel telles que 3+12+24, 15 ou 20+3, tout en conservant les expressions en entrée pour d'autres usages. La solution principale propose deux fonctions VBA: somme, qui additionne les éléments séparés par des signes '+', et total, qui fait la somme sur une plage. La fonction somme analyse une chaîne, détecte le séparateur '+', additionne les valeurs et réutilise la logique récursive jusqu'à épuisement des termes, sans dépendre d'une cellule vide. En cas de besoin, l'extension VBA peut être adaptée pour compter aussi le nombre de termes dans chaque cellule.

Bobot (l’IA à votre service)
  1. Nouvelle petite demande, j'ai les intervalles suivants :

    (X correspond au nombre que je saisirai manuellement)

    - X <ou= 24
    - 25 <ou= X <ou= 48
    - 49 <ou= X <ou= 72
    - 73 <ou= X <ou= 96

    En fonction du segment dans lequel se trouve le nombre que je saisi manuellement je voudrai afficher soit 24 (1er intervalle) soit 48 (2ème intervalle) soit 72 (3ème intervalle) soit 96 (4ème intervalle).

    Je suis sûre que parmis vous il doit bien en avoir qui doit savoir faire ça ;)
    0
    1. re

      si le pb precedent est plié il faudrait le dire et le mettre à resolu
      Pour un nouveau pb, ouvrir une autre discussion

      je suppose que X doit etre saisi dans une cellule (laquelle)
      et où veux tu le resultat 24, 48, ...

      bonne suite
      0
    2. Ouais je marque résolu et j'ouvre un nouveau.

      Merci encore ccm81
      0
  2. re

    re
    a propos de mon post precedent
    les noms des fonctions sont maladroits (si utilseés dans un module)

    mettre ça dans un module et utiliser somm pour une cellule et tota pour une plage
    par exemple

    =somm(A1)
    =tota(A1:A3)

    Function somm(ByVal s As String) As Long
    Dim p As Long
    Dim x As Long
    If s = "" Then
      somm = 0
    Else
      p = InStr(1, s, "+")
      If p > 0 Then
        x = Round(Val(Left(s, p - 1)))
        somm = somm(Right(s, Len(s) - p)) + x
      Else
        somm = Val(s)
      End If
    End If
    End Function
    
    Function tota(x)
    Dim s As Long
    Dim c As Range
    s = 0
    For Each c In x
      s = s + somm(c)
    Next c
    tota = s
    End Function


    bonne suite
    0
    1. Merci mais je capte rien à tout ça, c'est encore du VB ou pas ??
      0
    2. re
      c'est du vba
      tu mets ça dans un module (Alt F11 pour acceder a l'editeur)
      puis tu utilises ces fonctions comme des fonctions excel
      MAIS c'est du VBA

      un exemple d'utilisation

      http://www.cijoint.fr/cjlink.php?file=cj201101/cij81aV7W5.xls

      bonne suite
      0
    3. Ok tu peux m'indiquer la marche à suivre pas à pas parce que là c'est du chinois pour moi tout ça?
      0
    4. re
      as tu essayé l'exemple?
      si ça te convient
      tu mets ça dans un module (Alt F11 pour acceder à l'editeur et copier/coller depuis le post)
      puis tu utilises ces fonctions comme des fonctions excel voir B5 pour somm (pour sur 1 seule cellule) et A5 (poursur une plage)

      si les macros ne s'executent pas Outils/Macro/Securité Moyen
      tu enregistres
      tu re-ouvres en acceptant l'execution des macros

      bonne suite
      0
    5. Tu va me dire que je suis nul mais j'arrive même pas à coller ta macro...
      0
  3. J'ai trouvé ce lien et essayé la formule matricielle fonctionne mais il n'y a pas de + entre les chiffres donc au lieu d'avoir 5+6+7 il est écrit 567 le résultat est bien 18.
    =SOMME(1*STXT(A2;LIGNE(INDIRECT("1:"&ENT(LOG(A2))+1));1))
    https://forum.excel-pratique.com/viewtopic.php?forum_uri=excel&t=19714&start=
    Peut être que saurez vous la modifier pour conserver vos +.
    C'est juste une proposition si elle ne convient pas effacer le message
    0
    1. Merci c'est intéressant mais je ne suis pas assez caler en Excel pour y apporter la modif qui l'adapterait à ma requête.
      0
    2. Moi non plus rassure toi !
      Par contre si tu peux rajouter une colonne dans ton tableau tu peux à ce moment là utiliser
      =SUBSTITUE(A2;"+";"")
      et là le 5+6+7 devient 567 et dans la colonne tu peux avec la formule matricielle
      =SOMME(1*STXT(A2;LIGNE(INDIRECT("1:"&ENT(LOG(A2))+1));1))
      obtenir 18 (ceci pour mon exemple)
      0
  4. Bonjour,
    Le fichier joint présente deux ébauches de solutions:
    https://www.cjoint.com/?0bfmJSm5WcC
    Faut-il poursuivre?
    0
    1. Merci tontong mais j'avais déjà essayé avec Données/Convertir et oui ça marche mais ça reste une manipulation manuelle.
      Pour ce qui est de ta deuxième solution, elle ne fait que mettre bout à bout chaque nombre sans pour autant en faire la somme.. C'est presque bon... Je sens qu'on est plus très loin d'y arriver !
      0
    2. Non la somme est bien effectuée en B7.

      Il est peut-être possible d'obtenir un tableau équivalent à celui obtenu par " Données_Convertir" avec des fonctions "texte"(Substitute, Stxt...) mais il faudrait quelques précisions supplémentaires. Combien de nombre maxi par cellule? combien de chiffres maxi par nombre?

      La solution de ccm81 mérite certainement d'être testée.
      0
  5. bonjour
    deux fonctions VBA qui peuvent reopondre a la question
    - somme qui fait la somme d'une chaine s du type "21+3+4"
    - total qui fait la somme de la plage x

    Function somme(ByVal s As String) As Long
    Dim p As Long
    Dim x As Long
    If s = "" Then
      somme = 0
    Else
      p = InStr(1, s, "+")
      If p > 0 Then
        x = Round(Val(Left(s, p - 1)))
        somme = somme(Right(s, Len(s) - p)) + x
      Else
        somme = Val(s)
      End If
    End If
    End Function
    
    Function total(x)
    Dim s As Long
    Dim c As Range
    s = 0
    For Each c In x
      s = s + somme(c)
    Next c
    total = s
    End Function


    bonne suite
    1
    1. Merci, c'est très instructif mais je préfèrerais ne pas passer par VBA si c'est possible biensur...
      0
  6. regarde bien le paragraphe "La fonction =SOMME()"
    Et essayes de faire leur exemple jusqu'à avoir leur résultat (31)
    -1
    1. La fonction somme ne fonctionne qu'avec des cellules contenant un seul nombre donc incompatible avec ma requête mais merci de ton aide quand même ;)
      0
  7. Euh ça m'aide pas plus que ça à moins que je sois passé à côté de quelque chose, tu peux m'en dire un peu plus stp ??
    0
    1. Contributeur
      tu mets ma formule sous forme matricielle et tu as le résultat...
      :-(
      0
    2. Je ne suis pas expert en la matière, peux-tu m'éclairer sur ce qu'est la forme matricielle stp ?
      0
    3. Contributeur
      =SOMME(SI(NON(ESTVIDE(B2:B4));NBCAR(B2:B4)-NBCAR((SUBSTITUE(B2:B4;"+";"")))+1))
      

      Formule à valider par « ctrl+maj+entrée » (et non directement par « entrée »), le curseur clignotant dans la barre de formule
      zones B2:B4 à adapter à ton classeur
      0
    4. Merci michel mais le résultat de ta formule me donne le total de nombre soit 6 alors que ce qui m'intéresse en fait c'est de trouver 77 soit 3+12+24+15+20+3. As-tu encore une merveilleuse formule sous la main ?
      0
    5. Contributeur
      Je reprend ta demande
      j'ai besoin de connaître le nombre de "nombres" dans chaque cellule (ici en A1 j'en ai 3, 1 en A2 et 2 en A3).

      ...
      0
  8. Hello
    http://www.admexcel.com/fmath.htm
    Julien
    -1
    1. Pour info la colonne B est saisie manuellement, elle n'est pas issue d'une formule.
      0
      1. J'ai mis à jour le lien de mon fichier excel qui inclue maintenant une cellule vide, les 2 formule fonctionnent.
        0
        1. Pour ce qui est de trouver le nombre de "nombres" c'est bon, moi c'est la somme que je n'arrive pas à faire et ça m'énèrve !!
          -1
          1. Contributeur
            Fallait le dire que t'étais super bon! alors continue de t'énerver...
            proverbe chinois:"si tu est pressé commences par t'asseoir"
            et apprend aussi à dire merci aux bénévoles qui essaient de t'aider
            0
          2. Désolés, merci pour ton aide.. Si je suis pressé c'est parce que je dois rendre un dossier ce soir et si je dois faire la somme manuellement j'aurais jamais terminé.
            0
        2. Contributeur
          re,
          =SI(ESTVIDE(B2);0;NBCAR(B2)-NBCAR((SUBSTITUE(B2;"+";"")))+1)

          te donne le nombre de "nombres" en B2

          à adapter si b2 est le résultat d'une formule donnant 0 ou ""
          Michel
          0
          1. Malheureusement ce n'est pas aussi simple que ça Ange420 !!
            0
            1. Désolée je n'avais pas compris ta question en ce sens
              0
            2. Pas grave, merci quand même ;)
              0
          2. Contributeur
            Bonjour,

            Je n'ai rien compris à ce que tu demandes

            Au besoin, mettre le classeur sans données confidentielles en pièce jointe (format XL97-2003) sur
            http://cijoint.fr/
            ou
            https://www.cjoint.com/
            et coller le lien proposé dans le message de réponse

            0
            1. J'ai édité, est-ce plus clair ??
              0
              1. Placez vous sur la cellule qui doit recevoir votre résultat.
                Cliquez sur somme (le zigma) puis sur la première cellule
                Enfoncez la touche CTRL en la maintenant et cliquez sur chaque cellule.
                Validez par entrée
                Bonne journée
                -1
                1. Bonjour.

                  Le sens de ta question n'est pas très clair.
                  Qu'entend tu par nombre de nombre?
                  0