Un 0 devant les chiffres de 1 à 9 seulement

[Pidge]

Lors de la récupération d'une cellule, j'aimerais avoir 2 chiffres dans mon TextBox même si dans ma cellule il n'y en a qu'un. Bref, je voudrais avoir un 0 devant les chiffres de 1 à 9, mais pas pour les suivants. Est-ce que quelqu'un pourrait m'aider? Voilà ce que j'ai :

Private Sub UserForm_initialize()
TextBox1.Text = Range("A1").Value
End Sub

 

[brett]

salut,

il te faut utiliser la fonction format("chaine","format désiré")
pour ton cas voici le code:

Me.TB1.Value = Format(Range("A1").Value, "00")

ciao.

brett