If then
Jules Laflamme
-
laf1935 Messages postés 7 Statut Membre -
laf1935 Messages postés 7 Statut Membre -
J'ai écrit un petit programm qui me donne pas les résutat que je voudrais je suis débutant mais je vais aimer ça Voici mon programme
Private Sub lblAchat_Click()
Dim a As Currency
Dim b As Currency
For x = 1 To 10
b = InputBox("achat")
a = a + b
If b = 0 Then
Label1.Caption = a
End If
Next x
Je voudrais que lorsque j'écris 0 dans dans inputBox il me donne la réponse et que ce soit fini .Si j'écris 0 il continue à redemander d'autres chiffres tant qu'il l'a pas fait 10 fois et c'est pas ça que je veux ,Je voudrais qu'il me donne la réponse et que ce soit fini. Pouvez vous m'aider
Private Sub lblAchat_Click()
Dim a As Currency
Dim b As Currency
For x = 1 To 10
b = InputBox("achat")
a = a + b
If b = 0 Then
Label1.Caption = a
End If
Next x
Je voudrais que lorsque j'écris 0 dans dans inputBox il me donne la réponse et que ce soit fini .Si j'écris 0 il continue à redemander d'autres chiffres tant qu'il l'a pas fait 10 fois et c'est pas ça que je veux ,Je voudrais qu'il me donne la réponse et que ce soit fini. Pouvez vous m'aider
2 réponses
x n'est pas defini à rajouter option explicit
Private Sub lblAchat_Click()
Dim a As Currency
Dim b As Currency
dim x as integer
a=0
For x = 1 To 10
b = InputBox("achat")
rem que se passe t'il si un abruti saisit "trop cher" à la place du montant de l'achat ?
a = a + b
If b = 0
Then
Label1.Caption = a
exit for
End If
next x
end sub
Next x
Private Sub lblAchat_Click()
Dim a As Currency
Dim b As Currency
dim x as integer
a=0
For x = 1 To 10
b = InputBox("achat")
rem que se passe t'il si un abruti saisit "trop cher" à la place du montant de l'achat ?
a = a + b
If b = 0
Then
Label1.Caption = a
exit for
End If
next x
end sub
Next x
