Erreur If...then...else en VBA
Résolu/Fermé
Mehdi Ier
-
5 juil. 2004 à 12:14
galijo Messages postés 97 Date d'inscription mardi 2 juin 2009 Statut Membre Dernière intervention 18 février 2012 - 6 déc. 2009 à 14:27
galijo Messages postés 97 Date d'inscription mardi 2 juin 2009 Statut Membre Dernière intervention 18 février 2012 - 6 déc. 2009 à 14:27
A voir également:
- Erreur If...then...else en VBA
- Erreur 0x80070643 - Guide
- Iptv erreur de lecture - Forum TV & Vidéo
- If exist ✓ - Forum Autoit / batch
- Vba range avec variable ✓ - Forum VB / VBA
- Vba erreur automation référence future non valide ✓ - Forum Word
8 réponses
JSS
Messages postés
3745
Date d'inscription
jeudi 22 avril 2004
Statut
Contributeur
Dernière intervention
17 décembre 2004
32
5 juil. 2004 à 12:16
5 juil. 2004 à 12:16
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?
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.
?????????????????????????
?????????????????????????
JSS
Messages postés
3745
Date d'inscription
jeudi 22 avril 2004
Statut
Contributeur
Dernière intervention
17 décembre 2004
32
5 juil. 2004 à 14:10
5 juil. 2004 à 14:10
bon ben c'est cool si ca marche !
bon courage
a plus
JSS
bon courage
a plus
JSS
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
galijo
Messages postés
97
Date d'inscription
mardi 2 juin 2009
Statut
Membre
Dernière intervention
18 février 2012
22
6 déc. 2009 à 14:27
6 déc. 2009 à 14:27
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
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...?
JSS
Messages postés
3745
Date d'inscription
jeudi 22 avril 2004
Statut
Contributeur
Dernière intervention
17 décembre 2004
32
5 juil. 2004 à 12:23
5 juil. 2004 à 12:23
il faut enlever les : sur la ligne du else
JSS.j'ai.bon.la?
JSS.j'ai.bon.la?
