Excel : Cellule avec toujours 8 caractères

Lutz -  
NICK337 Messages postés 23 Statut Membre -

Bonjour. Je souhaite faire un VBA. J'arrive à faire la mise en page mais je veux également intégrer une formule dans la macro :

J'importe des valeurs dans un tableau. De la cellule B7 à B2000 il y a que des numéros. S'il y a moins de 8 chiffres, il faut rajouter un ou des zéros devant la valeur pour atteindre un total de 8 caractères dans chaque cellule de cette colonne.

J'espère avoir mis le sujet dans la bonne catégorie. 

Bonne réflexion 

Cordialement 

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     

    Bonjour,

    Formatez la colonne.

    Code obtenu avec l'enregistreur de macro et modifie pour eviter les select

    Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("C:C").NumberFormat = "00000000"
    'Selection.NumberFormat = "00000000"
End Sub
    0
  2. NICK337 Messages postés 23 Statut Membre
     

    Bonjour,

    Pour ajouter des zéros devant les valeurs dans la colonne B de votre feuille Excel à l’aide d’une macro VBA, vous pouvez utiliser le code suivant :

    Sub AjouterZeros()
    Dim Plage As Range
    Dim Cellule As Range

    ' Définir la plage de cellules
    Set Plage = ThisWorkbook.Sheets("Nom_de_votre_feuille").Range("B7:B2000")

    ' Parcourir chaque cellule dans la plage
    For Each Cellule In Plage
        ' Si la cellule n'est pas vide
        If Cellule.Value <> "" Then
            ' Ajouter des zéros devant la valeur jusqu'à atteindre 8 caractères
            Cellule.Value = Right("00000000" & Cellule.Value, 8)
        End If
    Next Cellule
End Sub

    N’oubliez pas de remplacer “Nom_de_votre_feuille” par le nom de votre feuille Excel.

    0