Addition qui ne se fait pas correctement.

Bonjour,

Je pose le décors:

J'ai un entier type 52 ou 123..

Je souhaite calculer la sommes des chiffres de cette entier.
Soit: 5+2 = 7 ou 1+2+3 = 6

Probleme:

Au mieux j'arrive à : 52+2=54 ou 123+3=126

Voici mon code:

Code:

---

1 2 3 4 5

K est un entier POUR K = 1 A nBchiffre// Nbchiffre= nombre de chiffre dans l'entier nresultat rCaractereLu3 = nRésultat[[K sur nBchiffre]] rFinal = rFinal + rCaractereLu3 FIN

---

Ce code ne fonctionne pas, et je ne comprend pas.

Pourtant il fonctionne très bien dans ce cas.

Code:

---

1 2 3 4

POUR j = 1 A nTaillsonprenom CaractereLu2 = sSOnprenom[[j sur nTaillsonprenom]] //Ssonprenom est une chaine nSprchiffre = nSprchiffre + Asc(CaractereLu2)-96 //Nsprchiffre est un entier FIN

---

Quelque choses doit m'échapper, mais je ne vois pas quoi...

Je vous remercie par avance de votre aide.
Cordialement
Vinoc.

J'ai trouvé autrement:

Code:

---

1 2 3

POUR K = 1 A nBchiffre rFinal += Val(Milieu(cresultat,K,1))//Cresultat est une chaine, rFinal un entier FIN

---

Ça peut toujours servir pour un autre :)

Bonne continuation :)