SOS: extraire les chiffres d'un nombre

hcfkns Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
quel est l'équivalent de Mid sur VBA pour les nombres?
En fait je veux extraire les chiffres d'un nombre et les utiliser pour fair des calculs
par exemple pour 245 faire 2^2+4^2+5^2 ou 2, 4 et 5 sont les chiffres qui composent le nombre 254
Merci

1 réponse

Réponse 1 / 1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

essaies cette macro paramétrée 
Sub decomposer_nombre(onglet, cellule, nombre)
Dim grandeur As Byte, cptr As Byte, tablo()

grandeur = Len(nombre)
ReDim tablo(1 To grandeur)
For cptr = 1 To grandeur
     tablo(cptr) = Mid(nombre, cptr, 1) * 1
Next
Sheets(onglet).Range(cellule).Resize(1, grandeur) = tablo
End Sub

'----
Sub test()
decomposer_nombre "feuil1", "B2", 245
End Sub

Sub test2()
decomposer_nombre "feuil1", "B4", 23976
0