besoin d'aide pour macro avec plusieurs IF succéssifs

[loiclass]

Bonjour,

J'aurais besoin d'aide sur une partie de macro.
Mon but est de d'avoir:

Si x<9 alors on écrit 0001, 0002, ... 0009
Si 10<x<99 alors on écrit 0010,0011 ... 0099
Si 100<x<999 alors on écrit 0100... 0999
Si x<1000 alors on écrit 1000, 1001 ...

J'ai tenté de l'écrire avec le code suivant qui ne fonctionne qu'en partie.

If .Range("A2")< 9 then
num="000" & .Range("A2")
End if

If 10< .Range("A2") < 99 then
num="00" & .Range("A2")
End if

If 100 < .Range("A2") < 999 then
num="0" & .Range("A2")
End if

If .Range("A2") > 999 then
num=.Range("A2")
End if

Est ce que quelqu'un pourrait m'aider, svp?

Merci

 

[Pierrot93]

Re : besoin d'aide pour macro avec plusieurs IF succéssifs

Bonjour,

petite remarque au passage, pourquoi ne pas utiliser un format personnalisé :
0000

bonne journée
@+

 

[loiclass]

Re : besoin d'aide pour macro avec plusieurs IF succéssifs

Merci Pierrot,

Je n'y avais pas pensé, je cherchai à faire compliqué.
Je teste et revient vers vous si nécessaire.