Forcer le format nombre en sortie userform

Résolu/Fermé

ricnoynoy Messages postés 15 Date d'inscription jeudi 25 avril 2019 Statut Membre Dernière intervention 3 mai 2019 - 26 avril 2019 à 15:58
ricnoynoy Messages postés 15 Date d'inscription jeudi 25 avril 2019 Statut Membre Dernière intervention 3 mai 2019 - 30 avril 2019 à 17:38

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.

A voir également:

Forcer le format nombre en sortie userform
Forcer demarrage pc - Guide
Format epub - Guide
Forcer suppression fichier - Guide
Forcer la reinitialisation pc - Guide
Telecharger format factory - Télécharger - Conversion & Codecs

2 réponses

Réponse 1 / 2

juer31 Messages postés 109 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 4 octobre 2024 6
Modifié le 26 avril 2019 à 16:20

Essai mais pas certain

.Offset(0, 3).Value = CDbl(UserForm!TextBox40.Value)

ricnoynoy Messages postés 15 Date d'inscription jeudi 25 avril 2019 Statut Membre Dernière intervention 3 mai 2019
26 avril 2019 à 16:36

Bonjour juer31 et merci pour l'aide.

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)

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
30 avril 2019 à 17:23

Bonjour,

Peut-etre au niveau du separateur de decimale!!!!!!

ricnoynoy Messages postés 15 Date d'inscription jeudi 25 avril 2019 Statut Membre Dernière intervention 3 mai 2019
30 avril 2019 à 17:38

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.

Réponse 2 / 2

ricnoynoy Messages postés 15 Date d'inscription jeudi 25 avril 2019 Statut Membre Dernière intervention 3 mai 2019
30 avril 2019 à 15:35

UP !

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
30 avril 2019 à 17:37

Bonjour,
Comme ecrit précédemment , voir cote separateur de decimale

Discussions similaires

Accès a Snapchat temporairement désactivé