Page 1 sur 1
[..] inputbox et cancel
Posté : lun. 31 août 2009 11:43
par ludwig89
bonjour
j'ai un autoit ou je demande plusieurs variable en enchainant les inputbox, je remet en text les variables déjà saisie
je voudrai quand je clic sur le cancel d'une inputbox redemander la variable précédente, au cas ou l'opérateur s'aperçoivent d'une erreur de saisie, pour l'instant ge gère les cancel avec une sortie du programme.
j'espère avoir été clair dans mes explications
voici le code
► Afficher le texte
Code : Tout sélectionner
$semaine = ""
$NumClient = ""
$NumModele = ""
$conf = "RIEN"
$conf2 = ""
$confinf = ""
$confsup = ""
$question_conf = ""
$meuble = 0
Dim $myarray[100]
$compteur = 0
$semaine = InputBox("TOUTES LES CONF", "Entrez la semaine en 2 chiffres", "", " M2")
If @error Then ;c'est ici le problème
MsgBox(1, "Quitter", "Quitter")
Exit
EndIf
$NumClient = InputBox("Client", "Entrez le numéro de client en 6 chiffres" & @LF & "semaine " & $semaine, "", " M6")
If @error Then ;c'est ici le problème
MsgBox(1, "Quitter", "Quitter")
Exit
EndIf
$NumModele = InputBox("modele", "Entrez le code modele en 2 lettres" & @LF & "semaine " & $semaine & @LF & "numclient " & $NumClient, "", " M2")
If @error Then ;c'est ici le problème
MsgBox(1, "Quitter", "Quitter")
Exit
EndIf
$question_conf = InputBox("Types de confirmation", "1 = de conf a conf" & @LF & "2 = toutes les conf", "", " M1")
If @error Then ;c'est ici le problème
MsgBox(1, "Quitter", "Quitter")
Exit
EndIf
If $question_conf = 1 Then
$confinf = InputBox("CONF MAX MIN", "Entrez le numero de conf inferieur" & @LF & "semaine " & $semaine & @LF & "numclienT " & $NumClient & @LF & "num modele " & $NumModele, "", " M6")
If @error Then ;c'est ici le problème
MsgBox(1, "Quitter", "Quitter")
Exit
EndIf
$confsup = InputBox("CONF MAX MIN", "Entrez le numero de conf superieur" & @LF & "semaine " & $semaine & @LF & "numclienT " & $NumClient & @LF & "num modele " & $NumModele & $NumClient & @LF & "conf inferieur " & $confinf)
If @error Then ;c'est ici le problème
MsgBox(1, "Quitter", "Quitter")
Exit
EndIf
If $confsup = "" Then
$confsup = $confinf
EndIf
EndIf
If $question_conf = 2 Then
While $compteur < 99
$conf = InputBox("conf", "Entrez la conf en 6 lettres" & @LF & "semaine " & $semaine & @LF & "numclient " & $NumClient & @LF & "num modele " & $NumModele & @LF & "derniere saisie " & $conf & @LF & "rien pour terminer", "", " M6")
If @error Then ;c'est ici le problème
MsgBox(1, "Quitter", "Quitter")
Exit
EndIf
If $conf <> "" Then $conf2 = $conf
If $conf = "" Then $compteur = 99
$myarray[$compteur] = $conf
$compteur = $compteur + 1
WEnd
EndIf
merci pour vos réponses
cordialement
Re: inputbox et cancel
Posté : lun. 31 août 2009 12:19
par jumby
Voici comment je m'y prendrai :
► Afficher le texte
Code : Tout sélectionner
$semaine = ""
$NumClient = ""
$NumModele = ""
$conf = "RIEN"
$conf2 = ""
$confinf = ""
$confsup = ""
$question_conf = ""
$meuble = 0
Dim $myarray[100]
$compteur = 0
semaine()
func semaine()
$semaine = InputBox("TOUTES LES CONF", "Entrez la semaine en 2 chiffres", "", " M2")
If @error Then ;c'est ici le problème
call("semaine")
EndIf
call("NumClient")
EndFunc
func NumClient()
$NumClient = InputBox("Client", "Entrez le numéro de client en 6 chiffres" & @LF & "semaine " & $semaine, "", " M6")
If @error Then ;c'est ici le problème
call("semaine")
EndIf
Call("NumModele")
EndFunc
func NumModele()
$NumModele = InputBox("modele", "Entrez le code modele en 2 lettres" & @LF & "semaine " & $semaine & @LF & "numclient " & $NumClient, "", " M2")
If @error Then ;c'est ici le problème
Call("NumClient")
EndIf
Call("question_conf")
EndFunc
func question_conf()
$question_conf = InputBox("Types de confirmation", "1 = de conf a conf" & @LF & "2 = toutes les conf", "", " M1")
If @error Then ;c'est ici le problème
Call("NumModele")
EndIf
call("test_questionconfig")
EndFunc
func test_questionconfig()
If $question_conf = 1 Then
call("questionconfig1_1")
EndIf
If $question_conf = 2 Then
While $compteur < 99
$conf = InputBox("conf", "Entrez la conf en 6 lettres" & @LF & "semaine " & $semaine & @LF & "numclient " & $NumClient & @LF & "num modele " & $NumModele & @LF & "derniere saisie " & $conf & @LF & "rien pour terminer", "", " M6")
If @error Then ;c'est ici le problème
Call("question_conf")
EndIf
If $conf <> "" Then $conf2 = $conf
If $conf = "" Then $compteur = 99
$myarray[$compteur] = $conf
$compteur = $compteur + 1
WEnd
EndIf
EndFunc
func questionconfig1_1()
$confinf = InputBox("CONF MAX MIN", "Entrez le numero de conf inferieur" & @LF & "semaine " & $semaine & @LF & "numclienT " & $NumClient & @LF & "num modele " & $NumModele, "", " M6")
If @error Then ;c'est ici le problème
call("test_questionconfig")
EndIf
call("questionconfig1_2")
EndFunc
func questionconfig1_2()
$confsup = InputBox("CONF MAX MIN", "Entrez le numero de conf superieur" & @LF & "semaine " & $semaine & @LF & "numclienT " & $NumClient & @LF & "num modele " & $NumModele & $NumClient & @LF & "conf inferieur " & $confinf)
If @error Then ;c'est ici le problème
call("test_questionconfig")
EndIf
If $confsup = "" Then
$confsup = $confinf
EndIf
EndFunc
Re: [..] inputbox et cancel
Posté : lun. 31 août 2009 13:16
par ludwig89
merci beaucoup, j'ai tester rapidement, ça a l'air bien fonctionnel, je test plus en profondeur plus tard et je vous informe
merci bcp