Erreur If...then...else en VBA [Résolu]

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?

Bon, ben finalement, j'ai foutu toutes les instructions à la ligne et ça marche, donc merci.
?????????????????????????

bon ben c'est cool si ca marche !

bon courage

a plus

JSS

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

Tnx a lot

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

Ben c'est exactement la même chose...?

Ouais mais ça les met automatiquement dès que je saute une ligne.

Il me met comme erreur "Else sans If", va savoir pourquoi!?