J'ai un problème avec le format d'un TextBox.
Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je
place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très
bien
-------
TextBox6 = Range("I7") 'Prix
TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?")
-------
Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la
cellule A1
-------
Prix = Val(TextBox6.Value)
Range("A1") = Prix
-------
Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15 ?
je n'ai plus que 212,00 ?,
La case A1 est bien au bon format
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
Bonjour,
Val() plante quand le séparateur décimal dans les paramètres régionaux est la virgule.
Au lieu de Val() utilise les fonctions de conversion en numérique
Cint() : pour convertir en nombre entier (<32768) Clng() : pour convertir en entier long (beaucoup plus haut que 32768) Csng() : Pour convertir en nombre à virgule flottante en simple précision ( Environ 7 chiffres significatifs) Cdbl() : Pour convertir en nombre à virgule flottant en double précision. (Environ 16 chiffres significatifs).
"Steph" a écrit dans le message de news:%23M9k%
Bonjour,
J'ai un problème avec le format d'un TextBox. Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je
place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très
bien ------- TextBox6 = Range("I7") 'Prix TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?") ------- Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la
cellule A1 ------- Prix = Val(TextBox6.Value) Range("A1") = Prix ------- Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15 ?
je n'ai plus que 212,00 ?, La case A1 est bien au bon format
Pourriez vous m'aider ?
Merci
Steph
Bonjour,
Val() plante quand le séparateur décimal dans les paramètres régionaux
est la virgule.
Au lieu de Val() utilise les fonctions de conversion en numérique
Cint() : pour convertir en nombre entier (<32768)
Clng() : pour convertir en entier long (beaucoup plus haut que 32768)
Csng() : Pour convertir en nombre à virgule flottante en simple
précision ( Environ 7 chiffres significatifs)
Cdbl() : Pour convertir en nombre à virgule flottant en double
précision. (Environ 16 chiffres significatifs).
"Steph" <stephane.stommen@technic-one.com> a écrit dans le message de
news:%23M9k%23Ok0EHA.1188@tk2msftngp13.phx.gbl...
Bonjour,
J'ai un problème avec le format d'un TextBox.
Dans une 1er macro je vais chercher la valeur de la cellule "I7" que
je
place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne
très
bien
-------
TextBox6 = Range("I7") 'Prix
TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?")
-------
Après je souhaite reprendre la valeur du TextBox6 et la replacer
dans la
cellule A1
-------
Prix = Val(TextBox6.Value)
Range("A1") = Prix
-------
Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme
212,15 ?
je n'ai plus que 212,00 ?,
La case A1 est bien au bon format
Val() plante quand le séparateur décimal dans les paramètres régionaux est la virgule.
Au lieu de Val() utilise les fonctions de conversion en numérique
Cint() : pour convertir en nombre entier (<32768) Clng() : pour convertir en entier long (beaucoup plus haut que 32768) Csng() : Pour convertir en nombre à virgule flottante en simple précision ( Environ 7 chiffres significatifs) Cdbl() : Pour convertir en nombre à virgule flottant en double précision. (Environ 16 chiffres significatifs).
"Steph" a écrit dans le message de news:%23M9k%
Bonjour,
J'ai un problème avec le format d'un TextBox. Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je
place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très
bien ------- TextBox6 = Range("I7") 'Prix TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?") ------- Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la
cellule A1 ------- Prix = Val(TextBox6.Value) Range("A1") = Prix ------- Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15 ?
je n'ai plus que 212,00 ?, La case A1 est bien au bon format
Pourriez vous m'aider ?
Merci
Steph
docm
Bonjour.
En complément de la réponse de Clément, la fonction Val() remonte à une époque où les paramètres régionaux en Basic n'existaient pas. Donc Val() ne reconnaît que le point comme séparateur décimal. Tout autre caractère est interprété comme étant du texte ( donc non numérique). Sous toutes réserves.
"Steph" wrote in message news:#M9k#
Bonjour,
J'ai un problème avec le format d'un TextBox. Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très bien ------- TextBox6 = Range("I7") 'Prix TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?") ------- Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la cellule A1 ------- Prix = Val(TextBox6.Value) Range("A1") = Prix ------- Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15 ?
je n'ai plus que 212,00 ?, La case A1 est bien au bon format
Pourriez vous m'aider ?
Merci
Steph
Bonjour.
En complément de la réponse de Clément, la fonction Val() remonte à une
époque où les paramètres régionaux en Basic n'existaient pas. Donc Val() ne
reconnaît que le point comme séparateur décimal. Tout autre caractère est
interprété comme étant du texte ( donc non numérique).
Sous toutes réserves.
"Steph" <stephane.stommen@technic-one.com> wrote in message
news:#M9k#Ok0EHA.1188@tk2msftngp13.phx.gbl...
Bonjour,
J'ai un problème avec le format d'un TextBox.
Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je
place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très
bien
-------
TextBox6 = Range("I7") 'Prix
TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?")
-------
Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la
cellule A1
-------
Prix = Val(TextBox6.Value)
Range("A1") = Prix
-------
Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15
?
je n'ai plus que 212,00 ?,
La case A1 est bien au bon format
En complément de la réponse de Clément, la fonction Val() remonte à une époque où les paramètres régionaux en Basic n'existaient pas. Donc Val() ne reconnaît que le point comme séparateur décimal. Tout autre caractère est interprété comme étant du texte ( donc non numérique). Sous toutes réserves.
"Steph" wrote in message news:#M9k#
Bonjour,
J'ai un problème avec le format d'un TextBox. Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très bien ------- TextBox6 = Range("I7") 'Prix TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?") ------- Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la cellule A1 ------- Prix = Val(TextBox6.Value) Range("A1") = Prix ------- Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15 ?
je n'ai plus que 212,00 ?, La case A1 est bien au bon format
Pourriez vous m'aider ?
Merci
Steph
Alain CROS
Bonjour
Sub test() TextBox6 = [I7] TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ") [A1] = Val(Application.Substitute(TextBox6.Value, ",", ".")) End Sub
Alain CROS
"Steph" a écrit dans le message de news: #M9k#
Bonjour,
J'ai un problème avec le format d'un TextBox. Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très bien ------- TextBox6 = Range("I7") 'Prix TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?") ------- Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la cellule A1 ------- Prix = Val(TextBox6.Value) Range("A1") = Prix ------- Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15 ? je n'ai plus que 212,00 ?, La case A1 est bien au bon format
Pourriez vous m'aider ?
Merci
Steph
Bonjour
Sub test()
TextBox6 = [I7]
TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ")
[A1] = Val(Application.Substitute(TextBox6.Value, ",", "."))
End Sub
Alain CROS
"Steph" <stephane.stommen@technic-one.com> a écrit dans le message de news: #M9k#Ok0EHA.1188@tk2msftngp13.phx.gbl...
Bonjour,
J'ai un problème avec le format d'un TextBox.
Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je
place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très
bien
-------
TextBox6 = Range("I7") 'Prix
TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?")
-------
Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la
cellule A1
-------
Prix = Val(TextBox6.Value)
Range("A1") = Prix
-------
Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15 ?
je n'ai plus que 212,00 ?,
La case A1 est bien au bon format
Sub test() TextBox6 = [I7] TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ") [A1] = Val(Application.Substitute(TextBox6.Value, ",", ".")) End Sub
Alain CROS
"Steph" a écrit dans le message de news: #M9k#
Bonjour,
J'ai un problème avec le format d'un TextBox. Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très bien ------- TextBox6 = Range("I7") 'Prix TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?") ------- Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la cellule A1 ------- Prix = Val(TextBox6.Value) Range("A1") = Prix ------- Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15 ? je n'ai plus que 212,00 ?, La case A1 est bien au bon format
Pourriez vous m'aider ?
Merci
Steph
Steph
Merci beaucoup, ça fonctionne très bien
"Alain CROS" a écrit dans le message de news:
Bonjour
Sub test() TextBox6 = [I7] TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?") [A1] = Val(Application.Substitute(TextBox6.Value, ",", ".")) End Sub
Alain CROS
"Steph" a écrit dans le message de news: #M9k#
Bonjour,
J'ai un problème avec le format d'un TextBox. Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très bien ------- TextBox6 = Range("I7") 'Prix TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?") ------- Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la cellule A1 ------- Prix = Val(TextBox6.Value) Range("A1") = Prix ------- Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15 ? je n'ai plus que 212,00 ?, La case A1 est bien au bon format
Pourriez vous m'aider ?
Merci
Steph
Merci beaucoup, ça fonctionne très bien
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
ePBY3um0EHA.424@TK2MSFTNGP14.phx.gbl...
Bonjour
Sub test()
TextBox6 = [I7]
TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?")
[A1] = Val(Application.Substitute(TextBox6.Value, ",", "."))
End Sub
Alain CROS
"Steph" <stephane.stommen@technic-one.com> a écrit dans le message de
news: #M9k#Ok0EHA.1188@tk2msftngp13.phx.gbl...
Bonjour,
J'ai un problème avec le format d'un TextBox.
Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je
place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très
bien
-------
TextBox6 = Range("I7") 'Prix
TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?")
-------
Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la
cellule A1
-------
Prix = Val(TextBox6.Value)
Range("A1") = Prix
-------
Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme
212,15 ?
je n'ai plus que 212,00 ?,
La case A1 est bien au bon format
Sub test() TextBox6 = [I7] TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?") [A1] = Val(Application.Substitute(TextBox6.Value, ",", ".")) End Sub
Alain CROS
"Steph" a écrit dans le message de news: #M9k#
Bonjour,
J'ai un problème avec le format d'un TextBox. Dans une 1er macro je vais chercher la valeur de la cellule "I7" que je place dans un TextBox6 au format 18,12 ?, jusque là tout fonctionne très bien ------- TextBox6 = Range("I7") 'Prix TextBox6.Value = Format(TextBox6.Value, "#,##0.00 ?") ------- Après je souhaite reprendre la valeur du TextBox6 et la replacer dans la cellule A1 ------- Prix = Val(TextBox6.Value) Range("A1") = Prix ------- Là, problème j'ai perdu les dixièmes, si au départ j'avais la somme 212,15 ? je n'ai plus que 212,00 ?, La case A1 est bien au bon format
