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

TOURILLE1 Messages postés 11 Statut Membre -  
Le Pingou Messages postés 12276 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

2 réponses

  1.
    PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
     
    Bonjour

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