Valeur numérique d'un userform

Bonjour,

J'effectue une saisie de champs dans un tableau excel à partir d'un userform. Parmi les données introduites, je réalise une saisie de valeurs numériques, cepedant, excel les considèrent comme des valeurs texte! Et je dois réaliser une somme de ces valeurs, mais du coup excel ne fait pas le calcul, car pour lui c'est du texte.

J'ai essayé de les déclarer dans la macro de mon userform, ces valeurs comme numérique
Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click() Dim n As Integer, nbpalette As Single, nbcolis As Single, nblignes As Single 'ce sont les varibles que je souhaite déclarer en valeur numérique n = 9 Do While Not [...]     Cells(n, 3) = TextBox7 'il s'agit de la liste de champs que saisie dans le tableau à partir des textbox Cells(n, 4) = TextBox8 Cells(n, 5) = TextBox9 Cells(n, 6) = TextBox10 Cells(n, 7) = TextBox11 .... nbpalette = TextBox10 ' et la je déclare les valeurs de manière à ce quelles soient considérées comme numérique nbcolis = TextBox11 nblignes = TextBox16 Sheets("feuil1").Cells(n, 6) = nbpalette Sheets("feuil1").Cells(n, 7) = nbcolis Sheets("feuil1").Cells(n, 8) = nblignes Unload UserForm1 ActiveWorkbook.save End Sub

---

Finalement ma macro fonctionne, mes valeurs sont considéré comme numérique, cependant le soucis c'est que je vais saisir plusieurs fois des lignes sans pb, mais à partir d'un moment cela va m'indiqué un erreur dans ma macro à partir de "nbpalette = Textbox10 " (erreur : incompatibilité de type). Et cette erreur va apparaître de manière complètement aléatoire. Et là je ne comprend pas du tout pourquoi une macro peut marcher 1 fois sur 2.

Peut-être existe-t-il une manière plus simple pour résoudre ce problème?
Est-ce que quelqu'un peut m'aider? merci

Tu dois avoir une erreur de saisie dans tes txtbox
Teste ça que tu mets dans chaque textbox (en adaptant son N° ...)

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Textbox1 = "" then exit sub if not is numeric(Textbox1) then Cancel = true else Cancel = False Endif Endif

---

Ainsi tu vérifies chaque valeur à la sortie du textbox.
A+

Bonjour à tous
Bonjour podfez

Une autre solution, mais sans avoir ton code entier pour voir où se "fait" l'erreur, essaie de mettre :

Code:

---

nbpalette= Evaluate(TextBox10.Value)

---

Eric

bonjour à tous,

tu peux aussi écrire

Code:

---

nbpalette = TextBox10.Value * 1

---

qui te convertira la valeur texte en numérique, ... si possible.
Cordialement

J'ai testé vos différentes solutions, et effectivement elles marchent, merci!!!
Mais cela m'a permis de comprendre la source de mes erreurs, en faite dans la saisie de mes valeurs numériques, il peut être saisie la valeur null . Du coup cela change la donne.
j'imagine qu'il faut que j'intègre une nouvelle condition qui tolère aussi la saisie de textbox vide?

Tu as ça là ;)

Citation:

---

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Textbox1 = "" then exit sub
'sinon le traitement que tu souhaites utiliser

---

Oui c'est vrai que ta macro marche parfaitement, en faite j'avais encore un pti soucis, parce qu'au final j'avais déclaré ma variable comme un entier, et cela marchait pas puisque qu'elle peut prendre une valeur numérique et une valeur null. Merci de ton aide

Par contre pourrais-je te demander un dernier petit service? Cela concerne la macro que tu m'as proposé. Au final je ne cherche pas seulement à recopier bêtement les solutions des autres, mais a comprendre aussi :

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Textbox1 = "" then exit sub if not is numeric(Textbox1) then Cancel = true else Cancel = False Endif End sub

---

Je comprend toute le fonctionnement de la macro, mise à part la 1ère ligne, que signifie byval et la variable Msforms.returnboolean?
Si tu as un peu de temps à me consacrer pour m'expliquer n'hésite pas.
En tous cas merci
A+

oui avec textbox.value il récupère le chiffre avec ou sans virgule ( ou point!!!)

Citation:

---

Envoyé par podfez

Je comprend toute le fonctionnement de la macro, mise à part la 1ère ligne, que signifie byval et la variable Msforms.returnboolean?
Si tu as un peu de temps à me consacrer pour m'expliquer n'hésite pas.
En tous cas merci
A+

---

Je t'en pose, moi, des questions ?
Byval signifie que l'argument Cancel est passé par valeur, cette valeur est un boolean (true ou false -1 ou 0)
Quant à "As MSForms.ReturnBoolean" et si j'en crois l'aide, "spécifie l'état ou le contenu d'un contrôle donné"
Désolé mais après, je n'en sais pas plus que toi :(

Ok merci pour les infos