Debutant VBS InputBox

Résolu
Signaler
Messages postés
433
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
22 juin 2010
-
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
-
Bonjour,
je cherche a faire une boucle avec un inputbox, regarder le code, il sera plus explicite....

strCorp = InputBox("Saisir 'AR' ou 'AS' :" )
                If Ucase(strCorp) "AR" or Ucase(strCorp) "AS" Then
        msgbox strCorp
Else
         'je veux retourner dans la InputBox
End If

Merci pour vos reponses !!
Fabrice

5 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
aller, une variante...

Do 
    strCorp =  InputBox("Saisir  'AR' ou 'AS' :")
Loop Until ( UCase (strCorp)  = "AR" Or UCase(strCorp) =  "AS") 

MsgBox strCorp

<small> Coloration
syntaxique automatique [AFCK] </small>
       

++

<hr size ="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Essaie le code suivant
Dim StrCorp 
StrCorp =  InputBox("Saisir  'AR' ou 'AS' :")

While  UCase (StrCorp) <> "AR" And UCase(StrCorp) <> "AS" 
    StrCorp  = InputBox("Saisir  'AR' ou 'AS' :")
Wend 
MsgBox StrCorp 
 

<small> Coloration syntaxique automatique [AFCK]</small>
       

@+,   Ju£i?n
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
salut,

strCorp =  "RIEN" 

While  UCase (strCorp) <> "AR" And UCase(strCorp) <> "AS" 
    strCorp  = InputBox("Saisir  'AR' ou 'AS' :")
Wend 

MsgBox strCorp

<small> Coloration
syntaxique automatique [AFCK]</small>
       

++
PCPT  [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
arf ^^
trouvez l'intrus
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
41
Perso, je préfere largement la dernière

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #