Récupération dansTableau VBa d'éléments à additionner

[le CH'TI160]

Bonjour le Forum,
Une petite question qui ce pose à moi, suite à un post de ce matin
Somme Des chiffres d'une Date,J'avais pensé pouvoir via un
tableau récupérer les différents chiffres de cette date sans format particulier 01032004 tableau(8) puis ensuite faire la somme de ces différentes valeurs, mais bon les tableau c'est pas évident.Quelqu'une ou quelqu'un a t'il jamais tenté cette petite combine
Enfin Dans l'attente d'une réponse qu'elle qu'elle sois, je poursuis mes recherches
et vous remercie d'avance.

A+++ Jean Marie

 

[omicron]

Bonsoir le CH'TI

Voici un exemple qui doit répondre à la question posée

Private Sub CommandButton1_Click()
x = Day(Range("A1").Value) & Month(Range("A1").Value) & Year(Range("A1").Value)
s = 0
Do Until Len(x) = 0
s = s + Left(x, 1)
x = Right(x, Len(x) - 1)
Loop
MsgBox "date = " & CDate(Range("A1").Value) & Chr(10) & "total = " & s
End Sub

C'est la séquence à coder dans un bouton qui déclenche la somme des chiffres de la date contenue dans la cellule A1.

Bon courage pour la suite ....

 

[le CH'TI160]

Salut "omicron "
Merci pour l'interêt que tu as porté a mon petit problème
je te souhaite une bonne nuit et encore merci
A+++
Jean Marie