Excel : Cellule avec toujours 8 caractères

Lutz -  
NICK337 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -

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 

A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 

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
Réponse 2 / 2
NICK337 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 

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