[R] Validation Formulaire GUI

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
jcaspar
Niveau 7
Niveau 7
Messages : 449
Enregistré le : mar. 23 sept. 2008 17:58
Status : Hors ligne

[R] Validation Formulaire GUI

#1

Message par jcaspar »

B :D njour à tous !

Je souhaiterais mettre en place un dispositif de validation des champs

exemple:
le champ nom n'est pas validé forcer l'utilisateur à remplir le champ
le champ email est aml formé forcer l'utilisateur à le modifier
le champ tel est mal formé forcer l'utilisateur à le modifier

Pourriez vous svp m'indiquer quelle serait la meilleure manière de procéder
en vous remerciant pour vos conseils

Jean-Marc

Code : Tout sélectionner

[spoiler=]Example()

Func Example()

    local $BS_ICON
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("Création Signature Outlook")
    Local $label_nom = GUICtrlCreateLabel("Nom", 10, 30, 85, 25)
    Local $input_nom = GUICtrlCreateInput("", 100, 30, 300, 30)
    Local $label_prenom = GUICtrlCreateLabel("Prenom", 10, 55, 85, 30)
    Local $input_prenom = GUICtrlCreateInput("", 100, 50, 300, 30)
    Local $label_service = GUICtrlCreateLabel("Service", 10, 75, 85, 30)
    Local $input_service = GUICtrlCreateInput("", 100, 75, 300, 20)
    Local $label_fonction = GUICtrlCreateLabel("Fonction", 10, 95, 85, 30)
    Local $input_fonction = GUICtrlCreateInput("", 100, 95, 300, 20)
    Local $label_TelFixe = GUICtrlCreateLabel("Tél Fixe", 10, 105, 85, 30)
    Local $input_TelFixe = GUICtrlCreateInput("", 100, 105, 300, 20)
    Local $label_Mobile = GUICtrlCreateLabel("Tél Mobile", 10, 125, 85, 30)
    Local $input_Mobile = GUICtrlCreateInput("", 100, 125, 300, 20)
    Local $lable_Email = GUICtrlCreateLabel("Adresse Email", 10, 145, 85, 30)
    Local $input_Email = GUICtrlCreateInput("", 100, 145, 300, 30)
    Local $check_Adresse_ARS = GUICtrlCreateCheckbox("Ajouter adresse ", 10, 165, 85, 30)
    Local $check_Adresse_Campagne = GUICtrlCreateCheckbox("Ajouter campagne ", 10, 165, 85, 30)
    Local $idOK = GUICtrlCreateButton("OK", 310, 370, 85, 25,$BS_ICON)
    local $image = GUICtrlCreatePic("signature.png", 10, 310, 300, 300)



    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $idOK

            case $input_nom = ""
            msgbox(64, "Champ nom vide", "Attention vous n'avez pas remplit le champ nom")

            case  $input_prenom =""
            msgbox(64, "Champ nom vide", "Attention vous n'avez pas remplit le champ prenom")

             case  $input_service =""
            msgbox(64, "Champ nom vide", "Attention vous n'avez pas remplit le champ service")


                local $tableau[0]

                _ArrayAdd($tableau, GUICtrlRead($input_nom))
                _ArrayAdd($tableau, GUICtrlRead($input_prenom))
                _ArrayAdd($tableau, GUICtrlRead($input_service))
                _ArrayAdd($tableau, GUICtrlRead($input_fonction))
                _ArrayToClip($tableau)
                _ArrayDisplay($tableau)


                MsgBox($MB_SYSTEMMODAL, "Valeurs saisies ", GUICtrlRead($input_nom) & " " & GUICtrlRead($input_prenom) & @CRLF & " Pôle :" & GUICtrlRead($input_service) & @CRLF & GUICtrlRead($input_fonction))
                MsgBox($MB_SYSTEMMODAL, "Récapitulatif", ClipGet())
                MsgBox($MB_SYSTEMMODAL, "Chaine tableau", _ArrayToString($tableau, "-", 1, 3))



                ExitLoop
        EndSwitch

    WEnd
EndFunc   ;==>Example
[/spoiler]
Modifié en dernier par jcaspar le mer. 12 août 2015 16:30, modifié 2 fois.
Haut
Avatar du membre
blacksoul305
Membre émérite
Membre émérite
Messages : 957
Enregistré le : ven. 18 mars 2011 11:49
Localisation : Au pays des programmeurs.
Status : Hors ligne

Re: [..] Validation Formulaire GUI

#2

Message par blacksoul305 »

Bonjour,

l'idéal dans ce genre de situation est à mon avis, de désactiver le bouton de validation tant que le formulaire n'est pas conforme.

Code : Tout sélectionner

GUICtrlSetState($ctrlID, $GUI_DISABLE)
Et de l'activer quand tout est bon :

Code : Tout sélectionner

GUICtrlSetState($ctrlID, $GUI_ENABLE)
EDIT : tu devrais rajouter un spoiler à ton code.
Étudiant en 2ème année de Licence Informatique.
Haut
jcaspar
Niveau 7
Niveau 7
Messages : 449
Enregistré le : mar. 23 sept. 2008 17:58
Status : Hors ligne

Re: [..] Validation Formulaire GUI

#3

Message par jcaspar »

Merci pour vos conseils !

Voici mon code quelque peu adapté ... mais cela ne me semble pas encore optimal ...
mais bon on s'approche du but ...

Code : Tout sélectionner

[spoiler=]

#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>

Example()

Func Example()

    local $BS_ICON,$GUI_ENBLE
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("Création Signature Outlook")
    Local $label_nom = GUICtrlCreateLabel("Nom", 10, 30, 85, 25)
    Local $input_nom = GUICtrlCreateInput("", 100, 30, 300, 30)
    Local $label_prenom = GUICtrlCreateLabel("Prenom", 10, 55, 85, 30)
    Local $input_prenom = GUICtrlCreateInput("", 100, 50, 300, 30)
    Local $label_service = GUICtrlCreateLabel("Service", 10, 75, 85, 30)
    Local $input_service = GUICtrlCreateInput("", 100, 75, 300, 20)
    Local $label_fonction = GUICtrlCreateLabel("Fonction", 10, 95, 85, 30)
    Local $input_fonction = GUICtrlCreateInput("", 100, 95, 300, 20)
    Local $label_TelFixe = GUICtrlCreateLabel("Tél Fixe", 10, 105, 85, 30)
    Local $input_TelFixe = GUICtrlCreateInput("", 100, 105, 300, 20)
    Local $label_Mobile = GUICtrlCreateLabel("Tél Mobile", 10, 125, 85, 30)
    Local $input_Mobile = GUICtrlCreateInput("", 100, 125, 300, 20)
    Local $lable_Email = GUICtrlCreateLabel("Adresse Email", 10, 145, 85, 30)
    Local $input_Email = GUICtrlCreateInput("", 100, 145, 300, 30)
    Local $check_Adresse_ARS = GUICtrlCreateCheckbox("Ajouter adresse ", 10, 165, 85, 30)
    Local $check_Adresse_Campagne = GUICtrlCreateCheckbox("Ajouter campagne ", 10, 165, 85, 30)
    Local $idOK = GUICtrlCreateButton("OK", 310, 370, 85, 25, $BS_ICON)
    local $image = GUICtrlCreatePic("signature.png", 10, 310, 300, 300)



    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $idOK

            case $input_nom = ""
                msgbox(64, "Champ nom vide", "Attention vous n'avez pas remplit le champ nom")
                GUICtrlSetState($idOK, $GUI_DISABLE)
            case $input_nom = String
                GUICtrlSetState($input_nom, $GUI_ENBLE)

            case $input_prenom = ""
                msgbox(64, " Le Champ nom est vide", "Attention vous n'avez pas remplit le champ prenom")
                GUICtrlSetState($idOK, $GUI_DISABLE)
            case $input_prenom=String
                    GUICtrlSetState($idOK, $GUI_ENBLE)

            case $input_service = ""
                msgbox(64, "Champ Service est  vide", "Attention vous n'avez pas remplit le champ service")
                GUICtrlSetState($idOK, $GUI_DISABLE)

            case $input_fonction = ""
                msgbox(64, "Le Champ Fonction est  vide", "Attention vous n'avez pas remplit le champ fonction")
                GUICtrlSetState($idOK, $GUI_DISABLE)

            case $input_service = String
                GUICtrlSetState($idOK, $GUI_ENBLE)

            case $input_TelFixe = ""
                msgbox(64, "Le champ TelFixe est vide", "Attention vous n'avez pas saisi le champ TelFixe")
                GUICtrlSetState($idOK, $GUI_DISABLE)

            case $input_TelFixe=String
                GUICtrlSetState($idOK, $GUI_ENBLE)

            case $input_Mobile = ""

                msgbox(64, "Le champ TelMobile est vide", "Attention vous n'avez pas saisi le champ TelMobile")
                GUICtrlSetState($idOK, $GUI_DISABLE)

        case $input_Mobile=String
           GUICtrlSetState($idOK, $GUI_ENBLE)


            case $input_Email = ""


                msgbox(64, " Le Champ Email est  vide", "Attention vous n'avez pas saisi le champ Email")
                GUICtrlSetState($idOK, $GUI_DISABLE)

             case $input_Email=String
                 GUICtrlSetState($idOK, $GUI_ENBLE)


                local $tableau[0]

                _ArrayAdd($tableau, GUICtrlRead($input_nom))
                _ArrayAdd($tableau, GUICtrlRead($input_prenom))
                _ArrayAdd($tableau, GUICtrlRead($input_service))
                _ArrayAdd($tableau, GUICtrlRead($input_fonction))
                _ArrayToClip($tableau)
                _ArrayDisplay($tableau)


                MsgBox($MB_SYSTEMMODAL, "Valeurs saisies ", GUICtrlRead($input_nom) & " " & GUICtrlRead($input_prenom) & @CRLF & " Pôle :" & GUICtrlRead($input_service) & @CRLF & GUICtrlRead($input_fonction))
                MsgBox($MB_SYSTEMMODAL, "Récapitulatif", ClipGet())
                MsgBox($MB_SYSTEMMODAL, "Chaine tableau", _ArrayToString($tableau, "-", 1, 3))



                ExitLoop
        EndSwitch

    WEnd
EndFunc   ;==>Example
[/spoiler]
Haut
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: [..] Validation Formulaire GUI

#4

Message par mikell »

Pour la validation d'email, 10 sec de recherche Google "autoit email validation" donne la réponse (un regex sur le contenu de l'input)
Pour le tel, $ES_NUMBER + vérification 10 caractères
Avec 400+ messages tu devrais savoir travailler un minimum en AutoIt non ?
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Haut
jcaspar
Niveau 7
Niveau 7
Messages : 449
Enregistré le : mar. 23 sept. 2008 17:58
Status : Hors ligne

Re: [..] Validation Formulaire GUI

#5

Message par jcaspar »

B :D onjour à notre modérateur

je voulais juste montrer ou j'en étais pour l'instant .....en suivant les conseils que l'on m'a transmis

ce qui ne me parait pas optimal pour l'instant dans ma démarche est que j'effectue un control basique sur le fait que le champ soit vide ou qu'il contienne une chaine de caractère...
L'ennui est que cela est bloquant d'entrée avant même d'avoir saisi quoique ce soit ... j'en déduis que l'ordre n'est pas pertinent
il serait probablement plus judicieux d'effectuer un control global final ...

je n'ignore pas que le control des numéros de téléphones et adresse email se fait à l'aide d'expression régulières que je pourrais trouver sur le net...
mais je n'en suis pas encore là ....

Bon je continue de plancher et je vous tiens informé au fur et à mesure de mes avancées

Jean-Marc
Haut
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: [..] Validation Formulaire GUI

#6

Message par mikell »

jcaspar a écrit :il serait probablement plus judicieux d'effectuer un control global final
Absolument d'accord, d'ailleurs si la plupart des sites internet le font comme ça c'est têt pas un hasard :mrgreen:

Code : Tout sélectionner

While 1
      Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                   Exit
            Case $idOK
                   ; tests de validation
                   ; if pas ok 
                   ;     msgbox "pas bien" et on fait rien (continue la boucle)
                   ; else (ok)
                   ;     bravo et exitloop (on enchaine)
     EndSwitch
WEnd
; suite du script
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Haut
jcaspar
Niveau 7
Niveau 7
Messages : 449
Enregistré le : mar. 23 sept. 2008 17:58
Status : Hors ligne

Re: [..] Validation Formulaire GUI

#7

Message par jcaspar »

Bonsoir merci pour vos conseils !

voici le code avec les modifs suggèrées mais il reste encore du travail sur la planche

il me semble que la manière dont je formule " champ vide est incorrecte" , j'ai testé avec

""
" "
not isString
null

mais rien de tout cela ne semble correcte.....
que le champ soit vide ou non le message d'erreur s'affiche ....


La nuit porte conseil .... :mrgreen: ... la suite demain !



Code : Tout sélectionner

[spoiler=]

#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>

Example()

Func Example()

    Local $BS_ICON, $GUI_ENBLE
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("Création Signature Outlook")
    Local $label_nom = GUICtrlCreateLabel("Nom", 10, 30, 85, 25)
    Local $input_nom = GUICtrlCreateInput("", 100, 30, 300, 30)
    Local $label_prenom = GUICtrlCreateLabel("Prenom", 10, 55, 85, 30)
    Local $input_prenom = GUICtrlCreateInput("", 100, 50, 300, 30)
    Local $label_service = GUICtrlCreateLabel("Service", 10, 75, 85, 30)
    Local $input_service = GUICtrlCreateInput("", 100, 75, 300, 20)
    Local $label_fonction = GUICtrlCreateLabel("Fonction", 10, 95, 85, 30)
    Local $input_fonction = GUICtrlCreateInput("", 100, 95, 300, 20)
    Local $label_TelFixe = GUICtrlCreateLabel("Tél Fixe", 10, 105, 85, 30)
    Local $input_TelFixe = GUICtrlCreateInput("", 100, 105, 300, 20)
    Local $label_Mobile = GUICtrlCreateLabel("Tél Mobile", 10, 125, 85, 30)
    Local $input_Mobile = GUICtrlCreateInput("", 100, 125, 300, 20)
    Local $lable_Email = GUICtrlCreateLabel("Adresse Email", 10, 145, 85, 30)
    Local $input_Email = GUICtrlCreateInput("", 100, 145, 300, 30)
    Local $check_Adresse_ARS = GUICtrlCreateCheckbox("Ajouter adresse ", 10, 165, 85, 30)
    Local $check_Adresse_Campagne = GUICtrlCreateCheckbox("Ajouter campagne ", 10, 165, 85, 30)
    Local $idOK = GUICtrlCreateButton("OK", 310, 370, 85, 25, $BS_ICON)
    Local $image = GUICtrlCreatePic("signature.png", 10, 310, 300, 300)



    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $idOK


                If $input_nom = Not IsString Then

                    MsgBox(64, "Champ nom vide", "Attention vous n'avez pas remplit le champ nom")
;~

                ElseIf $input_prenom = Not IsString Then
                    MsgBox(64, " Le Champ nom est vide", "Attention vous n'avez pas remplit le champ prenom")

                ElseIf $input_service = Not IsString Then
                    MsgBox(64, "Champ Service est  vide", "Attention vous n'avez pas remplit le champ service")

                ElseIf $input_fonction = Not IsString Then
                    MsgBox(64, "Le Champ Fonction est  vide", "Attention vous n'avez pas remplit le champ fonction")

                ElseIf $input_service = Not IsString Then
                    MsgBox(64, "Le Champ service est  vide", "Attention vous n'avez pas remplit le champ service")

                ElseIf $input_TelFixe = Not IsString Then
                    MsgBox(64, "Le champ TelFixe est vide", "Attention vous n'avez pas saisi le champ TelFixe")

                ElseIf $input_Mobile = Not IsString Then

                    MsgBox(64, "Le champ TelMobile est vide", "Attention vous n'avez pas saisi le champ TelMobile")

                ElseIf $input_Email = Not IsString Then


                    MsgBox(64, " Le Champ Email est  vide", "Attention vous n'avez pas saisi le champ Email")


                Else
                    MsgBox(64, "OK", "Tous les champs sont bien saisis")

                    GUICtrlSetState($idOK, $GUI_ENBLE)

                EndIf
        EndSwitch
    WEnd







    ; Loop until the user exits.




    Local $tableau[0]

    _ArrayAdd($tableau, GUICtrlRead($input_nom))
    _ArrayAdd($tableau, GUICtrlRead($input_prenom))
    _ArrayAdd($tableau, GUICtrlRead($input_service))
    _ArrayAdd($tableau, GUICtrlRead($input_fonction))
    _ArrayToClip($tableau)
    _ArrayDisplay($tableau)


    MsgBox($MB_SYSTEMMODAL, "Valeurs saisies ", GUICtrlRead($input_nom) & " " & GUICtrlRead($input_prenom) & @CRLF & " Pôle :" & GUICtrlRead($input_service) & @CRLF & GUICtrlRead($input_fonction))
    MsgBox($MB_SYSTEMMODAL, "Récapitulatif", ClipGet())
    MsgBox($MB_SYSTEMMODAL, "Chaine tableau", _ArrayToString($tableau, "-", 1, 3))


EndFunc   ;==>Example


[/spoiler]
Haut
Avatar du membre
blacksoul305
Membre émérite
Membre émérite
Messages : 957
Enregistré le : ven. 18 mars 2011 11:49
Localisation : Au pays des programmeurs.
Status : Hors ligne

Re: [..] Validation Formulaire GUI

#8

Message par blacksoul305 »

Raaah Jean-Marc, il va falloir être attentif à ce que écris !

Tu fais beaucoup trop d'erreurs basiques, il va falloir apprendre à être rigoureux, quitte à ne pas programmer et à réfléchir sur le programme pendante trente minutes, ou plus si nécessaires ! Éventuellement relire le tutoriel sur Open Classroom.
  • IsString est une fonction. Plus précisément une fonction qui prend en argument une chaîne de caractères, et qui renvoie un booléen. Vrai (True) si jamais l'argument est une chaîne de caractères, faux (False) sinon. Où sont tes arguments ? Et même si une fonction n'a pas d'arguments, il faut quand même mettre des parenthèses après son nom ! De plus, une chaîne de caractères, même vide, reste une chaîne de caractères, donc impossible de tester tes conditions ainsi ! "" est une chaîne vide, il faut tester avec. Si ça ne marche pas, c'est que tu as fait un erreur quelque part !
  • Une input est un contrôle. Un contrôle est un objet qui contient beaucoup de choses : du texte, un état, une position etc... Pour "contrôler" le contrôle, lorsque tu le crées, si la création s'est bien passée la fonction GUICtrlCreateInput te renvoie ce que l'on appelle le "Handle". Ce que tu essayes de faire dans ton programme c'est de comparer si ton handle est une chaîne vide. Tu n'as pas le droit ! Si tu veux récupérer ce qu'il y a dans le contrôle (input) il faut que tu utilises la fonction qui lit dans le contrôle (Control, Read.. ça devrait te dire quelque chose), qui elle demandera en argument le Handle de l'input et te renverra le texte qu'elle contient ou qu'elle contient pas.
  • Si tu as du mal à t'organiser ou à programmer proprement quand tu as trop code au même endroit, le mieux serait découper tout ça en plusieurs fonctions ! Une pour chaque champ par exemple.
  • Quand tu postes un code sur le forum, c'est comme ça qu'il faut l'insérer dans le message <spoiler><code>code</code></spoiler>
Nous te donnons des conseils, des indices. Le forum FR et US en sont aussi une bonnes sources. Mais avant tout, il faudrait d'abord réfléchir au calme sur ton programme. Tes objectifs ont l'air clair, maintenant il faut que tu établisses la procédure pour arriver à faire fonctionner tout ça. Écris sur une feuille, ton bloc-note mais ne programme pas à la hâte, sinon tu vas avoir un code qui ne marche pas, qui n'est pas optimal.

Bon courage !

EDIT : ajout de la remarque sur les inputs.
Étudiant en 2ème année de Licence Informatique.
Haut
jcaspar
Niveau 7
Niveau 7
Messages : 449
Enregistré le : mar. 23 sept. 2008 17:58
Status : Hors ligne

Re: [..] Validation Formulaire GUI

#9

Message par jcaspar »

M :D erci pour vos conseils et vos remarques qui m'ont permis d'avancer ... :mrgreen:

Code : Tout sélectionner

[spoiler=]#include <Array.au3>
#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <ColorConstants.au3>

Formulaire()

Func Formulaire()

    Local $BS_ICON, $GUI_ENBLE
    Local $hGUI = GUICreate("Création Signature Outlook")
    Local $label_nom = GUICtrlCreateLabel("• Nom ", 10, 33, 85, 35)
    Local $input_nom = GUICtrlCreateInput("", 100, 30, 250, 35)
    Local $label_prenom = GUICtrlCreateLabel("• Prenom ", 10, 58, 85, 35)
    Local $input_prenom = GUICtrlCreateInput("", 100, 50, 250, 35)
    Local $label_service = GUICtrlCreateLabel("• Service", 10, 80, 85, 35)
    Local $input_service = GUICtrlCreateInput("", 100, 75, 250, 35)
    Local $label_fonction = GUICtrlCreateLabel("• Fonction", 10, 98, 85, 35)
    Local $input_fonction = GUICtrlCreateInput("", 100, 95, 250, 35)
    Local $label_TelFixe = GUICtrlCreateLabel("• Tél Fixe", 10, 123, 85, 35)
    Local $input_TelFixe = GUICtrlCreateInput("", 100, 120, 250, 35)
    Local $label_Mobile = GUICtrlCreateLabel("• Tél Mobile", 10, 153, 85, 35)
    Local $input_Mobile = GUICtrlCreateInput("", 100, 150, 250, 35)
    Local $lable_Email = GUICtrlCreateLabel("• Adresse Email", 10, 145, 85, 35)
    Local $input_Email = GUICtrlCreateInput("", 100, 145, 250, 35)
    Local $check_Adresse = GUICtrlCreateCheckbox("Ajouter adresse ", 10, 200, 120, 35)
    Local $check_Campagne = GUICtrlCreateCheckbox("Ajouter campagne ", 10, 225, 120, 35)
;~  GUISetHelp('hh.exe "' & $sAutoItInstallDir & '\AutoIt.chm"')

    Local $idOK = GUICtrlCreateButton("OK", 310, 370, 85, 25, $BS_ICON)
    Local $image = GUICtrlCreatePic("signature.png", 10, 310, 300, 300)

    GUISetState(@SW_SHOW, $hGUI)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $idOK
                if GUICtrlRead($input_nom) = "" then
                    MsgBox(64, "Champ nom vide", "Veuilliez saisir le champ nom")
                    GUICtrlSetBkColor($input_nom, $COLOR_RED)
                elseif GUICtrlRead($input_prenom) = "" then
                    MsgBox(64, " Le Champ nom est vide", "Attention vous n'avez pas remplit le champ prenom")
                    GUICtrlSetBkColor($input_prenom, $COLOR_RED)
                ElseIf GUICtrlRead($input_service) = "" then
                    MsgBox(64, "Champ Service est  vide", "Attention vous n'avez pas remplit le champ service")
                    GUICtrlSetBkColor($input_service, $COLOR_RED)
                Elseif GUICtrlRead($input_fonction) = "" then
                    MsgBox(64, "Le Champ Fonction est  vide", "Attention vous n'avez pas remplit le champ fonction")
                    GUICtrlSetBkColor($input_fonction, $COLOR_RED)
                Elseif GUICtrlRead($input_service) = "" then
                    MsgBox(64, "Le Champ service est  vide", "Attention vous n'avez pas remplit le champ service")
                    GUICtrlSetBkColor($input_service, $COLOR_RED)
                Elseif GUICtrlRead($input_TelFixe) = "" then
                    MsgBox(64, "Le champ TelFixe est vide", "Attention vous n'avez pas saisi le champ TelFixe")
                    GUICtrlSetBkColor($input_TelFixe, $COLOR_RED)
                Elseif GUICtrlRead($input_Mobile) = "" then
                    MsgBox(64, "Le champ TelFixe est vide", "Attention vous n'avez pas saisi le champ Tel Mobile")
                    GUICtrlSetBkColor($input_Mobile, $COLOR_RED)
                Elseif GUICtrlRead($input_Email) = "" then
                    MsgBox(64, "Le champ TelFixe est vide", "Attention vous n'avez pas saisi le champ Email")
                    GUICtrlSetBkColor($input_Email, $COLOR_RED)
                elseif GUICtrlRead($check_Adresse) = $GUI_CHECKED then
                    MsgBox(64, "Adresse ", "L'adresse sera mentionnée sur votre signature")
                    GUICtrlSetBkColor($input_prenom, $COLOR_RED)
                elseif GUICtrlRead($check_Campagne) = $GUI_CHECKED then
                    MsgBox(64, "Campagne ARS", "Une Campagne sera ajoutée à votre signature")
                Else
                    GUICtrlSetBkColor($input_nom, $COLOR_GREEN)
                    GUICtrlSetBkColor($input_prenom, $COLOR_GREEN)
                    GUICtrlSetBkColor($input_service, $COLOR_GREEN)
                    GUICtrlSetBkColor($input_fonction, $COLOR_GREEN)
                    GUICtrlSetBkColor($input_TelFixe, $COLOR_GREEN)
                    GUICtrlSetBkColor($input_Mobile, $COLOR_GREEN)
                    GUICtrlSetBkColor($input_Email, $COLOR_GREEN)

                    MsgBox(64, "OK", "Tous les champs sont bien saisis")
                    Local $tableau[0]
                    _ArrayAdd($tableau, GUICtrlRead($input_nom))
                    _ArrayAdd($tableau, GUICtrlRead($input_prenom))
                    _ArrayAdd($tableau, GUICtrlRead($input_service))
                    _ArrayAdd($tableau, GUICtrlRead($input_fonction))
                    _ArrayAdd($tableau, GUICtrlRead($input_TelFixe))
                    _ArrayAdd($tableau, GUICtrlRead($input_Mobile))
                    _ArrayAdd($tableau, GUICtrlRead($input_Email))
                    _ArrayAdd($tableau, GUICtrlRead($check_Adresse))
                    _ArrayAdd($tableau, GUICtrlRead($check_Campagne))
                    _ArrayToClip($tableau)
                    _ArrayDisplay($tableau)
                    MsgBox($MB_SYSTEMMODAL, "Valeurs saisies ", "Nom:" & GUICtrlRead($input_nom), 5)
;~                      & " Prénom:" & GUICtrlRead($input_prenom) & @CRLF & " Pôle :" & GUICtrlRead($input_service) & @CRLF & GUICtrlRead($input_fonction)) &@crlf &GUICtrlRead($input_TelFixe)
                    MsgBox($MB_SYSTEMMODAL, "Récapitulatif", ClipGet())
                    MsgBox($MB_SYSTEMMODAL, "Chaine tableau", _ArrayToString($tableau, "-", 1, 3))

                EndIf
                GUICtrlSetState($idOK, $GUI_ENBLE)
        EndSwitch
    WEnd
EndFunc   ;==>Formulaire
[/spoiler]
Haut
Répondre

Retourner vers « Aide Générale »