Forcer le format nombre en sortie userform
Résolu
ricnoynoy
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
ricnoynoy Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
ricnoynoy Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerai qu'en sortie d'userform, ma textbox40 soit forcer en format nombre. Car elle se colle en texte et les données ne sont ensuite plus exploitables.
J'ai déjà tenté le cbdl devant textbox40 sans succès (si quelqu'un peut m'expliquer pourquoi d'ailleurs que je progresse ?)
Voici la partie du code en question :
Private Sub CommandButton1_Click()
If ComboBox20.Value = "Ansot" Then
With Sheets("ANSOT")
With .Cells(.Rows.Count, "A").End(xlUp)(2)
.Value = TextBox10
.Offset(0, 1).Value = ComboBox20
.Offset(0, 2).Value = CDate(TextBox30)
.Offset(0, 3).Value = TextBox40
.Offset(0, 4).Value = TextBox50
End With
End With
Merci d'avance.
J'aimerai qu'en sortie d'userform, ma textbox40 soit forcer en format nombre. Car elle se colle en texte et les données ne sont ensuite plus exploitables.
J'ai déjà tenté le cbdl devant textbox40 sans succès (si quelqu'un peut m'expliquer pourquoi d'ailleurs que je progresse ?)
Voici la partie du code en question :
Private Sub CommandButton1_Click()
If ComboBox20.Value = "Ansot" Then
With Sheets("ANSOT")
With .Cells(.Rows.Count, "A").End(xlUp)(2)
.Value = TextBox10
.Offset(0, 1).Value = ComboBox20
.Offset(0, 2).Value = CDate(TextBox30)
.Offset(0, 3).Value = TextBox40
.Offset(0, 4).Value = TextBox50
End With
End With
Merci d'avance.
2 réponses
-
Essai mais pas certain
.Offset(0, 3).Value = CDbl(UserForm!TextBox40.Value)-
-
-
J'ai finalement trouvé après des heures de galère ^^ : .Offset(0, 3).Value = CDbl(Me.TextBox40) *1
Ce n'est pas une solution très orthodoxe mais elle a fonctionné. En multipliant par 1 ça lui donne un format nombre.
PS : la même formule sans le "*1" ne fonctionnait pas.
Si quelqu'un a une explication logique, je suis preneur.
-
-
