XL 2010 Textbox format number avec des zéros au début

[yahya belbachir]

Bonjour
pouvez vous m'aider pour trouver la méthode comment afficher la valeur numérique d'un textbox qui début avec des zéros dans une cellule,et que je puisse afficher la même valeur du cellule vers le textbox,j'ai essayé plusieurs fois mais je n'ai rien trouvé.
merci.

 

[Dranreb]

Bonsoir.

Private Sub CommandButton1_Click()
   With Worksheets("Feuil1").[A1000000].End(xlUp).Offset(1)
      .Value = Me.TextBox1.Value
      .NumberFormat = String(15, "0")
      End With
   End Sub
Private Sub CommandButton2_Click()
   Me.TextBox1.Text = Format(Worksheets("Feuil1").[A1000000].End(xlUp).Value, String(15, "0"))
   End Sub

 

[yahya belbachir]

Bonsoir.

Private Sub CommandButton1_Click()
   With Worksheets("Feuil1").[A1000000].End(xlUp).Offset(1)
      .Value = Me.TextBox1.Value
      .NumberFormat = String(15, "0")
      End With
   End Sub
Private Sub CommandButton2_Click()
   Me.TextBox1.Text = Format(Worksheets("Feuil1").[A1000000].End(xlUp).Value, String(15, "0"))
   End Sub

merci infiniment
j'ai bien résolu mon probléme

 

[patricktoulon]

re
tu prend le .text de la cellule tout simplement 😉

Private Sub CommandButton1_Click()
   With Worksheets("Feuil1").[A1000000].End(xlUp).Offset(1)
      .Value = Me.TextBox1.Value
      .NumberFormat = String(15, "0")
   End With
End Sub

Private Sub CommandButton2_Click()
   Me.TextBox1.Text = Worksheets("Feuil1").[A1000000].End(xlUp).text
End Sub

 

[jmfmarques]

Bonjour

tu prend le .text de la cellule tout simplement

yahya belbachir fera bien de garder le code de Dranreb qui, lui, le met à l'abri de résultats inattendus (tels "######" en cas d'une mauvaise manoeuvre de l'utlisateur (augmentation de la taille de la police, diminution de la largeur de la colonne, etc ...)

 

[patricktoulon]

re
bonjour jmfmarques
exact autant pour moi

 

[yahya belbachir]

re
tu prend le .text de la cellule tout simplement 😉

Private Sub CommandButton1_Click()
   With Worksheets("Feuil1").[A1000000].End(xlUp).Offset(1)
      .Value = Me.TextBox1.Value
      .NumberFormat = String(15, "0")
   End With
End Sub

Private Sub CommandButton2_Click()
   Me.TextBox1.Text = Worksheets("Feuil1").[A1000000].End(xlUp).text
End Sub

ça aussi fonctionne très bien merci Patrick