Réduire d'une case 3 chiffres

Bonjour,

Prbablement un petit problème pour vous, mais un gros problème pour moi.

Supposons que dans la case A1 se trouve un nombre à 3 chiffres (ex 187).

Je désire que la réduction de ce chiffre (1+8+7) apparaisse dans la case A2 (16).

Ensuite la réduction de 16 (1+6) en case A2 s'inscrive en case A3 (7).

Qui peut m'aider? Un grand merci d'avance

Bonjour,

S'agit il d'un exercice ?

Bonjour,

A l'ancienne par formule, à l'aide de cellules intermédiaires :

Bonjour le forum,

J'ai trouvé sur le net une petite fonction que j'ai ajoutée dans un module et ça fonctionne bien.

Bonjour,

au plus simple : =MOD(A1-1;9)+1
eric

Bonjour à tous,

La fonction de fcyspm30 adaptée pour obtenir le résultat final en 1 seule fois :

Function SumDigits(ByVal Nombre As String) As Integer

Dim i As Integer, Chiffre As String, Res As Long

For i = 1 To Len(Nombre)
    Chiffre = Mid(Nombre, i, 1)
    If IsNumeric(Chiffre) Then Res = Res + Chiffre
Next
If Res < 10 Then SumDigits = Res Else SumDigits = SumDigits(Res)

End Function

Merci