FORMAT NUM sous userform
Résolu
abouziad2010
-
abouziad2010 -
abouziad2010 -
salut tout le monde,
j'ai crée un tableau de calcule sous excel, et pour saisir les données j'ai crée un userform
le problème c'est que je saisis sous userform un numero avec decimal (ex 6,5) dans le tableau de calcul sous excel cette valeur elle se concidere comme format texte
par exemple si j 'entre dans
textbox1 ---- 5
textbox2 ---- 7
textbox3 ---- 11,5
la 4 eme colonne où il ya la somme des 3 valeurs (textbox1 2 et 3)
la valeur entrer dans textbox3 est concidrer comme valeur texte
le code
vs.Cells(irow, 1).Value = Me.TextBox1.Value
vs.Cells(irow, 2).Value = Me.TextBox2.Value
vs.Cells(irow, 3).Value = Me.TextBox3.Value
je voudrais savoir comment saisir format numerique
Merci bien
j'ai crée un tableau de calcule sous excel, et pour saisir les données j'ai crée un userform
le problème c'est que je saisis sous userform un numero avec decimal (ex 6,5) dans le tableau de calcul sous excel cette valeur elle se concidere comme format texte
par exemple si j 'entre dans
textbox1 ---- 5
textbox2 ---- 7
textbox3 ---- 11,5
la 4 eme colonne où il ya la somme des 3 valeurs (textbox1 2 et 3)
la valeur entrer dans textbox3 est concidrer comme valeur texte
le code
vs.Cells(irow, 1).Value = Me.TextBox1.Value
vs.Cells(irow, 2).Value = Me.TextBox2.Value
vs.Cells(irow, 3).Value = Me.TextBox3.Value
je voudrais savoir comment saisir format numerique
Merci bien
A voir également:
- FORMAT NUM sous userform
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
- Format bin - Guide
2 réponses
Bonjour,
En fait le séparateur de décimale "virgule" est interprété comme du texte en VBA. Donc il n'existe que deux possibilités simples.
1/ saisir les décimales en utilisant le point dans l'exemple :
5
7
11.5
Fonctionne correctement.
2/ Convertir les chaines en décimale avec l'instruction suivante :
vs.Cells(irow, 1).Value = CDbl(Me.TextBox1.Value)
vs.Cells(irow, 2).Value = CDbl(Me.TextBox2.Value)
vs.Cells(irow, 3).Value = CDbl(Me.TextBox3.Value)
Mais rien n'est parfait. Dans le premier cas rien n'empêche l'utilisateur de saisir une virgule et dans le second cas si il saisit un texte quelconque cela provoque une erreur.
Cordialement,
En fait le séparateur de décimale "virgule" est interprété comme du texte en VBA. Donc il n'existe que deux possibilités simples.
1/ saisir les décimales en utilisant le point dans l'exemple :
5
7
11.5
Fonctionne correctement.
2/ Convertir les chaines en décimale avec l'instruction suivante :
vs.Cells(irow, 1).Value = CDbl(Me.TextBox1.Value)
vs.Cells(irow, 2).Value = CDbl(Me.TextBox2.Value)
vs.Cells(irow, 3).Value = CDbl(Me.TextBox3.Value)
Mais rien n'est parfait. Dans le premier cas rien n'empêche l'utilisateur de saisir une virgule et dans le second cas si il saisit un texte quelconque cela provoque une erreur.
Cordialement,