Mais quand je commence ? taper les chiffres dans la case cela donne :
1.000_.125
o? me trompe-je ?
Merci
Re..
Et vi je n'ai pas précisé...
En fait c'est dans un textbox au moment de la saisie...
Cela ne répond pas à ma question
Sur un userform ou sur une feuille ? "Le textbox"
--
Salutations
JJ
"Fredo(67)" <frederic.seys@socara.net> a écrit dans le message de news:
d6fe3996-3804-452a-9750-628864b56e1a@googlegroups.com...
Et vi je n'ai pas précisé...
En fait c'est dans un textbox au moment de la saisie, plus particulièrement au moment où le focus change de
textbox.
Par contre j'utilise les valeurs saisies dans ces textbox pour faire un calcul un peu plus loin dans la
macro....
Le jeudi 16 octobre 2014 15:21:31 UTC+2, Jacky a écrit :
Pour le textbox QtE1 '-------------- Private Sub QtE1_AfterUpdate() With QtE1 If IsNumeric(.Value) Then .Value = Format(QtE1.Value, "# ##0.00") .ForeColor = IIf(.Value < 0, vbRed, vbBlack) Else MsgBox "Erreur de saisie", 64, "Saisie incorrecte" End If End With End Sub '-------------- Tu peux éventuellement ajouter ce contrôle pour n'autoriser que les chiffres '------------- Private Sub QtE1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("1234567890.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub '------------ -- Salutations JJ
"Fredo(67)" a écrit dans le message de news:
dans un USERFORM
dans un USERFORM
Aaaahhh!
Pour le textbox QtE1
'--------------
Private Sub QtE1_AfterUpdate()
With QtE1
If IsNumeric(.Value) Then
.Value = Format(QtE1.Value, "# ##0.00")
.ForeColor = IIf(.Value < 0, vbRed, vbBlack)
Else
MsgBox "Erreur de saisie", 64, "Saisie incorrecte"
End If
End With
End Sub
'--------------
Tu peux éventuellement ajouter ce contrôle pour n'autoriser que les chiffres
'-------------
Private Sub QtE1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
'------------
--
Salutations
JJ
"Fredo(67)" <frederic.seys@socara.net> a écrit dans le message de news:
d1ac8850-643a-4533-88a9-80c282099a15@googlegroups.com...
Pour le textbox QtE1 '-------------- Private Sub QtE1_AfterUpdate() With QtE1 If IsNumeric(.Value) Then .Value = Format(QtE1.Value, "# ##0.00") .ForeColor = IIf(.Value < 0, vbRed, vbBlack) Else MsgBox "Erreur de saisie", 64, "Saisie incorrecte" End If End With End Sub '-------------- Tu peux éventuellement ajouter ce contrôle pour n'autoriser que les chiffres '------------- Private Sub QtE1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("1234567890.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub '------------ -- Salutations JJ
"Fredo(67)" a écrit dans le message de news:
dans un USERFORM
Fredo(67)
c'est super, et ta proposition de vérification du type de donnée saisie et très bonne
par contre, comment pourrait on faire pour avoir l'affichage "EURO"
?
c'est super, et ta proposition de vérification du type de donnée saisie et très bonne
par contre, comment pourrait on faire pour avoir l'affichage "EURO"
c'est super, et ta proposition de vérification du type de donnée saisie et très bonne
par contre, comment pourrait on faire pour avoir l'affichage "EURO"
?
Jacky
RE..
....comment pourrait on faire pour avoir l'affichage "EURO"
Remplacer cette ligne .Value = Format(QtE1.Value, "# ##0.00") par .Value = Format(.Value, "# ##0.00 EURO") ou .Value = Format(.Value, "# ##0.00 ?")
-- Salutations JJ
"Fredo(67)" a écrit dans le message de news:
c'est super, et ta proposition de vérification du type de donnée saisie et très bonne
par contre, comment pourrait on faire pour avoir l'affichage "EURO"
?
RE..
....comment pourrait on faire pour avoir l'affichage "EURO"
Remplacer cette ligne
.Value = Format(QtE1.Value, "# ##0.00")
par
.Value = Format(.Value, "# ##0.00 EURO")
ou
.Value = Format(.Value, "# ##0.00 ?")
--
Salutations
JJ
"Fredo(67)" <frederic.seys@socara.net> a écrit dans le message de news:
2125f9b8-a9e3-4642-9c56-2ee98f6c88a8@googlegroups.com...
c'est super, et ta proposition de vérification du type de donnée saisie et très bonne
par contre, comment pourrait on faire pour avoir l'affichage "EURO"
....comment pourrait on faire pour avoir l'affichage "EURO"
Remplacer cette ligne .Value = Format(QtE1.Value, "# ##0.00") par .Value = Format(.Value, "# ##0.00 EURO") ou .Value = Format(.Value, "# ##0.00 ?")
-- Salutations JJ
"Fredo(67)" a écrit dans le message de news:
c'est super, et ta proposition de vérification du type de donnée saisie et très bonne
par contre, comment pourrait on faire pour avoir l'affichage "EURO"
?
Fredo(67)
Tout cela marche très bien, mais
une fois que j'ai récupéré ces valeurs dans mon tableau excel, je sou haite faire des calculs avec les chiffres ainsi saisis et
Si je tape par exemple 10 ens à -3 369.98 il inscrit -33 699.98 (en rouge mais avec un espace entre le 3 et le 6) ce qui fait que excel le considère comme du texte et refuse de calculer avec ...
Ce que je cherche à faire, c'est qu'à l'affichage dans le text-box il a pparaisse en format millier et rouge si négatif mais qu'il soit renvoyé en nombre standard dans excel. (je gère l'affichage dans excel avec le format de cellule...
Merci
Tout cela marche très bien, mais
une fois que j'ai récupéré ces valeurs dans mon tableau excel, je sou haite faire des calculs avec les chiffres ainsi saisis et
Si je tape par exemple 10 ens à -3 369.98
il inscrit -33 699.98 (en rouge mais avec un espace entre le 3 et le 6) ce qui fait que excel le considère comme du texte et refuse de calculer avec ...
Ce que je cherche à faire, c'est qu'à l'affichage dans le text-box il a pparaisse en format millier et rouge si négatif mais qu'il soit renvoyé en nombre standard dans excel.
(je gère l'affichage dans excel avec le format de cellule...
une fois que j'ai récupéré ces valeurs dans mon tableau excel, je sou haite faire des calculs avec les chiffres ainsi saisis et
Si je tape par exemple 10 ens à -3 369.98 il inscrit -33 699.98 (en rouge mais avec un espace entre le 3 et le 6) ce qui fait que excel le considère comme du texte et refuse de calculer avec ...
Ce que je cherche à faire, c'est qu'à l'affichage dans le text-box il a pparaisse en format millier et rouge si négatif mais qu'il soit renvoyé en nombre standard dans excel. (je gère l'affichage dans excel avec le format de cellule...
Merci
Jacky
Re...
Si je tape par exemple 10 ens à -3 369.98
??? Ceci est incompréhensible pour moi.. Exemple simple avec 2 TextBox est le résultat en A1 et B1 http://cjoint.com/?DJuslYw7Gge
-- Salutations JJ
"Fredo(67)" a écrit dans le message de news:
Tout cela marche très bien, mais
une fois que j'ai récupéré ces valeurs dans mon tableau excel, je souhaite faire des calculs avec les chiffres ainsi saisis et
Si je tape par exemple 10 ens à -3 369.98 il inscrit -33 699.98 (en rouge mais avec un espace entre le 3 et le 6) ce qui fait que excel le considère comme du texte et refuse de calculer avec...
Ce que je cherche à faire, c'est qu'à l'affichage dans le text-box il apparaisse en format millier et rouge si négatif mais qu'il soit renvoyé en nombre standard dans excel. (je gère l'affichage dans excel avec le format de cellule...
Merci
Re...
Si je tape par exemple 10 ens à -3 369.98
???
Ceci est incompréhensible pour moi..
Exemple simple avec 2 TextBox est le résultat en A1 et B1
http://cjoint.com/?DJuslYw7Gge
--
Salutations
JJ
"Fredo(67)" <frederic.seys@socara.net> a écrit dans le message de news:
b99ee689-ebc8-46c0-b0dc-4e284f12f767@googlegroups.com...
Tout cela marche très bien, mais
une fois que j'ai récupéré ces valeurs dans mon tableau excel, je souhaite faire des calculs avec les chiffres
ainsi saisis et
Si je tape par exemple 10 ens à -3 369.98
il inscrit -33 699.98 (en rouge mais avec un espace entre le 3 et le 6) ce qui fait que excel le considère
comme du texte et refuse de calculer avec...
Ce que je cherche à faire, c'est qu'à l'affichage dans le text-box il apparaisse en format millier et rouge si
négatif mais qu'il soit renvoyé en nombre standard dans excel.
(je gère l'affichage dans excel avec le format de cellule...
??? Ceci est incompréhensible pour moi.. Exemple simple avec 2 TextBox est le résultat en A1 et B1 http://cjoint.com/?DJuslYw7Gge
-- Salutations JJ
"Fredo(67)" a écrit dans le message de news:
Tout cela marche très bien, mais
une fois que j'ai récupéré ces valeurs dans mon tableau excel, je souhaite faire des calculs avec les chiffres ainsi saisis et
Si je tape par exemple 10 ens à -3 369.98 il inscrit -33 699.98 (en rouge mais avec un espace entre le 3 et le 6) ce qui fait que excel le considère comme du texte et refuse de calculer avec...
Ce que je cherche à faire, c'est qu'à l'affichage dans le text-box il apparaisse en format millier et rouge si négatif mais qu'il soit renvoyé en nombre standard dans excel. (je gère l'affichage dans excel avec le format de cellule...
Merci
Fredo(67)
Merci pour cette correction...
Le jeudi 16 octobre 2014 14:47:14 UTC+2, Fredo(67) a écrit :
Bonjour,
j'ai différents textbox et je voudrais y forcer le format
quand je saisi 123.1, que cela m'affiche par exemple 123.10