Forcer le format nombre en sortie userform
Résolu
ricnoynoy
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
ricnoynoy Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
ricnoynoy Messages postés 15 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.
A voir également:
- Forcer le format nombre en sortie userform
- Forcer demarrage pc - Guide
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Forcer la reinitialisation pc - Guide
- Forcer suppression fichier - Guide
Je n'y avais pas pensé en effet, mais ça ne marche pas. C'est peut-être la textbox qu'on doit formater en amont ?
Déjà essayés :
.Offset(0, 3).Value = CDbl(UserForm!TextBox40.Value)
.Offset(0, 3).Value = CDbl(TextBox40)
.Offset(0, 3).Value = Val(TextBox40)
Peut-etre au niveau du separateur de decimale!!!!!!
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.