Message d'erreur exécution 424 un objet est requis sur vb6? [Résolu/Fermé]

Signaler
Messages postés
4
Date d'inscription
mercredi 30 avril 2014
Statut
Membre
Dernière intervention
4 juin 2014
-
Messages postés
4
Date d'inscription
mercredi 30 avril 2014
Statut
Membre
Dernière intervention
4 juin 2014
-
bonjour voici un exercice sur vb6 et sur visual basic 2010 express:
Exercice:
en utilisant la commande InputBox saisr une valeur i de type integer et puis effectue les test
suivant :
? i<0
? 0<= i <= 10
? 11<= i <= 20
? i>20

En utilisant une structure if et une structure select case.
Affiche pour chaque cas un message indiquant le resultat
Solution
voici le code:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
 Dim a As Integer 
 a = InputBox("Test value", "Using select case") 
 Select Case a 
 Case Is < 0 
 MessageBox.Show("a<0") 
 
 Case Is <= 10 
 MessageBox.Show("a between 0 and 10") 
 
 Case Is <= 20 
 MessageBox.Show("a between 11 and 20") 
 
 Case Is > 20 
 MessageBox.Show("a plus grand que 20") 
 End Select 


l'exercice marche parfaitement sur visual basic 2010 express par contre sur Visual basic 6 affiche un message 'erreur exécution 424 un objet est requis '?
merci

2 réponses

Messages postés
15808
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 juin 2021
1 503
Bonjour,

VB6.0 ou VBA:

MessageBox.Show("a between 11 and 20")

devient:

MsgBox("a between 11 and 20")
Messages postés
4
Date d'inscription
mercredi 30 avril 2014
Statut
Membre
Dernière intervention
4 juin 2014

merci tu as résolu le pb :)