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

TOURILLE1 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
PHILOU10120 Messages postés 6445 Date d'inscription   Statut Contributeur Dernière intervention   824
 
Bonjour

Il manque la pièce jointe le fichier ?
0
Réponse 2 / 2
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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

0