Discussion :

[Ateo21]

Bonjour,

Apres mes recherches infructueuses, je suis tombé sur votre site qui j'espere m'aidera...
Alors voila :

Je possede un champ de chiffres qui ne dépasse pas 3 caracteres et j'aimerais d'une part pouvoir égaliser ou augmenter les chiffres à 3 caracteres et d'autre part avoir un "0" devant la chaine de caratere.

Exemple : j'ai un chiffre "80" et j'aimerais que celui ci devien "080" sans dépasser le nombre de 3 caracteres. ou si j'ai "1" j'aimerai qu'il devienne "001"
Toutefois pour un chiffre de déjà 3 carateres aucune retouche n'est nécessaire.

En tout espoir...merci pour toute aide

[SfJ5Rpw8]

et il est ou ce champ...? voir format...

[Ateo21]

Ce champ est dans une feuille excel 2000, et
bien entendu j'ai déjà essayé en modifiant le format par un format personnalisé mais cela ne change rien puisque le but est de faire une concténation ac un champ texte pour avoir par exemple AA + 80 -> AA080 et non AA80

[illight]

Tu veux le faire en VBA ou par formule ?

Par formule, en étant barbare comme d'habitude tu peux écrire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=SI(NBCAR(E4)=1;CONCATENER(D4;"00";E4);SI(NBCAR(E4)=2;CONCATENER(D4;"0";E4);CONCATENER(D4;E4)))

la colonne D ou il y a ton texte, et la colonne B ou il y a ton nombre

Pour la macro, il faut faire un truc du meme genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
For a = 4 To 6
Cells(a, 5).NumberFormat = "@"
deb1:
    If Len(Cells(a, 5).Value) < 3 Then
        Cells(a, 5).Value = 0 & Cells(a, 5).Value
        GoTo deb1
    End If
Next a

et après tu fais une bete concaténation entre tes 2 cellules

[Ateo21]

Génial Merci