Bonjour,
j'ai developpé un petit programme pour m'afficher le carré de tous les nombres saisis.Mais l'affichage se fera dès qu'on saisi zéro et affiche les carrés.
Le problème est qu'après la saisie du zéro il n'affiche pas les carrés malgré l'utilisation de debug.print


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Affichageplusieurs()
Dim nb As Integer
Dim carre As Integer
Do
nb = InputBox(" Entrer le nombre : ")
If nb > 0 Then
carre = nb * nb
Debug.Print " Le carré de  " & nb & " est : " & carre
End If
Loop Until nb = 0
MsgBox " ERREUR !!! VOUS AVEZ SAISI UN ZERO "
End Sub