Comment avoir un Msgbox qui demande combien de fois je veux répéter une function
Résolu
zargali
Messages postés
17
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2006
-
2 janv. 2006 à 21:56
zargali Messages postés 17 Date d'inscription mardi 6 décembre 2005 Statut Membre Dernière intervention 23 mars 2006 - 5 janv. 2006 à 22:35
zargali Messages postés 17 Date d'inscription mardi 6 décembre 2005 Statut Membre Dernière intervention 23 mars 2006 - 5 janv. 2006 à 22:35
A voir également:
- Comment avoir un Msgbox qui demande combien de fois je veux répéter une function
- Msgbox - Conseils pratiques -Visual Basic / VB.NET
- Msgbox vbyesno - Forum Visual Basic
- VbYesNo - Forum Visual Basic
- Public function php ✓ - Forum PHP
- Combien fait x fois x ✓ - Forum VB.NET
9 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
5 janv. 2006 à 18:29
5 janv. 2006 à 18:29
beh çà à l'air de marcher....
Set WshShell = CreateObject ("WScript.Shell")
function zozo
Msgbox "gn"
end function
yaplou = Inputbox ("Saisissez une valeur", "CHOIX", "")
'là il faut quand même gérer la saisie non-numérique ;)
For cpt = 1 To yaplou Step 1
call zozo
Next
Set WshShell = CreateObject ("WScript.Shell")
function zozo
Msgbox "gn"
end function
yaplou = Inputbox ("Saisissez une valeur", "CHOIX", "")
'là il faut quand même gérer la saisie non-numérique ;)
For cpt = 1 To yaplou Step 1
call zozo
Next
codea
Messages postés
94
Date d'inscription
dimanche 9 mai 2004
Statut
Membre
Dernière intervention
6 août 2006
2 janv. 2006 à 22:13
2 janv. 2006 à 22:13
ca ressemble a du vbScript... je connait pas trop ... cherche l'équivalent de input box pour vbscript
mais je ferais qqch comme ca... :
function zz
set mavar=inputbox " entrez le temps d'attente en secondes:"
wscript.sleep mavar * 1000 ' pour transformer en millisecondes.
end function
Rien ne sert de courir, il faut partir à point
Jean de la fontaine
mais je ferais qqch comme ca... :
function zz
set mavar=inputbox " entrez le temps d'attente en secondes:"
wscript.sleep mavar * 1000 ' pour transformer en millisecondes.
end function
Rien ne sert de courir, il faut partir à point
Jean de la fontaine
zargali
Messages postés
17
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2006
2 janv. 2006 à 22:44
2 janv. 2006 à 22:44
Merci de ta réponse, mais comme je l'ai indiqué ci dessus, la function n'est pas si simple, il s'agit en fait de pleins de Sendkeys et tout et tout, je présentais simplement la forme de la function
Mais je vais chercher un peu inputbox merci bien
Mais je vais chercher un peu inputbox merci bien
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
2 janv. 2006 à 22:45
2 janv. 2006 à 22:45
salut,
c'est bien un inputbox et non un msgbox...
exemple en VB6, à toi d'adapter pour VBS....
Option Explicit
'
'
Private Sub Form_Load()
Dim iRet As Variant
' saisie de la valeur
iRet = InputBox("Saisissez une valeur", "CHOIX", 5)
' genre de test de valeur
If Not IsNumeric (iRet) Then
MsgBox "Mauvaise valeur!!!"
Exit Sub
End If
' appel de la fonction
Dim i As Integer
For i = 1 To iRet
Call MaSubOuFonction
Next i
End Sub
'
'
Private Sub MaSubOuFonction()
MsgBox "je suis dans ma procédure"
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
PCPT [AFCK]
c'est bien un inputbox et non un msgbox...
exemple en VB6, à toi d'adapter pour VBS....
Option Explicit
'
'
Private Sub Form_Load()
Dim iRet As Variant
' saisie de la valeur
iRet = InputBox("Saisissez une valeur", "CHOIX", 5)
' genre de test de valeur
If Not IsNumeric (iRet) Then
MsgBox "Mauvaise valeur!!!"
Exit Sub
End If
' appel de la fonction
Dim i As Integer
For i = 1 To iRet
Call MaSubOuFonction
Next i
End Sub
'
'
Private Sub MaSubOuFonction()
MsgBox "je suis dans ma procédure"
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
PCPT [AFCK]
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
zargali
Messages postés
17
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2006
2 janv. 2006 à 23:49
2 janv. 2006 à 23:49
Oula ok merci!
Je vais essayer de convertir ca en vbs!!
Je vais essayer de convertir ca en vbs!!
zargali
Messages postés
17
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2006
5 janv. 2006 à 04:03
5 janv. 2006 à 04:03
Ben j'ai beau essayer d'adapter ca en vbs, impossible de faire ce que je veux
Alors je peux faire une sorte de truc qui ressemblerait à ca:
Set WshShell = CreateObject ("WScript.Shell")
function zozo
Msgbox "gn"
end function
yaplou= Inputbox ("Saisissez une valeur", "CHOIX", "")
if yaplou =1 then
call zozo
end if
if yaplou =2 then
call zozo
call zozo
end if
etc.. etc...
Mais ca me semble très moche quand même
surtout si quelqu'un rentre 100 , imagine un peu la tronche du script!
Ton script est tout joli mais vbs n'en veux pas du tout... Merci quand même...
J'essayer des trucs genre
call 2*zozo
2 call zozo
mais bon rien ne semble passer, à part
call zozo
call zozo
etc... C'est déprimant !
Alors je peux faire une sorte de truc qui ressemblerait à ca:
Set WshShell = CreateObject ("WScript.Shell")
function zozo
Msgbox "gn"
end function
yaplou= Inputbox ("Saisissez une valeur", "CHOIX", "")
if yaplou =1 then
call zozo
end if
if yaplou =2 then
call zozo
call zozo
end if
etc.. etc...
Mais ca me semble très moche quand même
surtout si quelqu'un rentre 100 , imagine un peu la tronche du script!
Ton script est tout joli mais vbs n'en veux pas du tout... Merci quand même...
J'essayer des trucs genre
call 2*zozo
2 call zozo
mais bon rien ne semble passer, à part
call zozo
call zozo
etc... C'est déprimant !
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
5 janv. 2006 à 05:06
5 janv. 2006 à 05:06
copie la syntaxe d'un boucle FOR en VBS et j'essayerai avant de poster.
zargali
Messages postés
17
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2006
5 janv. 2006 à 10:30
5 janv. 2006 à 10:30
Ok merci bien!
Alors j'ai trouvé ici: http://fr.wikibooks.org/wiki/Application_VBS , un exemple avec une boucle FOR:
'BOUCLE qui calcule et >
nbr1=1
nbr2=1
For cpt = 1 To 15 Step 1
nbr1=nbr1+1
nbr2=nbr1 mod cpt
somme=somme&(nbr2/nbr1)&vbCrlf
MsgBox somme
Next
Si ca peut t'aider...
Merci de ton aide!
Alors j'ai trouvé ici: http://fr.wikibooks.org/wiki/Application_VBS , un exemple avec une boucle FOR:
'BOUCLE qui calcule et >
nbr1=1
nbr2=1
For cpt = 1 To 15 Step 1
nbr1=nbr1+1
nbr2=nbr1 mod cpt
somme=somme&(nbr2/nbr1)&vbCrlf
MsgBox somme
Next
Si ca peut t'aider...
Merci de ton aide!
zargali
Messages postés
17
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2006
5 janv. 2006 à 22:35
5 janv. 2006 à 22:35
Merci beaucoup!
Bon je suis dégouté parceque quand je regarde les posts précédents, je me dis que j'aurais quand même pu trouver ca tout seul mais bon!
Merci bien quand même
bon pour ce qui est de la saisie non-numérique, je laisse le soin à l'utilisateur (en l'occurance, moi) de ne pas faire de bétises
Bon je suis dégouté parceque quand je regarde les posts précédents, je me dis que j'aurais quand même pu trouver ca tout seul mais bon!
Merci bien quand même
bon pour ce qui est de la saisie non-numérique, je laisse le soin à l'utilisateur (en l'occurance, moi) de ne pas faire de bétises