[R] Menu Dynamique

[Dexxpo]

Bonjour,

J'aimerai faire un menu Dynamique c-a-d, lorsque j'appuie sur le bouton "ajouter" il ajoute une ligne de plusieurs cellules avec un ID identique et un bouton supprimer pour chaque ligne créé (Pour supprimer la ligne de cellule). Le problème c'est que je ne sais pas récupérer l'ID du bouton supprimer.

Ma façon n'est surement pas la meilleur, si vous avez des remarques n'hésitez pas.

Vous comprendrez surement mieu mon problème avec mon script et MERCI d'avoir pris le temps d'avoir lu.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#Include<file.au3>

Opt("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)

Global $BAJOUTER, $BRESULT, $BSEND, $i, $d, $height, $nom, $prenom
Global $inpRep, $cbAcces, $ResultRep, $ResultAcces, $lblsrv, $lstsrv, $rc,$MSG,$lblnom, $lblprenom, $cbAcces1,$lstsrv, $lblAcces, $lblRep
Global $inpRepN[8], $cbAccesN[8], $BDEL[8]
Global $HexNumber
$i = 0
$height = 90

Main ()
Func Main()
  

    Local $BTNEXIT, $msg, $guiread
    Dim $lblnom, $lblprenom, $cbAcces1,$lstsrv, $lblAcces, $lblRep
    
    GuiCreate("Demande de droit sur répertoire", 400, 400,0,0)
    
    $lblnom = GuiCtrlCreateLabel("NOM:", 10, 15)
    $nom = GuiCtrlCreateInput("", 10, 35, 80, 20)
    ;GuiCtrlSetBkColor($nom, )
    
    $lblprenom = GuiCtrlCreateLabel("PRENOM:", 100, 15)
    $prenom = GuiCtrlCreateInput("", 100, 35, 80, 20)

    $lblsrv = GuiCtrlCreateLabel("Serveurs de fichier", 10, 70)
    $lstsrv = GuiCtrlCreateList("", 10, 90, 100, 90)
    GuiCtrlSetData(-1, "FRLBM-FIL01|FRPAR-FIL01|BRMAC-FIL01")

    $lblRep = GuiCtrlCreateLabel("Répertoire", 120, 70)
    $inpRep = GuiCtrlCreateInput("", 120, 90, 80, 20)
    
    $lblAcces = GuiCtrlCreateLabel("Droit d'acces", 212, 70)
    $cbAcces = GuiCtrlCreatecombo("Select", 212, 90, 100, 100)
    GUICtrlSetData(-1, "Lecture|Lecture/Ecriture")
    
    $BAJOUTER = GUICtrlCreateButton("&Ajouter", 320, 90, 70)
    GUICtrlSetOnEvent($BAJOUTER, "OnAjouter")
    
    $BTNEXIT = GUICtrlCreateButton("&Exit", 295, 370, 100)
    GUICtrlSetOnEvent($BTNEXIT, "OnExit")
    
    $BRESULT =GUICtrlCreateButton("&Result", 175, 370, 100)
    GUICtrlSetOnEvent($BRESULT, "OnResult")
    
    GUISetOnEvent($GUI_EVENT_CLOSE, "OnClose")
    
    GuiSetState()

    while 1
        
        Sleep(1000)
        
    WEnd
    
EndFunc

Func OnClose()
    Exit
EndFunc

Func OnAjouter()
    If $i = 7 Then
        MsgBox(16,"Erreur","Vous avez atteind la limite de nombre de répertoire")
    Else
        $i = $i + 1
        $height = $height + 30
        $inpRepN[$i] = GuiCtrlCreateInput("", 120, $height, 80, 20)
        $ResultRep = $inpRepN[$i]
        $cbAccesN[$i] = GuiCtrlCreatecombo("Select", 212, $height, 100, 100)
        GUICtrlSetData($cbAccesN[$i], "Lecture|Lecture/Ecriture")
        $ResultAcces = $cbAccesN[$i]
        $BDEL[$i] = GUICtrlCreateButton("X", 320, $height, 20, 20)
        GUICtrlSetOnEvent($BDEL[$i], "OnDel")
    EndIf
EndFunc
    
Func OnDel()
    
    GUICtrlDelete($inpRepN[$i])
    GUICtrlDelete($cbAccesN[$i])
    GUICtrlDelete($BDEL[$i])
EndFunc

Func OnResult()
    MsgBox(0,"Result0",GUICtrlRead($inpRep))
    MsgBox(0,"Result",GUICtrlRead($cbAcces))
    ;$compte =
    for $compte = 1 to $i
        MsgBox(0,"Result Rep" & $compte,GUICtrlRead($inpRepN[$compte]))
        MsgBox(0,"Result Acces" & $compte,GUICtrlRead($cbAccesN[$compte]))
    Next
    ;MsgBox(0,"Result",GUICtrlRead($ResultRep))
    ;MsgBox(0,"Result",GUICtrlRead($ResultAcces))
EndFunc

Func OnExit()

    If GUICtrlRead($nom) = "" And GUICtrlRead($prenom) = "" And GUICtrlRead($lstsrv) = "" Then 
        MsgBox(16,"ERREUR","Remplis Ce p..... De NOM Et PRENOM Et Sélectionne Ce p..... De Serveur ! ! !")
    Else
        If GUICtrlRead($nom) = "" And GUICtrlRead($prenom) <> "" And GUICtrlRead($lstsrv) <> "" Then 
            MsgBox(16,"ERREUR","Remplis Ce p..... De NOM ! ! !")
        Else
            If GUICtrlRead($nom) <> "" And GUICtrlRead($prenom) = "" And GUICtrlRead($lstsrv) <> "" Then
                MsgBox(16,"ERREUR","Remplis Ce p..... De PRENOM ! ! !")
            Else
                If GUICtrlRead($nom) <> "" And GUICtrlRead($prenom) <> "" And GUICtrlRead($lstsrv) = "" Then
                    MsgBox(16,"ERREUR","Sélectionnes Un p..... De Serveur ! ! !")
                Else
                    If GUICtrlRead($nom) = "" And GUICtrlRead($prenom) = "" And GUICtrlRead($lstsrv) <> "" Then
                        MsgBox(16,"ERREUR","Remplis Ce p..... De NOM Et PRENOM ! ! !")
                    Else
                        If GUICtrlRead($nom) = "" And GUICtrlRead($prenom) <> "" And GUICtrlRead($lstsrv) = "" Then
                            MsgBox(16,"ERREUR","Remplis Ce p..... De NOM Et Sélectionne Ce p..... De Serveur ! ! !")
                        Else
                            If GUICtrlRead($nom) <> "" And GUICtrlRead($prenom) = "" And GUICtrlRead($lstsrv) = "" Then
                                MsgBox(16,"ERREUR","Remplis Ce p..... De PRENOM Et Sélectionne Ce p..... De Serveur ! ! !")
                            Else
                                Exit
                            EndIf
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndFunc

[jumby]

Voici ce que je propose :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#Include<file.au3>

Opt("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)

Global $BAJOUTER, $BRESULT, $BSEND, $i, $d, $height, $nom, $prenom
Global $inpRep, $cbAcces, $ResultRep, $ResultAcces, $lblsrv, $lstsrv, $rc,$MSG,$lblnom, $lblprenom, $cbAcces1,$lstsrv, $lblAcces, $lblRep
Global $inpRepN[8], $cbAccesN[8], $BDEL[8]
Global $HexNumber
$i = 0
$height = 90

Main ()
Func Main()
 

    Local $BTNEXIT, $msg, $guiread
    Dim $lblnom, $lblprenom, $cbAcces1,$lstsrv, $lblAcces, $lblRep
   
    GuiCreate("Demande de droit sur répertoire", 400, 400,0,0)
   
    $lblnom = GuiCtrlCreateLabel("NOM:", 10, 15)
    $nom = GuiCtrlCreateInput("", 10, 35, 80, 20)
    ;GuiCtrlSetBkColor($nom, )
   
    $lblprenom = GuiCtrlCreateLabel("PRENOM:", 100, 15)
    $prenom = GuiCtrlCreateInput("", 100, 35, 80, 20)

    $lblsrv = GuiCtrlCreateLabel("Serveurs de fichier", 10, 70)
    $lstsrv = GuiCtrlCreateList("", 10, 90, 100, 90)
    GuiCtrlSetData(-1, "FRLBM-FIL01|FRPAR-FIL01|BRMAC-FIL01")

    $lblRep = GuiCtrlCreateLabel("Répertoire", 120, 70)
    $inpRep = GuiCtrlCreateInput("", 120, 90, 80, 20)
   
    $lblAcces = GuiCtrlCreateLabel("Droit d'acces", 212, 70)
    $cbAcces = GuiCtrlCreatecombo("Select", 212, 90, 100, 100)
    GUICtrlSetData(-1, "Lecture|Lecture/Ecriture")
   
    $BAJOUTER = GUICtrlCreateButton("&Ajouter", 320, 90, 70)
    GUICtrlSetOnEvent($BAJOUTER, "OnAjouter")
   
    $BTNEXIT = GUICtrlCreateButton("&Exit", 295, 370, 100)
    GUICtrlSetOnEvent($BTNEXIT, "OnExit")
   
    $BRESULT =GUICtrlCreateButton("&Result", 175, 370, 100)
    GUICtrlSetOnEvent($BRESULT, "OnResult")
   
    GUISetOnEvent($GUI_EVENT_CLOSE, "OnClose")
   
    GuiSetState()

    while 1
       
        Sleep(1000)
       
    WEnd
   
EndFunc

Func OnClose()
    Exit
EndFunc

Func OnAjouter()
    If $i = 7 Then
        MsgBox(16,"Erreur","Vous avez atteind la limite de nombre de répertoire")
    Else
        $i = $i + 1
        $height = $height + 30
        $inpRepN[$i] = GuiCtrlCreateInput("", 120, $height, 80, 20)
        $ResultRep = $inpRepN[$i]
        $cbAccesN[$i] = GuiCtrlCreatecombo("Select", 212, $height, 100, 100)
        GUICtrlSetData($cbAccesN[$i], "Lecture|Lecture/Ecriture")
        $ResultAcces = $cbAccesN[$i]
        $BDEL[$i] = GUICtrlCreateButton("X", 320, $height, 20, 20)
        GUICtrlSetOnEvent($BDEL[$i], "OnDel"&$i)
    EndIf
EndFunc
   
Func OnDel1()

    GUICtrlDelete($inpRepN[1])
    GUICtrlDelete($cbAccesN[1])
    GUICtrlDelete($BDEL[1])
EndFunc

Func OnDel2()

    GUICtrlDelete($inpRepN[2])
    GUICtrlDelete($cbAccesN[2])
    GUICtrlDelete($BDEL[2])
EndFunc

Func OnDel3()

    GUICtrlDelete($inpRepN[3])
    GUICtrlDelete($cbAccesN[3])
    GUICtrlDelete($BDEL[3])
EndFunc


Func OnDel4()
    GUICtrlDelete($inpRepN[4])
    GUICtrlDelete($cbAccesN[4])
    GUICtrlDelete($BDEL[4])
EndFunc

Func OnDel5()
    GUICtrlDelete($inpRepN[5])
    GUICtrlDelete($cbAccesN[5])
    GUICtrlDelete($BDEL[5])
EndFunc

Func OnDel6()
    GUICtrlDelete($inpRepN[6])
    GUICtrlDelete($cbAccesN[6])
    GUICtrlDelete($BDEL[6])
EndFunc

Func OnDel7()
    GUICtrlDelete($inpRepN[7])
    GUICtrlDelete($cbAccesN[7])
    GUICtrlDelete($BDEL[7])
EndFunc



Func OnResult()
    MsgBox(0,"Result0",GUICtrlRead($inpRep))
    MsgBox(0,"Result",GUICtrlRead($cbAcces))
    ;$compte =
    for $compte = 1 to $i
        MsgBox(0,"Result Rep" & $compte,GUICtrlRead($inpRepN[$compte]))
        MsgBox(0,"Result Acces" & $compte,GUICtrlRead($cbAccesN[$compte]))
    Next
    ;MsgBox(0,"Result",GUICtrlRead($ResultRep))
    ;MsgBox(0,"Result",GUICtrlRead($ResultAcces))
EndFunc

Func OnExit()

    If GUICtrlRead($nom) = "" And GUICtrlRead($prenom) = "" And GUICtrlRead($lstsrv) = "" Then
        MsgBox(16,"ERREUR","Remplis Ce p..... De NOM Et PRENOM Et Sélectionne Ce p..... De Serveur ! ! !")
    Else
        If GUICtrlRead($nom) = "" And GUICtrlRead($prenom) <> "" And GUICtrlRead($lstsrv) <> "" Then
            MsgBox(16,"ERREUR","Remplis Ce p..... De NOM ! ! !")
        Else
            If GUICtrlRead($nom) <> "" And GUICtrlRead($prenom) = "" And GUICtrlRead($lstsrv) <> "" Then
                MsgBox(16,"ERREUR","Remplis Ce p..... De PRENOM ! ! !")
            Else
                If GUICtrlRead($nom) <> "" And GUICtrlRead($prenom) <> "" And GUICtrlRead($lstsrv) = "" Then
                    MsgBox(16,"ERREUR","Sélectionnes Un p..... De Serveur ! ! !")
                Else
                    If GUICtrlRead($nom) = "" And GUICtrlRead($prenom) = "" And GUICtrlRead($lstsrv) <> "" Then
                        MsgBox(16,"ERREUR","Remplis Ce p..... De NOM Et PRENOM ! ! !")
                    Else
                        If GUICtrlRead($nom) = "" And GUICtrlRead($prenom) <> "" And GUICtrlRead($lstsrv) = "" Then
                            MsgBox(16,"ERREUR","Remplis Ce p..... De NOM Et Sélectionne Ce p..... De Serveur ! ! !")
                        Else
                            If GUICtrlRead($nom) <> "" And GUICtrlRead($prenom) = "" And GUICtrlRead($lstsrv) = "" Then
                                MsgBox(16,"ERREUR","Remplis Ce p..... De PRENOM Et Sélectionne Ce p..... De Serveur ! ! !")
                            Else
                                Exit
                            EndIf
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndFunc

[Dexxpo]

Merci de ta réponse, mais j'avais pour objectif de remonter toutes les cellules lorqu'une ligne est supprimé, je sais que c'est compliqué pour la valeur ajouté mais j'aime les défis :p et j'apprendrais quelque chose d'important...

Donc je cherche toujours une solution pour trouver l'ID.

[jl56]

Bonjour

Je pense que tu as déjà la réponse dans ton script (j'avais fait un script similaire )
ton Id est placé dans tes variables $inpRepN[$i],$cbAccesN[$i] ....

ici

► Afficher le texte

Code : Tout sélectionner

$i = $i + 1
        $height = $i + 30
        $inpRepN[$i] = GuiCtrlCreateInput("", 120, $height, 80, 20)
        $ResultRep = $inpRepN[$i]
        $cbAccesN[$i] = GuiCtrlCreatecombo("Select", 212, $height, 100, 100)
        GUICtrlSetData($cbAccesN[$i], "Lecture|Lecture/Ecriture")
        $ResultAcces = $cbAccesN[$i]
        $BDEL[$i] = GUICtrlCreateButton("X", 320, $height, 20, 20)
        GUICtrlSetOnEvent($BDEL[$i], "OnDel"&$i)

créer une fonction pour avec cette partie de ton code
tu incrémentes une variable ex $Nombre_de_ligne à chaque nouvelle ligne
tu places ce code dans une boucle
for $i = 1 to $Nombre_de_ligne
cette fonction tu la lance avec l'ajout de ligne

mais avant tu lances une autre fonction qui delete toutes tes lignes
avec également une boucle

► Afficher le texte

Code : Tout sélectionner

for $i = 1 to $Nombre_de_ligne
GUICtrlDelete($inpRepN[$i])
GUICtrlDelete($cbAccesN[$i])
 GUICtrlDelete($BDEL[$i])
next

désolé, Je n'ai pas le temps de faire plus
c'est juste une piste de recherche que je te donnes suite au script que j'avais conçût

A+ JL56

[Dexxpo]

Justement je voudrais connaitre la valeur $i du boutton qui sera selectionné avant. Je ne sais pas faire cette manip et je n'ai pas trouvé dans l'aide... Ou je n'ai pas compris ce que tu veux m'expliquer.
Je vois 2 solutions mais je ne sais pas le réaliser:
- Sois il y a une méthode qui permet directement de récupérer l'indice ou l'ID du boutton
- Ou bien récupérer le nom du boutton, exemple boutton[6] et je fais une troncature pour récupérer [6] ou le 6.

[jl56]

Re
je n'utilise pas GUISetOnEvent

J'utilise une boucle (for next) dans la boucle do guigetmsg() etc ...

► Afficher le texte

Code : Tout sélectionner

do
$msg = GUIGetMsg()

; test bouton , input etc de chaque ligne
For $i = 1 to $nombre_de_ligne
            
If $msg = $inpRepN[$i] and $msg>0 Then  blablabla ....
If $msg = $cbAccesN[$i] and $msg>0 Then  blablabla ....
next i
;suite de la boucle 

Until $msg = $GUI_EVENT_CLOSE

Précision ne recherche pas a connaitre la valeur de l'id car celle ci peut ce modifier pendant l'exécution du script
( après effacement ,recréation etc.. ) ou si tu ajoutes d'autres éléments dans la gui.
Le mieux est de stocker cette valeur dans des variables ( ce que tu as déjà fait $inpRepN[$i]...) et de tester ces variables.

a+ JL56

[Dexxpo]

Arf, j'ai une erreur mais en même temps je sais pas si je mets ça au bon endroit. Et je ne comprends pas trop ce que ça va me donner car jamais le $MSG sera égale à $inpRepN[$i]. C'est surement pour ça que je dois mal l'employer. Désolé d'être lent

► Afficher le texte

Code : Tout sélectionner

Func Main()
  

    Local $BTNEXIT, $msg, $guiread
    Dim $lblnom, $lblprenom, $cbAcces1,$lstsrv, $lblAcces, $lblRep
    
    GuiCreate("Demande de droit sur répertoire", 400, 400,0,0)
    
    $lblnom = GuiCtrlCreateLabel("NOM:", 10, 15)
    $nom = GuiCtrlCreateInput("", 10, 35, 80, 20)
    ;GuiCtrlSetBkColor($nom, )
    
    $lblprenom = GuiCtrlCreateLabel("PRENOM:", 100, 15)
    $prenom = GuiCtrlCreateInput("", 100, 35, 80, 20)

    $lblsrv = GuiCtrlCreateLabel("Serveurs de fichier", 10, 70)
    $lstsrv = GuiCtrlCreateList("", 10, 90, 100, 90)
    GuiCtrlSetData(-1, "FRLBM-FIL01|FRPAR-FIL01|BRMAC-FIL01")

    $lblRep = GuiCtrlCreateLabel("Répertoire", 120, 70)
    $inpRep = GuiCtrlCreateInput("", 120, 90, 80, 20)
    
    $lblAcces = GuiCtrlCreateLabel("Droit d'acces", 212, 70)
    $cbAcces = GuiCtrlCreatecombo("Select", 212, 90, 100, 100)
    GUICtrlSetData(-1, "Lecture|Lecture/Ecriture")
    
    $BAJOUTER = GUICtrlCreateButton("&Ajouter", 320, 90, 70)
    ;GUICtrlSetOnEvent($BAJOUTER, "OnAjouter")
    
    $BTNEXIT = GUICtrlCreateButton("&Exit", 295, 370, 100)
    ;GUICtrlSetOnEvent($BTNEXIT, "OnExit")
    
    $BRESULT =GUICtrlCreateButton("&Result", 175, 370, 100)
    ;GUICtrlSetOnEvent($BRESULT, "OnResult")
    
    $BSEND =GUICtrlCreateButton("&Send", 55, 370, 100)
    ;GUICtrlSetOnEvent($BSEND, "OnSend")
    
    ;$BBODY =GUICtrlCreateButton("&Send", 0, 370, 100)
        ;GUICtrlSetOnEvent($BBODY, "OnBody")
    
    ;GUISetOnEvent($GUI_EVENT_CLOSE, "OnClose")
    
    GuiSetState()
    $MSG = GUIGetMsg()
    
    do
$MSG = GUIGetMsg()

; test bouton , input etc de chaque ligne
For $i = 1 to 10
            
    If $MSG = $inpRepN[$i] and $msg>0 Then  GUICtrlDelete($inpRepN[$i]) GUICtrlDelete($cbAccesN[$i]) GUICtrlDelete($BDEL[$i])
    ;If $msg = $cbAccesN[$i] and $msg>0 Then  GUICtrlDelete($cbAccesN[$i])
next

Until $MSG = $GUI_EVENT_CLOSE
    
    ;while 1
        
        ;Sleep(1000)
        
    ;WEnd
    
EndFunc

82) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
If $MSG = $inpRepN[$i] and $msg>0 Then GUICtrlDelete($inpRepN[$i]) GUICtrlDelete($cbAccesN[$i]) GUICtrlDelete($BDEL[$i])
If $MSG = ^ ERROR

[jl56]

Bonjour

voila tu trouveras ton script avec un menu dynamique

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#Include<file.au3>

Opt("MustDeclareVars", 1)
;~ Opt("GUIOnEventMode", 1)

Global $BAJOUTER, $BRESULT, $BSEND, $i, $d, $height, $nom, $prenom
Global $inpRep, $cbAcces, $ResultRep[8], $ResultAcces, $lblsrv, $lstsrv, $rc,$MSG,$lblnom, $lblprenom, $cbAcces1,$lstsrv, $lblAcces, $lblRep
Global $inpRepN[8], $cbAccesN[8], $BDEL[8]
Global $HexNumber,$nombre_de_ligne,$BTNEXIT
$i = 0
$height = 0
$nombre_de_ligne=0
Main ()
GuiSetState()


;debut boucle **************************************************************************************************************************************
;debut boucle **************************************************************************************************************************************
;debut boucle **************************************************************************************************************************************

do
$msg = GUIGetMsg()


if $msg=$BAJOUTER Then
    Ajouter()
EndIf



if $nombre_de_ligne>0 then 
    
; test bouton , input etc de chaque ligne
    For $i = 1 to $nombre_de_ligne
       
        If $msg = $inpRepN[$i] and $msg>0 Then 
            $ResultRep[$i]=GUICtrlRead($inpRepN[$i])
        
        EndIf
        
        If $msg = $BDEL[$i] and $msg>0 Then  
            efface_la_ligne($i)
        EndIf
    
    next
;suite de la boucle
EndIf

Until $msg = $GUI_EVENT_CLOSE

;fin boucle **************************************************************************************************************************************
;fin boucle **************************************************************************************************************************************
;fin boucle **************************************************************************************************************************************



Func Main()
 

    Local $BTNEXIT, $msg, $guiread
    Dim $lblnom, $lblprenom, $cbAcces1,$lstsrv, $lblAcces, $lblRep
   
    GuiCreate("Demande de droit sur répertoire", 400, 400,0,0)
   
    $lblnom = GuiCtrlCreateLabel("NOM:", 10, 15)
    $nom = GuiCtrlCreateInput("", 10, 35, 80, 20)  
    $lblprenom = GuiCtrlCreateLabel("PRENOM:", 100, 15)
    $prenom = GuiCtrlCreateInput("", 100, 35, 80, 20)
    $lblsrv = GuiCtrlCreateLabel("Serveurs de fichier", 10, 70)
    $lstsrv = GuiCtrlCreateList("", 10, 90, 100, 90)
    GuiCtrlSetData(-1, "FRLBM-FIL01|FRPAR-FIL01|BRMAC-FIL01")
    $BAJOUTER = GUICtrlCreateButton("&Ajouter", 320, 90, 70)
    $BTNEXIT = GUICtrlCreateButton("Exit", 295, 370, 100)
    $BRESULT =GUICtrlCreateButton("&Result", 175, 370, 100)
    
EndFunc
  


Func OnClose()
    Exit
EndFunc

func effacementlignes()
    if $Nombre_de_ligne>0 Then
        for $i = 1 to $Nombre_de_ligne
            GUICtrlDelete($inpRepN[$i])
            GUICtrlDelete($cbAccesN[$i])
            GUICtrlDelete($BDEL[$i])
        next
    EndIf
EndFunc



Func Ajouter()
    
    If $nombre_de_ligne = 7 Then
        MsgBox(16,"Erreur","Vous avez atteind la limite de nombre de répertoire")
    Else
        $nombre_de_ligne = $nombre_de_ligne + 1
            affiche_ligne()
    EndIf

EndFunc

func affiche_ligne()
    effacementlignes()
    for $i =1 to $nombre_de_ligne
        
        $height =  90+30*$i
        $inpRepN[$i] = GuiCtrlCreateInput("", 120, $height, 80, 20)
        GUICtrlSetData($inpRepN[$i],$ResultRep[$i])
        $cbAccesN[$i] = GuiCtrlCreatecombo("Select", 212, $height, 100, 100)
        GUICtrlSetData($cbAccesN[$i], "Lecture|Lecture/Ecriture")
        $ResultAcces = $cbAccesN[$i]
        $BDEL[$i] = GUICtrlCreateButton("X", 320, $height, 20, 20)

    Next
EndFunc

func efface_la_ligne($i)
    effacementlignes()
    ;ICI je décale les valeurs de $ResultRep[$j] 
    if $Nombre_de_ligne<7 Then
        for $j= $i to $nombre_de_ligne 
            $ResultRep[$j]=$ResultRep[$j+1]
        Next
    EndIf
    ;effacement de la derniere valeur
    $ResultRep[$nombre_de_ligne]=""
    $nombre_de_ligne=$nombre_de_ligne-1
    affiche_ligne()
EndFunc



 

Comme tu pourras le voir j'ai supprimé pas mal de chose mais mon but
était de faire fonctionner le menu dynamique. Je n'ai géré que le champ répertoire et le
bouton supprime.

a toi de le modifier selon tes besoins


A+ JL56

[Dexxpo]

MERCI! Je m'attendais pas à tant ^^. Tu as même fais en sorte que les cellules remontent quand tu les supprimes, maintenant que j'ai vu que sa marche faut que je comprenne le résonnement parce qu'il me reste quelques point pas claire pour moi..

Je te remercie en tout cas