Ajouter un 0 si le nombre de chiffres est inférieur à 6

Bonjour,

Je souhaite pouvoir importer des références dans un logiciel et pour cela, j'ai besoin que les données soit de la même longueur et avec un préfixe devant

Pour l'ajout du préfixe, j'ai déjà cette formule qui fonctionne.

---------------------------------------------------------------------------------------------------------

Dim c As Range

For Each c In Selection
If c.Value <> "" Then c.Value = "ABC" & c.Value
End Sub

----------------------------------------------------------------------------------------------------------------

Mon problème est que certaines références ne sont pas de la bonne longueur qui est de 6 chiffres sans le préfixe.

j'aimerais donc avoir une macro qui rajoute le 0 manquant juste avant le "ABC" rajouter devant la selection.

Exemple :

805963

46582

659715

658875

Apres la macro

ABC805963

ABC046582

ABC659715

ABC658875

Pouvez vous m'aider ?

Merci d'avance.

Bonjour

If c.Value <> "" Then c.Value = "ABC" & Format(c.Value,"000000")

Merci de modifier ton profil : la version 2201 d'Excel n'existe pas. 2201 peut être la révision de 2019, 2021 ou 365...

Parfait ! Merci beaucoup !

Oui, autant, pour moi je procède à la modification.