additionner les chiffres d'une cellule

[jad73]

bonjour le forum
je recherche une formule pour additionner les chiffres d'une cellule.
Ex:celB2contient le nombre 111,dans la cellule C2 j'aurais 3
que la cellule comporte 2 ou 3 chiffres le résultat devra etre d'un seul chiffre
merci

 

[Pierrot93]

Re : additionner les chiffres d'une cellule

Bonjour,

et si tu as 99 dans la cellule l résultat c'est 2 ou 9 ??

bon après midi
@+

 

[jad73]

Re : additionner les chiffres d'une cellule

bonjour Pierrot93,le forum
le résultat c'est l'addition de tous les chiffres de la cellule
99=18=9
999=27=9
120=3
83=11=2
J'ai trouvé cette formule "CNUM(STXT(A2;1;1))+CNUM(STXT(A2;2;1))+CNUM(STXT(A2;3;1))"
mais si j'ai 88 le résultat est ###
Si je réduit la Formule et que la cellule a 3 chiffres le résultat est faux
merci

 

[KenDev]

Re : additionner les chiffres d'une cellule

Bonjour Jad, Pierrot,


En fonction vba :

Function SomCel&(x$)
Dim i&
    For i = 1 To Len(x)
        SomCel = SomCel + Left(Right(x, i), 1)
    Next i
End Function
Function SomCel9&(x$)
Dim s$
    SomCel9 = SomCel(x)
    Do Until SomCel9 < 10
        s = SomCel9
        SomCel9 = SomCel(s)
    Loop
End Function

SomCel("676789236755666768787888")=156
SomCel9("676789236755666768787888")=3

Cordialement

KD

 

[Pierrot93]

Re : additionner les chiffres d'une cellule

Bonjour,

autre solution vba, en supposant que des chiffres dans la cellule..

With Range("A1")
    MsgBox IIf(.Value Mod 9 = 0, 9, .Value Mod 9)
End With

@+

 

[hoerwind]

Re : additionner les chiffres d'une cellule

Bonjour, salut Pierrot en Kendev,

Un peu plus court que le code de Pierrot (souvenir d'école gardienne !) : =MOD(A1-1;9)+1
formule à copier vers le bas

 

[CISCO]

Re : additionner les chiffres d'une cellule

Bonjour à tous

Bien vu Hoerwind !

@ plus

 

[Pierrot93]

Re : additionner les chiffres d'une cellule

Re,
bonsoir Hoerwind

Bonjour, salut Pierrot en Kendev,

Un peu plus court que le code de Pierrot (souvenir d'école gardienne !) : =MOD(A1-1;9)+1
formule à copier vers le bas

bien vu, en vba cela donnerait donc :

MsgBox (Range("A1").Value - 1) Mod 9 + 1

bonne soirée
@+

 

[KenDev]

Re : additionner les chiffres d'une cellule

Bonsoir à tous,

Oui bien vu Pierrot & Hoerwind, je n'avais pas pensé à MOD... Mon code ne conserve de l'intérêt que pour les très grands nombres. Cordialement

KD

 

[jad73]

Re : additionner les chiffres d'une cellule

bonjour a tous,le forum
merci hoerwind c'est ce qu'il me fallait.
par contre j'utilise cette formule "=SOMMEPROD(($L$2:$L$500="1")*($B$2:$F$500=G2))"elle fonctionne trés bien avec une lettre a la place du "1" mais avec un chiffre elle ne marche pas.
de quoi cela vient-il
merci

 

[Habitude]

Re : additionner les chiffres d'une cellule

bonjour

Il faut enlever les guillemets pour des chiffres

"=SOMMEPROD(($L$2:$L$500=1)*($B$2:$F$500=G2))"