Code et conversion

Bonjour,

J'utilise Excel dans le cadre de la comptabilité de mon entreprise (textile). J'aimerais pouvoir convertir les codes produits (liste fournisseur) en code exploitable sous une "forme standard" dans Excel. Le code converti doit avoir un apostrophe au début, aucun tiret et exactement 10 chiffres, autant de "0" sont à rajouter à la place du tiret afin que le code est 10 chiffres.

0080-5622 =====> '0080005622

0080-55622 ====> '0080055622

0080-555622 ===> '0080555622

Je ne vois aucune fonction simple permettant d'effectuer cette opération et je ne peux pas me permettre de traiter des milliers de lignes manuellement... Ce problème dépasse mes compétences. Quelqu'un aurait-il une idée?

Merci pour votre temps!

Bonjour,

Puisque tu n'a pas joint de fichier, je t'ai créé directement une fonction spéciale (et me suis donc basé sur les exemples que tu as fourni) ...

1. Ajoute ce code dans un module :

Function CONVERSION(code As String) 'Sébastien - Excel-Pratique.com
    CONVERSION = Split(code, "-")(0) & Format(Split(code, "-")(1), "000000")
End Function

2. Convertis tes codes avec la nouvelle fonction, exemple :

=CONVERSION(A1)

Le fichier :

Cordialement,

Salut le forum

Par formule

=GAUCHE(A1;TROUVE("-";A1)-1) & REPT(0;11-NBCAR(A1)) & STXT(A1;TROUVE("-";A1)+1;99)

Et pour ajouter l'apostrophe

="'" &GAUCHE(A1;TROUVE("-";A1)-1) & REPT(0;11-NBCAR(A1)) & STXT(A1;TROUVE("-";A1)+1;99)

Si toujours quatre caractères devant le tiret

=GAUCHE(A1;4) & REPT(0;11-NBCAR(A1)) & STXT(A1;6;NBCAR(A1)-5)

Une dernière pour remplacer le tiret par le nombre de zéros manquants

=SUBSTITUE(A1;"-";REPT(0;11-NBCAR(A1)))

Mytå

Bonjour,

Par formule aussi :

="'"&GAUCHE(A1;4)&TEXTE(STXT(A1;6;99);"000000")

@+