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

yahya belbachir · 27 Février 2020

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 · 27 Février 2020

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

Dranreb · 27 Février 2020

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

yahya belbachir · 27 Février 2020

Dranreb à dit:

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 · 27 Février 2020

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

jmfmarques · 27 Février 2020

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 · 27 Février 2020

re
bonjour jmfmarques
exact autant pour moi

yahya belbachir · 28 Février 2020

patricktoulon à dit:

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

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

yahya belbachir

XLDnaute Occasionnel

Pièces jointes

Dranreb

Dranreb

XLDnaute Barbatruc

yahya belbachir

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

yahya belbachir

XLDnaute Occasionnel

Discussions similaires