Problème d'opérateur et variables

Bonjour à tous, et surtout bonne année ^^.

Je m'adresse à vous car j'ai un petit soucis, habitué à developper des applications sous visual basic .NET, je dois pour un stage d'école développer une application sous VBA excel . or j'ai un petit problème qui doit vraiment être simpliste ^^ mais la je suis sur une colle.

Bon je m'explique j'ai essayé de faire un calcul tout bête avec des variables juste une petite additions voici le code :

Code:

---

1 2 3 4 5

Private Sub UserForm() Dim récup1 As Double Dim récup2 As Double Dim récup3 As Double End Sub

---

Code:

---

1 2 3 4 5 6

Private Sub cmdok_click() récup1 = nb1.Text récup2 = nb2.Text récup3 = nb3.Text MsgBox (récup1 + récup2 + récup3) End Sub

---

Or si je lance l'application et que par exemple je rempli les textbox avec des 1 donc le calcul 1 + 1 + 1 devrait me donner 3 ( très dur je sais ^^) mais il me donne 111 :/ alors que si je remplace les + par des * cela fonctionne très bien.

Pourriez vous s'il vous plait me dire à quoi cela peux être du pour que je puisse continuer mon projet tranquilement car je n'ai rien trouvé sur le net pour m'aider

Merci d'avance Miska

bonjour miska le forum dans une textbox les valeurs sont consideres comme du text il faut convertir
exemple

Code:

---

TextBox3.Value = CDbl(TextBox1) + CDbl(TextBox2)

---

on peut utiliser VAL a la place de cdbl mais val pas aimer virgurle

merci de m'avoir répondu si rapidement mais je ne comprend pas dans ce cas pourquoi cela marche avec une * ou un / ? je voudrai vraiment comprendre

Bonjour

essaie -->

Code:

---

Msgbox CDbl(TextBox1) + CDbl(TextBox2) + CDbl(TextBox3)

---

Je ne vois pas l'intérêt de déclarer tes variables dans Private sub Userform. elles ne servent que là et pas dans l'autre code.

Amicalement

Dan

Bonjour et bonne année à tous

Citation:

---

Pourriez vous s'il vous plait me dire à quoi cela peux être du pour que je puisse continuer mon projet tranquilement car je n'ai rien trouvé sur le net pour m'aider

---

C'est simplement du au fait qu'à l'origine du Basic (il y a plus de 30 ans), le symbole + était utilisé pour la concaténation de chaine.

Donc lorsque VBA rencontre des zones de texte, il ne les additionne pas.

Pour résoudre ton problème, tu peux convertir en numérique tes zones de texte.

Code:

---

1 2 3

récup1 = val(nb1.Text) récup2 = val(nb2.Text) récup3 = val(nb3.Text)

---

Par contre, si tu déclares tes variables (récup1, récup2,..) dans la procédure UserForm elles ne seront plus accessibles dans la procédure cmdok_click.
La déclaration doit se faire au niveau du module dans Général/Déclarations(tout en haut du module)

Edit : Désolé pour le télescopage, j'ai été long a rédiger ma réponse :oops:

Re

Citation:

---

merci de m'avoir répondu si rapidement mais je ne comprend pas dans ce cas pourquoi cela marche avec une * ou un / ? je voudrai vraiment comprendre

---

Dans l'ancien basic, il n'existait que 2 types de variables : texte ou numérique. Et c'est le signe $ en fin de leur nom qui faisait la distinction.
Exemple

Code:

---

1 2	Dim VarT$ ' déclaration texte Dim VarN 'déclaration numérique

---

Donc lorsque le programme rencontrait le signe +, il savait à quelle type de variable il avait à faire et soit il additionnait, soit il concaténait.

Voilà une petite leçon d'histoire ;)

Un grand merci à vous deux je comprend maintenant :D maintenant je vais sortir un peu moins bête et je vais pouvoir avancé pour mon stage... je préfère quand même largement le vb.NET ^^ sous lequel j'ai été appris ^^ et qui me parait plus simple d'utilisation :)

En tous cas merci pour votre rapidité d'action je vais pouvoir poursuivre mon stage tranquillement :)