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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.