Sujet Précédent Sujet Suivant

Excel : Cellule avec toujours 8 caractères

Lutz - 30 oct. 2023 à 14:42
NICK337 Messages postés 9 Date d'inscription vendredi 3 juillet 2015 Statut Membre Dernière intervention 13 décembre 2023 - 7 nov. 2023 à 23:11

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 17188 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 704
30 oct. 2023 à 16:55

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 vendredi 3 juillet 2015 Statut Membre Dernière intervention 13 décembre 2023
7 nov. 2023 à 23:11

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