Erreur If...then...else en VBA

Résolu/Fermé
Signaler
-
Messages postés
97
Date d'inscription
mardi 2 juin 2009
Statut
Membre
Dernière intervention
18 février 2012
-
Bonjour!
Je serais curieux de savoir ce qu'il y a de faux dans cette instruction

Cells(i, 3).Value = InputBox("Entrez un compte")
If Cells(i, 3).Value = "0" Then i = i + 1
ElseIf Cells(i, 3).Value = "1" Then Exit Sub
Else: j = 4
End If

Merci!

8 réponses

Messages postés
3745
Date d'inscription
jeudi 22 avril 2004
Statut
Contributeur
Dernière intervention
17 décembre 2004
27
les :

Cells(i, 3).Value = InputBox("Entrez un compte")
If Cells(i, 3).Value = "0" Then i = i + 1
ElseIf Cells(i, 3).Value = "1" Then Exit Sub
Else: j = 4
End If

JSS.j'ai.bon.la?
2
Bon, ben finalement, j'ai foutu toutes les instructions à la ligne et ça marche, donc merci.
?????????????????????????
2
Messages postés
3745
Date d'inscription
jeudi 22 avril 2004
Statut
Contributeur
Dernière intervention
17 décembre 2004
27
bon ben c'est cool si ca marche !

bon courage

a plus

JSS
0
Ben, t'avais raison il suffit de renvoyer à la ligne tt ce qui sui l'instruction Then

Tnx a lot
0
Messages postés
97
Date d'inscription
mardi 2 juin 2009
Statut
Membre
Dernière intervention
18 février 2012
22
salut c'est quoi le problème ici quand je débogue il fait quelque fois de fausses opérations


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim X As Int32 = TextBox1.Text
Dim Y As Int32 = TextBox2.Text

TextBox3.Text = (X + Y)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim X As Integer = TextBox1.Text
Dim Y As Integer = TextBox2.Text

TextBox3.Text = (X - Y)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim X As Integer = TextBox1.Text
Dim Y As Integer = TextBox1.Text

TextBox3.Text = (X * Y)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim X As Integer = TextBox1.Text
Dim Y As Integer = TextBox1.Text

TextBox3.Text = (X / Y)

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim X As Integer = TextBox1.Text
Dim Y As Integer = TextBox1.Text

If TextBox3.Text = (X + Y) Then TextBox3.Text = (X + Y)
If TextBox3.Text = (X - Y) Then TextBox3.Text = (X - Y)
If TextBox3.Text = (X * Y) Then TextBox3.Text = (X * Y)
If TextBox3.Text = (X / Y) Then TextBox3.Text = (X / Y)



End Sub
End Class
0
Ben c'est exactement la même chose...?
-1
Messages postés
3745
Date d'inscription
jeudi 22 avril 2004
Statut
Contributeur
Dernière intervention
17 décembre 2004
27
il faut enlever les : sur la ligne du else

JSS.j'ai.bon.la?
0
Ouais mais ça les met automatiquement dès que je saute une ligne.
-1
Il me met comme erreur "Else sans If", va savoir pourquoi!?
-2