If then

Fermé

Jules Laflamme - 4 févr. 2005 à 13:21
laf1935 Messages postés 4 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 2 septembre 2023 - 4 févr. 2005 à 17:35

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

A voir également:

2 réponses

Réponse 1 / 2

random Messages postés 1612 Date d'inscription vendredi 26 novembre 2004 Statut Membre Dernière intervention 30 mars 2006 155
4 févr. 2005 à 14:05

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

Réponse 2 / 2

laf1935 Messages postés 4 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 2 septembre 2023
4 févr. 2005 à 17:35

Je veux te remercier tu m'a dépris ça fonctionne et ça fait ce que je veux que ça fasse
C'est pratique d'avoir un connaisseur
Merci

Discussions similaires

Fonction if exist et else

Poste JVC,message "Miswiring chk wiring"

A quoi sert la sortie IF OUT démodulateur?

Test IF a plusieurs condition en PHP

If not Then vba

Discussions similaires

Newsletters