Formater un Integer sur 3 digits

**rodrigue62** · 20/01/2011, 16h49

Bonjour,

J'ai un integer, mais j'aimerais pouvoir déclarer celui-ci pour qu'il soit toujours sur 3 chiffres. Cet integer sert de compteur et j'aimerais qu'il soit incrémenté de la sorte chaque fois que je lui aditionne "1" :
001
002
...
010
011
..
099
100
101
...
Est-ce possible? Merci d'avance.

**rvtoulon** · 20/01/2011, 17h06

Bonjour,
à mon avis tu devrais utiliser une variable string pour renvoyer 001 etc....
par exemple :

Code :

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

1
2
3
4
5
6
7
Dim val1 As Integer, val2 As String
 
For i = 1 To 10
val1 = val1 + 1
val2 = Format(val1, "000")
MsgBox val2
Next i

remarque: si tu envois le résultat dans une cellule il faut qu'elle soit au format texte.

**Philippe Tulliez** · 20/01/2011, 17h13

Bonjour,
En vba

Code :

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

1
2
3
 Dim c As Integer
 c = 1
 Debug.Print "--" & Format(c, "000")

A l'aide d'une fonction excel, si le nombre est en A4

Code :

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

=TEXTE(A4;"000")

**rjamin** · 21/01/2011, 07h57

Bonjour,

En passant par Format de cellule > Personnalisé et mettre 000 dans le format.

**rodrigue62** · 21/01/2011, 08h53

Bonjour,

Merci pour vos nombreuses réponses.
En fait le nombre n'est jamais écris dans un cellule.
C'est un compteur de boucle et lorsque j'ai finit de compter je le concatene avec une chaine de caratère pour écrire du texte dans un cellule.
Je ne peux donc pas changer le format de cellule pour donner directement la mise en forme du nombre.
Je vais essayer la première méthode de Corona. je vous tiens au courant si je réussis (Et également si je ne réussis pas pour solliciter encore votre aide

)

**Godzestla** · 21/01/2011, 09h23

Bonjour,

qu'as tu prévu quand ton compteur dépasse 999 ?

**rodrigue62** · 21/01/2011, 14h07

La fonction Format() fait très bien ce que je voulais faire.
Bonne remarque de Godzestla, ca ne devrait logiquement pas arriver car je n'ai pour le momment jamais eu plus de 500 passage de boucle, mais il faudrait peut etre quand même que je fasse une gestion d'erreur au cas ou un jour çà arriverai pour que la personne pour qui ca arrivera reussisse à maintenir facilement.