Macro while + if

Bonjour, ça fait 4 heures que je prends la tête avec un petit problème que je n'arrive pas à résoudre.
Voici le macro:

Code:

---

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

Sub teste() Dim a, b, c, d As Integer a = InputBox("nb1") b = InputBox("nb2") c = a d = b   While c <> d   If c > d Then d = (d + b) Else c = (c + a) End If   Wend   MsgBox ("Le PPCM de " + Str(a) + " et " + Str(b) + " est " + Str(c)) MsgBox ("Le PGCD de " + Str(c) + " et " + Str(b) + " est " + Str(c / a))   End Sub

---

si je rentre a=4 et b = 16, le programme devrait:
-passer dans le while et donc 4 est différent de 16.
-passer dans le Else car 4>16 n'est pas respecté
- rajouter 4 a 4 donc 8.

refaire la mémé opération : alors c = 12
et encore une fois: alors c = 16

16 =16 on sort du while.

Seulement le programme bug et me dit : d = limite maximum ( 32 000 ...)
Pourquoi? Qu'est-ce qui vient modifier la valeur de d alors qu'on ne rentre jamais dans la première partie de la fonction si?

ps: la valeur de c devient également "44444"...

Si on remplace les inputbox pas les valeurs directes, alors pas de problème. Cela pourrait-il venir de la?


Merci d'avance

Solution : multiplier les input par 1.
Quelqu'un pourrait-il me dire pourquoi? d'après ce que j'ai lu sur internet ça transforme le texte en nombre mais ce que je ne comprends pas c'est que si on tape :

Code:

---

1 2	a=input("nombre") msgbox(a+1)

---

la ça ne pose pas de problème :s

Bonjour,

Peut-être une piste ?

Code:

---

1 2 3 4 5

... a = cInt(InputBox("nb1")) b = cInt(InputBox("nb2")) ...

---

Bonjour,

Les valeurs retournées par les inputBox sont des chaines de caracteres... d'ou le probleme.

La solution est de mettre int devant le InpuBox comme ci-dessous:

Code:

---

1 2 3

a = Int(InputBox("nb1")) b = Int(InputBox("nb2"))

---

bonjour,

si je ne me trompe pas le type doit être indiqué pour chaque variable.
si c'est vrai: dans ta déclaration seul d est integer et a,b,c son variant

cordialement.

Bonjour,

InputBox renvoit du texte, donc il faut une opération pour forcer la conversion en nombre (multiplier par 1, ajouter 0...).

J'avoue que c'est pas très logique, vu que tes variables sont définies comme des entiers.

nibledispo donne la solution :ccool:

Ha bon?

dim a,b,c,d as integer ne définit pas a, b et c comme variable integer?
De toute façon j'ai ma réponse.

Grand merci a vous ( et merci goldstar pour la solution int)

En Vba ne pas mettre de déclaration en masse j'ai eu aussi le problème.
Mais ca marche sur VB.net par contre ... LA Logique Microsoft...

Ha oui effectement cela fonctionne aussi en déclarant chaque variable une à une :), moins présentable que le int tout de même ^^

bonjour,

En répondant je ne savais si c’était la cause du problème n'ayant pas fait le test.

Après test, je confirme qu'en déclarant correctement les variables de type integer (c'est à dire séparément) ta macro fonctionne correctement avec ton exemple sans qu'il soit besoin d'ajouter "int"

Il vaut mieux, je pense, faire une bonne déclaration (pas des impôts) que de rajouter quelque chose au code uniquement pour pallier un manquement à la règle.

cordialement