AutoIt Français

Bonjour à vous tous. Je suis nouveau sur le forum et aussi avec autoit. Je suis responsable d'installer des logiciels dans mon entreprise pour plusieurs sites (villes) différents. Lors du choix de la ville, je voudrais que certains logiciels viennent grisés car pas disponible pour cette ville. Pour l'autre ville, la liste serait différente et ainsi de suite.

Voici mon code. Un fichier txt est joint au message. Il contient le nom des villes.

► Afficher le texte

Code : Tout sélectionner

#requireadmin

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Global $DbName = "place.txt"

Dim $FileRead, $Data
Global $Form1, $Btn1, $Combo

_FileReadToArray($DbName, $FileRead)
$Data = _ArrayToString($FileRead, "|", 1)

While 1
    $nMsg = GUIGetMsg()
    
      Switch $nMsg
    
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Btn1
            SplashOff()
            #include <GuiButton.au3>
            #include <GUIConstants.au3>
            #include <WindowsConstants.au3>
            #include <GUIConstantsEx.au3>
            Opt ("TrayIconDebug", 1)
            Opt ("TrayAutoPause", 0)
            Opt ("TrayOnEventMode", 1)
            Opt ("ExpandEnvStrings", 1)
            Opt ("WinDetectHiddenText", 1)
            Local $Msg, $button1, $button2, $button3
            $Path = @ScriptDir
            $Form1 = GUICreate ("Menu d'installation de logiciels", 480, 340, 200, 200)
            
            $Label2 = GUICtrlCreateLabel ("Ville:", 20, 30, 300, 17)
            $CmbTitle="Choisissez une ville..."
            $Combo = GUICtrlCreateCombo($CmbTitle, 140, 30, 220, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
            $place = GUICtrlRead($Combo)
            
            GUICtrlSetData($Combo, $Data)
            GUISetState(@SW_SHOW)
               
            GUISetBkColor (0xf0f8ff)

            $Label1 = GUICtrlCreateLabel ("Sélectionner les logiciels à installer", 100, 1, 300, 17)
               
            Local Const $sFont = "Comic Sans Ms"
            GUICtrlSetFont($Label1, 10, 400, 4, $sFont)
            GUICtrlSetFont($Label2, 10, 400, 4, $sFont)
            
             
               GUICtrlCreateGroup ("Logiciel", 20, 68, 350, 230)
                           
               $Radio1 = GUICtrlCreateCheckbox (" Logiciel1", 30, 90, 140, 17)
               $Radio2 = GUICtrlCreateCheckbox (" Logiciel2", 30, 110, 140, 17)
               $Radio3 = GUICtrlCreateCheckbox (" Logiciel3", 30, 130, 140, 17)
               $Radio4 = GUICtrlCreateCheckbox (" Logiciel4", 30, 150, 138, 17)
               $Radio5 = GUICtrlCreateCheckbox (" Logiciel5", 30, 170, 140, 17)
               $Radio6 = GUICtrlCreateCheckbox (" Logiciel6", 30, 190, 140, 17)
               $Radio7 = GUICtrlCreateCheckbox (" Logiciel7", 30, 210, 140, 17)
               $Radio8 = GUICtrlCreateCheckbox (" Logiciel8", 30, 230, 190, 17)
               $Radio9 = GUICtrlCreateCheckbox (" Logiciel9", 30, 250, 140, 17)
               $Radio10 = GUICtrlCreateCheckbox (" Logiciel10", 30, 270, 140, 17)
   
               $Radio11 = GUICtrlCreateCheckbox (" Logiciel11", 210, 90, 140, 17)
               $Radio12 = GUICtrlCreateCheckbox (" Logiciel12", 210, 110, 140, 17)
               $Radio13 = GUICtrlCreateCheckbox (" Logiciel13", 210, 130, 150, 17)
   
               $Button1 = GUICtrlCreateButton ("Démarrer", 20, 305, 129, 25, 0)
               GUISetState()
               $Button2 = GUICtrlCreateButton ("Sélectionner tous", 180, 305, 129, 25, 0)
               GUISetState()
               $Button3 = GUICtrlCreateButton ("Déselectionner tous", 330, 305, 129, 25, 0)
               GUISetState()
             
               
               While 1
                  $Msg = GuiGetMsg()
                  Switch $Msg
                  Case $GUI_EVENT_CLOSE
                  Exit
                     
               Case $button1
                     
                  If BitAND (GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED then
                     ;Chemin pour l'installation du logiciel 1
                     _GUICtrlButton_SetCheck($Radio1, $BST_UNCHECKED)
                  EndIf
                     
                  If BitAND (GUICtrlRead($Radio2), $GUI_CHECKED) = $GUI_CHECKED Then
                     ;Chemin pour l'installation du logiciel 2
                     _GUICtrlButton_SetCheck($Radio2, $BST_UNCHECKED)
                  EndIf
                     
                  If BitAND (GUICtrlRead($Radio3), $GUI_CHECKED) = $GUI_CHECKED Then
                     ;Chemin pour l'installation du logiciel 3
                     _GUICtrlButton_SetCheck($Radio3, $BST_UNCHECKED)
                  EndIf
                     
                  If BitAND (GUICtrlRead($Radio4), $GUI_CHECKED) = $GUI_CHECKED Then
                     ;Chemin pour l'installation du logiciel 4
                      _GUICtrlButton_SetCheck($Radio4, $BST_UNCHECKED)
                  EndIf
            
                  If BitAND (GUICtrlRead($Radio5), $GUI_CHECKED) = $GUI_CHECKED Then
                     ;Chemin pour l'installation du logiciel 5
                      _GUICtrlButton_SetCheck($Radio5, $BST_UNCHECKED)
                  EndIf
                     
                  If BitAND (GUICtrlRead($Radio6), $GUI_CHECKED) = $GUI_CHECKED then
                     ;Chemin pour l'installation du logiciel 6
                      _GUICtrlButton_SetCheck($Radio6, $BST_UNCHECKED)
                  EndIf
                     
                  If BitAND (GUICtrlRead($Radio7), $GUI_CHECKED) = $GUI_CHECKED Then
                     ;Chemin pour l'installation du logiciel 7
                      _GUICtrlButton_SetCheck($Radio7, $BST_UNCHECKED)
                  EndIf
                     
                  If BitAND (GUICtrlRead($Radio8), $GUI_CHECKED) = $GUI_CHECKED Then
                     ;Chemin pour l'installation du logiciel 8
                     _GUICtrlButton_SetCheck($Radio8, $BST_UNCHECKED)
                  EndIf
                     
                  If BitAND (GUICtrlRead($Radio9), $GUI_CHECKED) = $GUI_CHECKED Then
                     ;Chemin pour l'installation du logiciel 9
                      _GUICtrlButton_SetCheck($Radio9, $BST_UNCHECKED)
                  EndIf
            
                  If BitAND (GUICtrlRead($Radio10), $GUI_CHECKED) = $GUI_CHECKED then
                     ;Chemin pour l'installation du logiciel 10
                      _GUICtrlButton_SetCheck($Radio10, $BST_UNCHECKED)
                  EndIf
                     
                  If BitAND (GUICtrlRead($Radio11), $GUI_CHECKED) = $GUI_CHECKED Then
                     ;Chemin pour l'installation du logiciel 11
                     _GUICtrlButton_SetCheck($Radio11, $BST_UNCHECKED)
                  EndIf
                     
                  If BitAND (GUICtrlRead($Radio12), $GUI_CHECKED) = $GUI_CHECKED Then
                     ;Chemin pour l'installation du logiciel 12
                      _GUICtrlButton_SetCheck($Radio12, $BST_UNCHECKED)
                  EndIf
                        
                  If BitAND (GUICtrlRead($Radio13), $GUI_CHECKED) = $GUI_CHECKED Then
                     ;Chemin pour l'installation du logiciel 13
                      _GUICtrlButton_SetCheck($Radio13, $BST_UNCHECKED)
                  EndIf
                  
               Case $button2
                  _GUICtrlButton_SetCheck($Radio1, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio2, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio3, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio4, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio5, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio6, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio7, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio8, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio9, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio10, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio11, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio12, $BST_CHECKED)
                  _GUICtrlButton_SetCheck($Radio13, $BST_CHECKED)

   
               Case $button3
                  _GUICtrlButton_SetCheck($Radio1, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio2, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio3, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio4, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio5, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio6, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio7, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio8, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio9, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio10, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio11, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio12, $BST_UNCHECKED)
                  _GUICtrlButton_SetCheck($Radio13, $BST_UNCHECKED)
                 
                     
               EndSwitch
               WEnd
                    
               Case $Btn2
                  exit
      EndSwitch
WEnd

Voici ton code que j'ai modifié

► Afficher le texte

Code : Tout sélectionner

#requireadmin

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Global $DbName = "place.txt"


Global $logiciels[14][3] = [    ["","Logiciel 1",""], _
                                ["","Logiciel 2",""], _
                                ["","Logiciel 3",""], _
                                ["","Logiciel 4",""], _
                                ["","Logiciel 5",""], _
                                ["","Logiciel 6",""], _
                                ["","Logiciel 7",""], _
                                ["","Logiciel 8",""], _
                                ["","Logiciel 9",""], _
                                ["","Logiciel 10",""], _
                                ["","Logiciel 11",""], _
                                ["","Logiciel 12",""], _
                                ["","Logiciel 13",""], _
                                ["","...",""]]
;                               [$idRadio,"Nom à afficher","Chemin du programme d'instalation"]

Local $Atmp = IniReadSectionNames(@ScriptDir & "\" & $DbName)
If @error Then Exit MsgBox(0,"Erreur","Il n'y a pas de liste.")


Global $villes[$Atmp[0]][15]
For $i = 0 To $Atmp[0] -1
    $villes[$i][0] = $Atmp[$i + 1]
    If $i = 0 Then
        Global $Data = $villes[$i][0]
    Else
        $Data &= "|"
        $Data &= $villes[$i][0]
    EndIf

    For $j = 0 To 13
        $villes[$i][$j + 1] = IniRead(@ScriptDir & "\" & $DbName,$villes[$i][0],$j,-1)
    Next
Next
;~ _ArrayDisplay($villes)

#include <GuiButton.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Global $Form1 = GUICreate ("Menu d'installation de logiciels", 380, 340, 200, 200)

$Label2 = GUICtrlCreateLabel ("Ville:", 20, 30, 300, 17)
$CmbTitle="Choisissez une ville..."
$Combo = GUICtrlCreateCombo($CmbTitle, 140, 30, 220, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$place = GUICtrlRead($Combo)

GUICtrlSetData($Combo, $Data)
GUISetState(@SW_SHOW)

GUISetBkColor (0xf0f8ff)

$Label1 = GUICtrlCreateLabel ("Sélectionner les logiciels à installer", 100, 1, 300, 17)

Local Const $sFont = "Comic Sans Ms"
GUICtrlSetFont($Label1, 10, 400, 4, $sFont)
GUICtrlSetFont($Label2, 10, 400, 4, $sFont)


   GUICtrlCreateGroup ("Logiciel", 20, 68, 350, 230)

    For $i = 0 To 1
        For $j = 0 To 6
            $logiciels[7 * $i + $j][0] = GUICtrlCreateCheckbox ($logiciels[7 * $i + $j][1], 30 + 180 * $i, 90 + 20 * $j, 140, 17)
        Next
    Next

   $Button1 = GUICtrlCreateButton ("Démarrer", 20, 305, 110, 25, 0)
   GUISetState()
   $Button2 = GUICtrlCreateButton ("Sélectionner tous", 140, 305, 110, 25, 0)
   GUISetState()
   $Button3 = GUICtrlCreateButton ("Déselectionner tous", 260, 305, 110, 25, 0)
   GUISetState()


       While 1
          $Msg = GuiGetMsg()
          Switch $Msg
          Case $GUI_EVENT_CLOSE
          Exit

       Case $button1
            For $i = 0 To 13
                If BitAND (GUICtrlRead($logiciels[$i][0]), 1) = 1 Then
;                   ShellExecuteWait($logiciels[$i][2])
                    GUICtrlSetState($logiciels[$i][0],4)
                EndIf
            Next
        Case $button2
            For $i = 0 To 13
;~              If BitAND (GUICtrlRead($logiciels[$i][0]), 32) = 32 Then ContinueLoop
                _GUICtrlButton_SetCheck($logiciels[$i][0], $BST_CHECKED)
            Next
        Case $Button3
            For $i = 0 To 13
;~              If BitAND (GUICtrlRead($logiciels[$i][0]), 32) = 32 Then ContinueLoop
                _GUICtrlButton_SetCheck($logiciels[$i][0], $BST_UNCHECKED)
            Next
        Case $Combo
            For $i = 0 To UBound($villes)
                If GUICtrlRead($Combo) = $villes[$i][0] Then
                    For $j = 1 To 14
                        Switch $villes[$i][$j]
                            Case 1
                                GUICtrlSetState($logiciels[$j -1][0],64)
                            Case 0
                                GUICtrlSetState($logiciels[$j -1][0],128)
                            Case -1
                                GUICtrlSetState($logiciels[$j -1][0],32)
                        EndSwitch
                    Next
                    ExitLoop
                EndIf
            Next
       EndSwitch
    WEnd

Je joint également le fichier place que j'ai également modifié

Merci ca marche très bien. C'est sur la bonne voie. Juste une petit chose. Lorsque je sélectionne une ville pour la première fois, certains logiciels devient grisé. C'est bien ce que je veux mais lorsque je sélectionne une autre ville, les mêmes logiciels reste grisés. En fonction de la ville que je sélectionne, les logiciels grisés sont différents. Cette liste de logiciels grisés peut varié dans le temps. Un logiciel peut être grisé pour une ville aujourd'hui mais dans 6 mois, il peut être disponible. Comment je fais les modifs dans le code?

Merci beaucoup. Je suis un néophyte avec autoit.

Salut,

J'ai géré d'une manière différente...

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)

Global $IniFile = @ScriptDir & "\Ini\Villes.ini", $aArray, $MainGUI, $Combo, $Checks

_Gui()

While GUIGetMsg() <> -3
WEnd

Func _Gui()
    $aArray = IniReadSection(@ScriptDir & "\Ini\Villes.ini", "Logiciels")
    If @error Then
        MsgBox(4096, "", "Error occurred, probably no INI file.")
    Else
        For $i = 1 To $aArray[0][0]
            ;MsgBox(4096, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])
        Next
    EndIf

    Dim $Checks[$aArray[0][0] + 1]
    $Height = ($aArray[0][0] * 20) + 50

    If $Height > @DesktopHeight Then
        MsgBox(0x0,"Erreur", "Il y a trop pour votre ecran", 3)
        $Height = @DesktopHeight - 50
    EndIf

    $MainGUI = GUICreate("Nombre de progs: " & $aArray[0][0], 600, $Height)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    For $i = 1 To $aArray[0][0]
        $Height = $i * 20
        $Checks[$i] = GUICtrlCreateCheckbox($aArray[$i][0], 5, $Height, 150, 15)
    Next

    $btn = GUICtrlCreateButton("Start", 400, 15, 100, 30)
    $Combo = GUICtrlCreateCombo("", 160, 20, 220, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
    GUICtrlSetOnEvent(-1, "_Autorisation")

    $aArrayCombo = IniReadSectionNames($IniFile)
    If Not @error Then
        ; Enumerate through the array displaying the section names.
        For $i = 2 To $aArrayCombo[0]
            GUICtrlSetData($Combo, $aArrayCombo[$i])
        Next
    EndIf

    GUISetState(@SW_SHOW, $MainGUI)
EndFunc

Func _Autorisation()
    $Location = GUICtrlRead($Combo)
    Local $aAutorisation = IniReadSection($IniFile, $Location)

    ; Check if an error occurred.
    If Not @error Then
        ; Enumerate through the array displaying the keys and their respective values.
        For $i = 1 To $aAutorisation[0][0]
            If $aAutorisation[$i][1] = 1 Then
                GUICtrlSetState($Checks[$i], 1)
                GUICtrlSetState($Checks[$i], 64)
            Else
                GUICtrlSetState($Checks[$i], 4)
                GUICtrlSetState($Checks[$i], 128)
            EndIf
        Next
    EndIf
EndFunc

Func _Exit()
    Exit
EndFunc

et le fichier ini:

► Afficher le texte

Dans ton fichier ini, lorsque tu veux mettre un nouveau logiciel, tu le mets dans la section [Logiciels] et tu rappelles le nom de logiciels dans chaque section de ville avec 1 ou 0 (Dispo ou non dispo).

Merci encore. Tu est vraiment gentil.

J'aime mieux ta deuxième option mais comment faire un seul code avec les deux que tu m'as envoyé.

Merci

Salut,

Ce n'est pas moi qui est fait l'autre code ^^.

Tu veux quoi de plus?

Oups, je m'excuse. J'avais regardé trop vite. J'ai adapté le code pour ajouter des viles et des logiciels. Là j'ai deux petits problèmes et je galère pour trouver le pourquoi. Lorsque je sélectionne la ville Saguenay, le script se ferme. On dirait que je suis limité en nombre de logiciel que je peux spécifier dans le fichier ini (ville.ini).

Mon deuxième problèmes est un peu similaire. J'ai ajouté plusieurs logiciels dans la liste des logiciels à installer. Après un certain nombre, l'application se lance mais ferme automatiquement en une fraction seconde. On dirait encore une fois que je suis limité en nombre de logiciel.

Revoici mon code adapté ainsi que les deux fichiers ini (villes et logiciels)

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Opt("GUIOnEventMode", 1)

Global $IniFile = @ScriptDir & "\Ini\Villes.ini", $aArray, $MainGUI, $Combo, $Checks

$CmbTitle="Choisissez une ville..."
$Combo = GUICtrlCreateCombo($CmbTitle, 140, 30, 220, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))

_Gui()

While GUIGetMsg() <> -3
WEnd

Func _Gui()
   $aArrayAutodesk = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Autodesk")
   If @error Then
        MsgBox(4096, "", "Error occurred, probably no INI file.")
   Else
        ;For $i = 1 To $aArrayAutodesk[0][0]
            ;MsgBox(4096, "", "Key: " & $aArrayAutodesk[$i][0] & @CRLF & "Value: " & $aArrayAutodesk[$i][1])
        ;Next
   EndIf

   Dim $Checks[$aArrayAutodesk[0][0] + 1]
   $Height = ($aArrayAutodesk[0][0] * 20) + 50

   If $Height > @DesktopHeight Then
        MsgBox(0x0,"Erreur", "Il y a trop pour votre ecran", 3)
        $Height = @DesktopHeight - 50
   EndIf

   $MainGUI = GUICreate("Menu d'installation de logiciels", 910, 340, 200, 200)
   $Label1 = GUICtrlCreateLabel ("Sélectionner les logiciels à installer", 350, 1, 300, 17)
   GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
   Local Const $sFont = "Comic Sans Ms"
   GUICtrlSetFont($Label1, 10, 400, 4, $sFont)
        
   $Button1 = GUICtrlCreateButton ("Démarrer", 20, 305, 129, 25, 0)
   GUISetState()
   $Button2 = GUICtrlCreateButton ("Sélectionner tous", 180, 305, 129, 25, 0)
   GUISetState()
   $Button3 = GUICtrlCreateButton ("Déselectionner tous", 330, 305, 129, 25, 0)
   GUISetState()

   GUICtrlCreateGroup ("Produits Autodesk", 20, 48, 350, 250)
   GUICtrlCreateGroup ("Produits Microsoft", 390, 48, 150, 250)
   GUICtrlCreateGroup ("Autres Produits", 555, 48, 310, 250)
   
   $alignH = 70
   $alignV = 30
   
    For $i = 1 To $aArrayAutodesk[0][0]
      
      $Checks[$i] = GUICtrlCreateCheckbox($aArrayAutodesk[$i][0], $alignV, $alignH, 125, 15)
      $alignH = $alignH + 20
      If $alignH = 290 then
         $alignV = 200
         $alignH = 70
      EndIf
    Next

   $aArrayMicrosoft = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Microsoft")
   $alignH = 70
   $alignV = 400
   For $i = 1 To $aArrayMicrosoft[0][0]
    
      $Checks[$i] = GUICtrlCreateCheckbox($aArrayMicrosoft[$i][0], $alignV, $alignH, 125, 15)
      $alignH = $alignH + 20
      If $alignH = 290 then
         $alignV = 200
         $alignH = 70
      EndIf
   Next
   
   $aArrayAutres = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Autres")
   $alignH = 70
   $alignV = 565
   For $i = 1 To $aArrayAutres[0][0]
    
      $Checks[$i] = GUICtrlCreateCheckbox($aArrayAutres[$i][0], $alignV, $alignH, 125, 15)
      $alignH = $alignH + 20
      If $alignH = 290 then
         $alignV = 725
         $alignH = 70
      EndIf
    Next

    ;$btn = GUICtrlCreateButton("Start", 400, 15, 100, 30)
    $Label2 = GUICtrlCreateLabel ("Place d'affaire:", 20, 25, 100, 17)
    $CmbTitle="Choisissez une place d'affaire..."
    GUISetBkColor (0xf0f8ff)
    $Combo = GUICtrlCreateCombo($CmbTitle, 160, 20, 220, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
    GUICtrlSetOnEvent(-1, "_Autorisation")

    $aArrayCombo = IniReadSectionNames($IniFile)
    If Not @error Then
        ; Enumerate through the array displaying the section names.
        For $i = 2 To $aArrayCombo[0]
            GUICtrlSetData($Combo, $aArrayCombo[$i])
        Next
    EndIf

    GUISetState(@SW_SHOW, $MainGUI)
EndFunc

Func _Autorisation()
    $Location = GUICtrlRead($Combo)
    Local $aAutorisation = IniReadSection($IniFile, $Location)

    ; Check if an error occurred.
    If Not @error Then
       ; Enumerate through the array displaying the keys and their respective values.
        For $i = 1 To $aAutorisation[0][0]
            If $aAutorisation[$i][1] = 1 Then
                GUICtrlSetState($Checks[$i], $GUI_DISABLE)
                GUICtrlSetState($Checks[$i], 64)
            Else
                GUICtrlSetState($Checks[$i], 4)
                GUICtrlSetState($Checks[$i], 128)
            EndIf
        Next
    EndIf
EndFunc

Func _Exit()
    Exit
EndFunc

Salut,

C'est un problème de dimensionnement au niveau de la variables $Check[], en effet pour que la boucle fonctionne tu dois additionner la somme de tout les logiciels contenus dans le fichiers logiciels.ini (Autodesk+Microsoft+Autres).

J'ai modifié le code rapidement, ce n'est surement la manière la plus propre...

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Opt("GUIOnEventMode", 1)

Global $IniFile = @ScriptDir & "\Ini\Villes.ini", $aArray, $MainGUI, $Combo, $Checks, $DummyCheck

$CmbTitle="Choisissez une ville..."
$Combo = GUICtrlCreateCombo($CmbTitle, 140, 30, 220, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))

_Gui()

While GUIGetMsg() <> -3
WEnd

Func _Gui()
   $aArrayAutodesk = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Autodesk")
   $aArrayMicrosoft_ = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Microsoft")
   $aArrayAutres_ = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Autres")
   $DummyCheck =  $aArrayAutodesk[0][0] + $aArrayMicrosoft_[0][0] + $aArrayAutres_[0][0]
    ;ICI MODIFICATION!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   Dim $Checks[$aArrayAutodesk[0][0] + $aArrayMicrosoft_[0][0] + $aArrayAutres_[0][0] +  1]
   ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   $Height = ($aArrayAutodesk[0][0] * 20) + 50

   If $Height > @DesktopHeight Then
        MsgBox(0x0,"Erreur", "Il y a trop pour votre écran", 3)
        $Height = @DesktopHeight - 50
   EndIf

   $MainGUI = GUICreate("Menu d'installation de logiciels", 910, 340, 200, 200)
   $Label1 = GUICtrlCreateLabel ("Sélectionner les logiciels à installer", 350, 1, 300, 17)
   GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
   Local Const $sFont = "Comic Sans Ms"
   GUICtrlSetFont($Label1, 10, 400, 4, $sFont)

   $Button1 = GUICtrlCreateButton ("Démarrer", 20, 305, 129, 25, 0)
   GUISetState()
   $Button2 = GUICtrlCreateButton ("Sélectionner tous", 180, 305, 129, 25, 0)
   GUISetState()
   $Button3 = GUICtrlCreateButton ("Déselectionner tous", 330, 305, 129, 25, 0)
   GUISetState()

   GUICtrlCreateGroup ("Produits Autodesk", 20, 48, 350, 250)
   GUICtrlCreateGroup ("Produits Microsoft", 390, 48, 150, 250)
   GUICtrlCreateGroup ("Autres Produits", 555, 48, 310, 250)

   $alignH = 70
   $alignV = 30

    For $i = 1 To $aArrayAutodesk[0][0]
      $Checks[$i] = GUICtrlCreateCheckbox($aArrayAutodesk[$i][0], $alignV, $alignH, 125, 15)
      $alignH = $alignH + 20
      If $alignH = 290 then
         $alignV = 200
         $alignH = 70
      EndIf
    Next

   $aArrayMicrosoft = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Microsoft")
   $alignH = 70
   $alignV = 400

   For $i = 1 To $aArrayMicrosoft[0][0]
      $Checks[$i] = GUICtrlCreateCheckbox($aArrayMicrosoft[$i][0], $alignV, $alignH, 125, 15)
      $alignH = $alignH + 20
      If $alignH = 290 then
         $alignV = 200
         $alignH = 70
      EndIf
   Next

   $aArrayAutres = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Autres")
   $alignH = 70
   $alignV = 565
   For $i = 1 To $aArrayAutres[0][0]

      $Checks[$i] = GUICtrlCreateCheckbox($aArrayAutres[$i][0], $alignV, $alignH, 125, 15)
      $alignH = $alignH + 20
      If $alignH = 290 then
         $alignV = 725
         $alignH = 70
      EndIf
    Next

    ;$btn = GUICtrlCreateButton("Start", 400, 15, 100, 30)
    $Label2 = GUICtrlCreateLabel ("Place d'affaire:", 20, 25, 100, 17)
    $CmbTitle="Choisissez une place d'affaire..."
    GUISetBkColor (0xf0f8ff)
    $Combo = GUICtrlCreateCombo($CmbTitle, 160, 20, 220, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
    GUICtrlSetOnEvent(-1, "_Autorisation")

    $aArrayCombo = IniReadSectionNames($IniFile)
    If Not @error Then
        ; Enumerate through the array displaying the section names.
        For $i = 1 To $aArrayCombo[0]
            GUICtrlSetData($Combo, $aArrayCombo[$i])
        Next
    EndIf

    GUISetState(@SW_SHOW, $MainGUI)
EndFunc

Func _Autorisation()
    $Location = GUICtrlRead($Combo)
    Local $aAutorisation = IniReadSection($IniFile, $Location)

    If Not IsArray($aAutorisation) Then
        For $i = 1 To $DummyCheck
                GUICtrlSetState($Checks[$i], 4)
                GUICtrlSetState($Checks[$i], 128)
        Next
        Return
    EndIf

    ; Check if an error occurred.
    If Not @error Then
       ; Enumerate through the array displaying the keys and their respective values.
        For $i = 1 To $aAutorisation[0][0]
            If $aAutorisation[$i][1] = 1 Then
                GUICtrlSetState($Checks[$i], $GUI_DISABLE)
                GUICtrlSetState($Checks[$i], 64)
                GUICtrlSetState($Checks[$i], 1)
            Else
                GUICtrlSetState($Checks[$i], 4)
                GUICtrlSetState($Checks[$i], 128)
            EndIf
        Next
    EndIf
EndFunc

Func _Exit()
    Exit
EndFunc

Bonjour, j'ai encore besoin de toi. Si j'en abuse dit le moi. Je te donne un exemple.

Lorsque je sélectionne la ville Alma, il commence à cocher les logiciels seulement dans la section Autres logiciels. Voir l'image Alma joint au message.

Pourtant dans le fichier villes.ini, les logiciels sont tous là. Certains on 0 et d'autre 1 comme valeur. Voir l'image alam2 joint au message.

Ca fait 2 jours que je galère pour trouver la solution.

Merci beaucoup pour ton aide. C'est très apprécié.

Salut,

A première vue je dirai que c'est du fait que se soit la section [Autres] qui a été lue en dernière donc il doit boucler uniquement sur ces logiciels...

J'ai finalement fait qu'une seule section. Comme tu dis, ce que j'ai fait n'est peut être pas des plus esthétique mais ca fonctionne. Il me reste maintenant à fair fonctionner l'installation des logiciels lorsque je vais cliquer sur Démarrer. Je vais me pencher la dessus bientôt.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Opt("GUIOnEventMode", 1)

Global $IniFile = @ScriptDir & "\Ini\Villes.ini", $aArray, $MainGUI, $Combo, $Checks, $DummyCheck

$CmbTitle="Choisissez une ville..."
$Combo = GUICtrlCreateCombo($CmbTitle, 140, 30, 220, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))

_Gui()

While GUIGetMsg() <> -3
WEnd

Func _Gui()
   $aArrayLogiciels = IniReadSection(@ScriptDir & "\Ini\logiciels.ini", "Logiciels")
   $DummyCheck =  $aArrayLogiciels[0][0]
   Dim $Checks[$aArrayLogiciels[0][0] +  1]
  
   $Height = ($aArrayLogiciels[0][0] * 20) + 50

   If $Height > @DesktopHeight Then
        MsgBox(0x0,"Erreur", "Il y a trop pour votre écran", 3)
        $Height = @DesktopHeight - 50
   EndIf

   $MainGUI = GUICreate("Menu d'installation de logiciels", 910, 340, 200, 200)
   $Label1 = GUICtrlCreateLabel ("Sélectionner les logiciels à installer", 350, 1, 300, 17)
   GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
   Local Const $sFont = "Comic Sans Ms"
   GUICtrlSetFont($Label1, 10, 400, 4, $sFont)

   $Button1 = GUICtrlCreateButton ("Démarrer", 20, 305, 129, 25, 0)
   GUISetState()
   $Button2 = GUICtrlCreateButton ("Sélectionner tous", 180, 305, 129, 25, 0)
   GUISetState()
   $Button3 = GUICtrlCreateButton ("Déselectionner tous", 330, 305, 129, 25, 0)
   GUISetState()

   GUICtrlCreateGroup ("Produits Autodesk", 20, 48, 350, 250)
   GUICtrlCreateGroup ("Produits Microsoft", 390, 48, 150, 250)
   GUICtrlCreateGroup ("Autres Produits", 555, 48, 310, 250)

   $alignH = 70
   $alignV = 30

For $i = 1 To $aArrayLogiciels[0][0]
   
      $Checks[$i] = GUICtrlCreateCheckbox($aArrayLogiciels[$i][0], $alignV, $alignH, 125, 15)
      $alignH = $alignH + 20
      If $alignH = 290 then
         $alignV = 200
         $alignH = 70
      EndIf
      if $i = 14 Then
         $alignH = 70
         $alignV = 400
      EndIf
      if $i = 18 then
         $alignH = 70
         $alignV = 565
      EndIf
       if $i = 29 then
         $alignH = 70
         $alignV = 725
      EndIf
    Next
    
    ;$btn = GUICtrlCreateButton("Start", 400, 15, 100, 30)
    $Label2 = GUICtrlCreateLabel ("Place d'affaire:", 20, 25, 100, 17)
    $CmbTitle="Choisissez une place d'affaire..."
    GUISetBkColor (0xf0f8ff)
    $Combo = GUICtrlCreateCombo("", 160, 20, 220, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
    GUICtrlSetOnEvent(-1, "_AutorisationCAD")

    $aArrayCombo = IniReadSectionNames($IniFile)
    If Not @error Then
        
        For $i = 1 To $aArrayCombo[0]
            GUICtrlSetData($Combo, $aArrayCombo[$i])
        Next
    EndIf

    GUISetState(@SW_SHOW, $MainGUI)
EndFunc

Func _AutorisationCAD()
    $Location = GUICtrlRead($Combo)
    
    Local $aAutorisation = IniReadSection($IniFile, $Location)
    

    If Not IsArray($aAutorisation) Then
        For $i = 1 To $DummyCheck
                GUICtrlSetState($Checks[$i], 4)
                GUICtrlSetState($Checks[$i], 128)
        Next
        Return
    EndIf

    If Not @error Then
      
        For $i = 1 To $aAutorisation[0][0]
            If $aAutorisation[$i][1] = 1 Then
                GUICtrlSetState($Checks[$i], $GUI_DISABLE)
                GUICtrlSetState($Checks[$i], 64)
                GUICtrlSetState($Checks[$i], $GUI_UNCHECKED)
             Else
                GUICtrlSetState($Checks[$i], 4)
                GUICtrlSetState($Checks[$i], 128)
            EndIf
        Next
    EndIf
EndFunc

Func _Exit()
    Exit
EndFunc

Merci beaucoup pour ton aide.

AutoIt Français

[R] Choix grisé selon condition

[R] Choix grisé selon condition

Re: [..] Choix grisé selon condition

Re: [..] Choix grisé selon condition

Re: [..] Choix grisé selon condition

Re: [..] Choix grisé selon condition

Re: [..] Choix grisé selon condition

Re: [..] Choix grisé selon condition

Re: [..] Choix grisé selon condition

Re: [..] Choix grisé selon condition

Re: [..] Choix grisé selon condition

Re: [R] Choix grisé selon condition