VBA complété la valeur par des zéro dans fichier Excel Fermé

Question

Bonjour, 

J’utilise un VBA pour mon fichier  je n’arrive pas à corriger la VBA de mon fichier Excel
Dans mon fichier  pour la colonne E, Je voudrais seulement 8 caractères et que le nombre soit complété par des 0 à la fin.
Je m’explique si je mets 411 dans la cellule colonne D le nombre doit d’être complété par des 0 à la fin.
Exemple : 411 =  41100000   et 62751 doit afficher 62751000
En pièce-jointe mon fichier.
Merci de votre aide.



Configuration: Windows / Chrome 100.0.4896.127

PHILOU10120 · Answer

Bonjour 

Il manque la pièce jointe le fichier ?

Le Pingou · Answer

Bonjour,
Eh bien en admettant que votre valeur se trouve en [A2] et le résultat en [B2] et que le résultat doit avoir toujours 8 caractères numérique.
Ma proposition :
Sub ajusternombre()
nb = Range("A2")
If Len(nb) < 8 Then
    x = 8 - Len(nb)
    Range("B2") = Range("A2") * (10) ^ (x)
End If
End Sub

VBA complété la valeur par des zéro dans fichier Excel

2 réponses

Discussions similaires