Excel : Cellule avec toujours 8 caractères Fermé

Question

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

f894009 · Answer

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

NICK337 · Answer

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.