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

yahya belbachir

XLDnaute Junior
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.
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

Dranreb

XLDnaute Barbatruc
Bonsoir.
VB:
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
 
Ce message a été identifié comme étant une solution!

yahya belbachir

XLDnaute Junior
Bonsoir.
VB:
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

XLDnaute Barbatruc
re
tu prend le .text de la cellule tout simplement ;)

VB:
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
 

yahya belbachir

XLDnaute Junior
re
tu prend le .text de la cellule tout simplement ;)

VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas