Problème VBA sous Excel

Bonjour à toutes et à tous,
J'ai l'exercice suivant à réaliser :
Exercice 3:
Écrire un algorithme qui
 permet de saisir un nombre entier n, puis
 affiche tous les entiers x dont le carré est inférieur à n

J'ai commencé par ceci :

Code:

---

1 2 3 4 5 6 7 8

Sub exercice3() Dim n, X As Integer n = InputBox("Donne une valeur de n")   If X ^ 2 < n Then MsgBox (X) End If End Sub

---

Le problème : j'obtiens uniquement la valeur 0 . Je pense que ma macro fonctionne mais qu'elle se contente de me donner qu'un seul résultat, en l’occurrence le 1ère qu'elle essaye ( le "0"). Je pense que le problème vient de ma variable X mais je ne sais pas trop comment la programmer ...
Si vous avez une idée merci de me la faire partager.
Cordialement.

Bonjour

Il manque une boucle pour tester chaque entier.

Comment dois-je procéder ?
Quelle "balise" utiliser ?
En cours nous avons vu tant que , est-ce celle ci?
J'ai déjà essayé mais le résultat est tjrs le même ( 0 ) sauf que là il se répète à l'infini . C'est à dire que lorsque je clique sur ok la fenêtre réapparaît.

Bonjour

FOR serait plus approprié mais WHILE peut le faire

Il ne faut pas oublier d'incrémenter X...

Où se passent tes cours ?

Je pense que j'ai trouvé la solution :), cela semble fonctionner correctement :

Code:

---

1 2 3 4 5 6 7 8 9

Sub exercice3() Dim n, X As Integer n = InputBox("Donne une valeur de n") For X = 0 To n If X ^ 2 < n Then MsgBox (X) End If Next X End Sub

---

Merci pour ton aide.
Mes cours sont à l'Université de Bordeaux IV.
Juste par curiosité, comment aurais tu fait avec While, j'y arrive qu'avec For ...
Merci encore !

Bonjour

Code:

---

1 2 3 4 5 6 7 8

Sub exercice3() Dim n, X As Integer n = InputBox("Donne une valeur de n") While X < n If X ^ 2 < n Then MsgBox (X) X = X+1 Wend End Sub

---