[..] inputbox et cancel

[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

[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

[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