Pour une appli j'ai cr=E9=E9 un userform contenant plusieurs=20
TEXTBOX dans lequel on doit entr=E9e des chiffres entiers.=20
Les donn=E9es ainsi saisies doivents ensuites servir =E0 faire=20
des graph. Cependant mes Graph affiche des Div#0 et autres=20
erreurs. Je me suis rendu compte que les chiffres entr=E9es=20
=E9t=E9 "transform=E9 en texte" donc non reconnues pour faire=20
des calculs.
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
isabelle
bonjour Frédéric,
tu pourrais utiliser une Fonctions de conversion de type CDbl chiffre = CDbl(TextBox1.value)
cette fonction est pour les chiffres incluent de -1.79769313486231E308 à -4,94065645841247E-324 pour les valeurs négatives et 4,94065645841247E-324 à 1,79769313486232E308 pour les valeurs positives.
isabelle
Salut à tous
Pour une appli j'ai créé un userform contenant plusieurs TEXTBOX dans lequel on doit entrée des chiffres entiers. Les données ainsi saisies doivents ensuites servir à faire des graph. Cependant mes Graph affiche des Div#0 et autres erreurs. Je me suis rendu compte que les chiffres entrées été "transformé en texte" donc non reconnues pour faire des calculs.
Que faire ???
Merci pour votre aide. Frédéric.
bonjour Frédéric,
tu pourrais utiliser une Fonctions de conversion de type CDbl
chiffre = CDbl(TextBox1.value)
cette fonction est pour les chiffres incluent de -1.79769313486231E308 à
-4,94065645841247E-324 pour les valeurs négatives et
4,94065645841247E-324 à 1,79769313486232E308 pour les valeurs positives.
isabelle
Salut à tous
Pour une appli j'ai créé un userform contenant plusieurs
TEXTBOX dans lequel on doit entrée des chiffres entiers.
Les données ainsi saisies doivents ensuites servir à faire
des graph. Cependant mes Graph affiche des Div#0 et autres
erreurs. Je me suis rendu compte que les chiffres entrées
été "transformé en texte" donc non reconnues pour faire
des calculs.
tu pourrais utiliser une Fonctions de conversion de type CDbl chiffre = CDbl(TextBox1.value)
cette fonction est pour les chiffres incluent de -1.79769313486231E308 à -4,94065645841247E-324 pour les valeurs négatives et 4,94065645841247E-324 à 1,79769313486232E308 pour les valeurs positives.
isabelle
Salut à tous
Pour une appli j'ai créé un userform contenant plusieurs TEXTBOX dans lequel on doit entrée des chiffres entiers. Les données ainsi saisies doivents ensuites servir à faire des graph. Cependant mes Graph affiche des Div#0 et autres erreurs. Je me suis rendu compte que les chiffres entrées été "transformé en texte" donc non reconnues pour faire des calculs.
Que faire ???
Merci pour votre aide. Frédéric.
papou
Bonjour Voir ici pour les pistes http://www.excelabo.net/xl/controles.php#nombretextbox Cordialement Pascal
"NEICNA60" a écrit dans le message de news:730c01c494af$d7497640$ Salut à tous
Pour une appli j'ai créé un userform contenant plusieurs TEXTBOX dans lequel on doit entrée des chiffres entiers. Les données ainsi saisies doivents ensuites servir à faire des graph. Cependant mes Graph affiche des Div#0 et autres erreurs. Je me suis rendu compte que les chiffres entrées été "transformé en texte" donc non reconnues pour faire des calculs.
Que faire ???
Merci pour votre aide. Frédéric.
Bonjour
Voir ici pour les pistes
http://www.excelabo.net/xl/controles.php#nombretextbox
Cordialement
Pascal
"NEICNA60" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:730c01c494af$d7497640$a301280a@phx.gbl...
Salut à tous
Pour une appli j'ai créé un userform contenant plusieurs
TEXTBOX dans lequel on doit entrée des chiffres entiers.
Les données ainsi saisies doivents ensuites servir à faire
des graph. Cependant mes Graph affiche des Div#0 et autres
erreurs. Je me suis rendu compte que les chiffres entrées
été "transformé en texte" donc non reconnues pour faire
des calculs.
Bonjour Voir ici pour les pistes http://www.excelabo.net/xl/controles.php#nombretextbox Cordialement Pascal
"NEICNA60" a écrit dans le message de news:730c01c494af$d7497640$ Salut à tous
Pour une appli j'ai créé un userform contenant plusieurs TEXTBOX dans lequel on doit entrée des chiffres entiers. Les données ainsi saisies doivents ensuites servir à faire des graph. Cependant mes Graph affiche des Div#0 et autres erreurs. Je me suis rendu compte que les chiffres entrées été "transformé en texte" donc non reconnues pour faire des calculs.
Que faire ???
Merci pour votre aide. Frédéric.
Misange
bonjour C'est rigolo, j'étais justement sur une question de ce type hier soir. Tu pourrais contrôler d'abord à la saisie que les utlisateurs entrent bien des données autorisées. Par exemple, qu'ils ne tapent pas 2.2cm quand tu attends 2 sans unités ou 2,2 parceque le séparateur autorisé est la virgule. ensuite fais comme isabelle te dit pour faire la conversion. Une textboxe reçoit... du texte ! sinon on l'appellerait numbox. Tu pourrais utiliser pour ta validation une petite fonction comme celle ci de Michel Pierron :
Private Sub TextBox1_Change() Me.TextBox1 = CleanChain(Me.TextBox1) End Sub
Private Function CleanChain(Chain As String) As String Const Cars As String = "0123456789,." Dim L As String * 1, i As Integer For i = 1 To Len(Chain) L = Mid(Chain, i, 1) Select Case L Case ",", "." L = Application.International(xlDecimalSeparator) If InStr(1, CleanChain, L) Then GoTo 1 End Select If InStr(1, Cars, L) Then CleanChain = CleanChain & L 1: Next i End Function
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 07/09/2004 09:54:
Salut à tous
Pour une appli j'ai créé un userform contenant plusieurs TEXTBOX dans lequel on doit entrée des chiffres entiers. Les données ainsi saisies doivents ensuites servir à faire des graph. Cependant mes Graph affiche des Div#0 et autres erreurs. Je me suis rendu compte que les chiffres entrées été "transformé en texte" donc non reconnues pour faire des calculs.
Que faire ???
Merci pour votre aide. Frédéric.
bonjour
C'est rigolo, j'étais justement sur une question de ce type hier soir.
Tu pourrais contrôler d'abord à la saisie que les utlisateurs entrent
bien des données autorisées. Par exemple, qu'ils ne tapent pas 2.2cm
quand tu attends 2 sans unités ou 2,2 parceque le séparateur autorisé
est la virgule.
ensuite fais comme isabelle te dit pour faire la conversion. Une
textboxe reçoit... du texte ! sinon on l'appellerait numbox.
Tu pourrais utiliser pour ta validation une petite fonction comme celle
ci de Michel Pierron :
Private Sub TextBox1_Change()
Me.TextBox1 = CleanChain(Me.TextBox1)
End Sub
Private Function CleanChain(Chain As String) As String
Const Cars As String = "0123456789,."
Dim L As String * 1, i As Integer
For i = 1 To Len(Chain)
L = Mid(Chain, i, 1)
Select Case L
Case ",", "."
L = Application.International(xlDecimalSeparator)
If InStr(1, CleanChain, L) Then GoTo 1
End Select
If InStr(1, Cars, L) Then CleanChain = CleanChain & L
1: Next i
End Function
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
on 07/09/2004 09:54:
Salut à tous
Pour une appli j'ai créé un userform contenant plusieurs
TEXTBOX dans lequel on doit entrée des chiffres entiers.
Les données ainsi saisies doivents ensuites servir à faire
des graph. Cependant mes Graph affiche des Div#0 et autres
erreurs. Je me suis rendu compte que les chiffres entrées
été "transformé en texte" donc non reconnues pour faire
des calculs.
bonjour C'est rigolo, j'étais justement sur une question de ce type hier soir. Tu pourrais contrôler d'abord à la saisie que les utlisateurs entrent bien des données autorisées. Par exemple, qu'ils ne tapent pas 2.2cm quand tu attends 2 sans unités ou 2,2 parceque le séparateur autorisé est la virgule. ensuite fais comme isabelle te dit pour faire la conversion. Une textboxe reçoit... du texte ! sinon on l'appellerait numbox. Tu pourrais utiliser pour ta validation une petite fonction comme celle ci de Michel Pierron :
Private Sub TextBox1_Change() Me.TextBox1 = CleanChain(Me.TextBox1) End Sub
Private Function CleanChain(Chain As String) As String Const Cars As String = "0123456789,." Dim L As String * 1, i As Integer For i = 1 To Len(Chain) L = Mid(Chain, i, 1) Select Case L Case ",", "." L = Application.International(xlDecimalSeparator) If InStr(1, CleanChain, L) Then GoTo 1 End Select If InStr(1, Cars, L) Then CleanChain = CleanChain & L 1: Next i End Function
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 07/09/2004 09:54:
Salut à tous
Pour une appli j'ai créé un userform contenant plusieurs TEXTBOX dans lequel on doit entrée des chiffres entiers. Les données ainsi saisies doivents ensuites servir à faire des graph. Cependant mes Graph affiche des Div#0 et autres erreurs. Je me suis rendu compte que les chiffres entrées été "transformé en texte" donc non reconnues pour faire des calculs.
