Ajouter chiffre à gauche de la cellule

Bonjour,

Me demande comment faire "formule ou macro" pour ajouter le meme chiffre "1250" au à gauche de tout les codes des cellules de la colonne B?

exemple:

b1: 85G4 devient 125085G4

b2: 6N84 devient 12506N84

b3: 54V8 devient 125054V8

Cordialement

Bonjour

Le plus simple

en c1

=1250&B1

Cordialement

Bonjour

Merci Amadéus,

ça marche mais pose un problème si le chiffre à ajouter est 01250, car le zéro à gauche va disparaître !

Une solution?

Bonjour

Ploom a écrit :

ça marche mais pose un problème si le chiffre à ajouter est 01250, car le zéro à gauche va disparaître !

As-tu essayé ?

Bonjourm

Oui j'ai bien essayé ce cas =01250&21458ZK01 est le résultat c'est 125021458ZK01 au lieu 0125021458ZK01

Une idée?

Bonjour,

Voilà j'ai trouvé la solution,

pour éviter la disparition du zéro je doit ajouté le nombre comme "01250" au lieu 01250, donc ="01250"&B1

Et pour le faire en macro?

Bonjour

Pour ajouter une valeur inscrite dans le Code

Sub Ajouter()
Dim MaCellule As Object
For Each MaCellule In Range("B2", Range("B2").End(xlDown))
'Ma Valeur à ajouter est ligne suivante
MaCellule.Value = "01250" & MaCellule.Value
Next MaCellule
End Sub

Pour ajouter une valeur inscrite dans une autre cellule, A1 par exemple

Sub Ajouter2()
Dim MaCellule As Object
For Each MaCellule In Range("B2", Range("B2").End(xlDown))
MaCellule.Value = Range("A1") & MaCellule.Value
Next MaCellule
End Sub

Fichier exemple joint (Le Code est dans le Module)

Cordialement

Bonjour,

C'est impeccable Amadéus

Sincères remerciements