Novice avance !?
XLDnaute Occasionnel
bonjour,
soit un code formater ces textbox au format "0,00" mais comment forcer de la même manière quelque soit la manière d'entrer les chiffres
qu'on entre par exemple 125,25 ou 125.25 !?
Private Sub CommandButton1_Click()
Dim k As Byte
Dim h As Byte
h = 5
For k = 1 To 4
Controls("TextBox" & h) = Format(Controls("TextBox" & h), "0.00")
h = h + 1
colonne = colonne + 1
Next k
End Sub
merci par avance
soit un code formater ces textbox au format "0,00" mais comment forcer de la même manière quelque soit la manière d'entrer les chiffres
qu'on entre par exemple 125,25 ou 125.25 !?
Private Sub CommandButton1_Click()
Dim k As Byte
Dim h As Byte
h = 5
For k = 1 To 4
Controls("TextBox" & h) = Format(Controls("TextBox" & h), "0.00")
h = h + 1
colonne = colonne + 1
Next k
End Sub
merci par avance