Aide pour addition complexe Excel

Résolu
Yul_23 Messages postés 127 Statut Membre -  
Yul_23 Messages postés 127 Statut Membre -
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.

Généré automatiquement par IA
sur la base des meilleures réponses
  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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. Yul_23 Messages postés 127 Statut Membre
       
      Merci, c'est très instructif mais je préfèrerais ne pas passer par VBA si c'est possible biensur...
      0
  2. Aprexia Messages postés 101 Statut Membre 24
     
    Bonjour.

    Le sens de ta question n'est pas très clair.
    Qu'entend tu par nombre de nombre?
    0
  3. Yul_23 Messages postés 127 Statut Membre
     
    J'ai édité, est-ce plus clair ??
    0
  4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Yul_23 Messages postés 127 Statut Membre
     
    Malheureusement ce n'est pas aussi simple que ça Ange420 !!
    0
    1. Ange420 Messages postés 437 Statut Membre 236
       
      Désolée je n'avais pas compris ta question en ce sens
      0
    2. Yul_23 Messages postés 127 Statut Membre
       
      Pas grave, merci quand même ;)
      0
  7. Yul_23 Messages postés 127 Statut Membre
     
    Voila j'ai mis le fichier en ligne, ce que je veux c'est la somme de B2+B3+B4 dans la cellule en jaune.

    https://www.cjoint.com/?0bflTYTwdZW

    Si se n'est pas encore clair, n'hésitez pas !!
    0
  8. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  9. Yul_23 Messages postés 127 Statut Membre
     
    J'ai mis à jour le lien de mon fichier excel qui inclue maintenant une cellule vide, les 2 formule fonctionnent.
    0
  10. Yul_23 Messages postés 127 Statut Membre
     
    Pour info la colonne B est saisie manuellement, elle n'est pas issue d'une formule.
    0
  11. Yul_23 Messages postés 127 Statut Membre
     
    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. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      tu mets ma formule sous forme matricielle et tu as le résultat...
      :-(
      0
    2. Yul_23 Messages postés 127 Statut Membre
       
      Je ne suis pas expert en la matière, peux-tu m'éclairer sur ce qu'est la forme matricielle stp ?
      0
    3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      =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. Yul_23 Messages postés 127 Statut Membre
       
      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. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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
  12. tontong Messages postés 2575 Date d'inscription   Statut Membre Dernière intervention   1 064
     
    Bonjour,
    Le fichier joint présente deux ébauches de solutions:
    https://www.cjoint.com/?0bfmJSm5WcC
    Faut-il poursuivre?
    0
    1. Yul_23 Messages postés 127 Statut Membre
       
      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. tontong Messages postés 2575 Date d'inscription   Statut Membre Dernière intervention   1 064
       
      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
  13. Ange420 Messages postés 437 Statut Membre 236
     
    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. Yul_23 Messages postés 127 Statut Membre
       
      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. Ange420 Messages postés 437 Statut Membre 236
       
      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
  14. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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. Yul_23 Messages postés 127 Statut Membre
       
      Merci mais je capte rien à tout ça, c'est encore du VB ou pas ??
      0
    2. ccm81 Messages postés 11033 Statut Membre 2 434
       
      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. Yul_23 Messages postés 127 Statut Membre
       
      Ok tu peux m'indiquer la marche à suivre pas à pas parce que là c'est du chinois pour moi tout ça?
      0
    4. ccm81 Messages postés 11033 Statut Membre 2 434
       
      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. Yul_23 Messages postés 127 Statut Membre
       
      Tu va me dire que je suis nul mais j'arrive même pas à coller ta macro...
      0
  15. Yul_23 Messages postés 127 Statut Membre
     
    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. ccm81 Messages postés 11033 Statut Membre 2 434
       
      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. Yul_23 Messages postés 127 Statut Membre
       
      Ouais je marque résolu et j'ouvre un nouveau.

      Merci encore ccm81
      0
  16. Ange420 Messages postés 437 Statut Membre 236
     
    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
  17. Yul_23 Messages postés 127 Statut Membre
     
    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. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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. Yul_23 Messages postés 127 Statut Membre
       
      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
  18. chef
     
    Hello
    http://www.admexcel.com/fmath.htm
    Julien
    -1
  19. chef
     
    regarde bien le paragraphe "La fonction =SOMME()"
    Et essayes de faire leur exemple jusqu'à avoir leur résultat (31)
    -1
    1. Yul_23 Messages postés 127 Statut Membre
       
      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