Formater un Integer sur 3 digits

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.

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

Code:

---

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.

Bonjour,
En vba

Code:

---

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:

---

=TEXTE(A4;"000")

---

Bonjour,

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

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 :D)

Bonjour,

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

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.

Il suffit d"ajouter un '0' à l'argument de la fonction FORMAT. Et que se passera t'il si cela dépasse 9999 ?:roll:

Code:

---

Format(c, "0000")

---

Rien ne remplacera la bonne analyse d'un projet.