additionner les chiffres d'une cellule

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2011

• #2

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
@+

 

Vote positif 0 Vote négatif

J

jad73

XLDnaute Occasionnel

• 5 Juillet 2011

• #3

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

 

Vote positif 0 Vote négatif

KenDev

XLDnaute Impliqué

• 5 Juillet 2011

• #4

Re : additionner les chiffres d'une cellule

Bonjour Jad, Pierrot,


En fonction vba :

VB:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2011

• #5

Re : additionner les chiffres d'une cellule

Bonjour,

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

Code:

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

@+

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 5 Juillet 2011

• #6

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

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 5 Juillet 2011

• #7

Re : additionner les chiffres d'une cellule

Bonjour à tous

Bien vu Hoerwind !

@ plus

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2011

• #8

Re : additionner les chiffres d'une cellule

Re,
bonsoir Hoerwind

hoerwind à dit:

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

Cliquez pour agrandir...

bien vu, en vba cela donnerait donc :

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

KenDev

XLDnaute Impliqué

• 5 Juillet 2011

• #9

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

 

Vote positif 0 Vote négatif

J

jad73

XLDnaute Occasionnel

• 6 Juillet 2011

• #10

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

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 6 Juillet 2011

• #11

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))"

 

Vote positif 0 Vote négatif