Prendre les "0" avant le chiffre d'une cellule

Bonjour le forum,

Savez-vous comment je peut avoir garder les 0 avant le 1 s'il vous plait? j'aimerais les afficher sur la TxtBox mais j'y arrive pas. J'ai modifier le type des cellules pour garder les 0 sur le tableau excel mais sur l'UserForm il ne l'ait prend pas Merci pour votre aide.

Private Sub UserForm_Initialize()

    Range("Tableau1[[#Headers],[Numéro]]").Select
    Selection.End(xlDown).Select
    Me.TextnumAffaire = Selection.Value

End Sub

Cordialement.

Hello tu prends une valeur, avec ton .Value, il faut que tu récupères une chaîne de caractère type string

@+

Bonjour,

Pour ma part, je pense que l'affichage "00001" est un format de cellule qu'il faut donc reproduire

 Me.TextnumAffaire = Format(Selection.Value,"00000")

A+

Merci a vous deux pour votre aide,

Bruno j'ai essayé t'a méthode mais il m'affiche un message d'erreur?

Private Sub UserForm_Initialize()
    Range("Tableau1[[#Headers],[Numéro]]").Select
    Selection.End(xlDown).Select
    Me.TextnumAffaire = Format(Selection.Value, "00000")
End Sub

Merci.

Re,

Que contient la cellule A4 exactement ?

A+

Bonjour,

Bonjour Bruno , finies les vacances? (moi, je commence...)

Sinon, avec cette syntaxe?

Me.TextnumAffaire.Text = Selection.Text

Peut-être?