Sujet Précédent Sujet Suivant

SOS: extraire les chiffres d'un nombre

Fermé
hcfkns Messages postés 1 Date d'inscription mercredi 6 février 2013 Statut Membre Dernière intervention 6 février 2013 - 6 févr. 2013 à 14:43
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 8 févr. 2013 à 08:59
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
8 févr. 2013 à 08:59
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