Discussion :

[jlppap]

Bonjour,

La question paraît pourtant simple mais je ne m'en sort pas.

j'ai un tableau xl2003 avec une colonne A de nombres de 4 chiffres sans déc.
Je voudrais recopier cette colonne en B mais au format texte... en mettant des '0' devant les nombres de moins de 4 caractères.

Est-ce possible par macro ?

MERCI d'avance pour votre aide .

[EngueEngue]

En B1 :

Code :

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

=SI(NBCAR(A1)=1;"000" & TEXTE(A1;0);SI(NBCAR(A1)=2;"00" & TEXTE(A1;0);SI(NBCAR(A1)=3;"0" & TEXTE(A1;0);TEXTE(A1;0))))

Puis tu traines

Par macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub toto()
Dim i as long
with Sheets("Feuil1")'mets le nom de ta feuille
For i = 1 to .range("A" & .rows.count).end(xlup).row 'je suppose qu'on commence à la première ligne
Select case len(.range("A" & i))
Case 1
.range("B" & i)="000" & cstr(.range("A" & i))
Case 2
.range("B" & i)="00" & cstr(.range("A" & i))
Case 3
.range("B" & i)="0" & cstr(.range("A" & i))
Case 4
.range("B" & i)= cstr(.range("A" & i))
end select
next i
end with
end sub

[jlppap]

SUPER !

MERCI beaucoup c'est parfait.

Bonne journée

[parmi]

Ça pourrait être une formule comme celle-ci

Code :

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

=TEXTE(A1;"0000")

ou dans une boucle comme ceci

Code :

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

1
2
3
4
5
6
7
8
Dim I As Long, nbLignes As Long
 
nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
Columns("A").NumberFormat = "@"
 
For I = 2 To nbLignes
    Range("A" & I) = Format(Range("A" & I), "0000")
Next

[jlppap]

MERCI à vous aussi.

Je vais tester et clore l'appel.