{"text_format":"1","workbook":"xlsx","n_sheets":3,"sheets":["Liste","BDD","Feuil3"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":1,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Liste","index":0,"n_rows":55,"n_cols":7,"rows_kept":55,"cut":false,"hidden":false,"merged":[]}
["Supplier","Machine 1","Machine 2","Machine 3"]
[1,null,"X","X",null,null,"Suppliers"]
[2,"X","X","X",null,"Machine 3",1]
[3,"X",null,"X",null,null,2]
[null,null,null,null,null,null,3]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
["Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Macro qui s'éxécute à chaque nouvelle sélection de cellule sur la feuille"]
[]
["Dim DL As Long, DC As Long 'Définition des variable (ne pas toucher)"]
[]
["DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'Détermine la dernière ligne (en fonction de la colonne A, mettre la colonne qui est remplie le plus bas)"]
["DC = Cells(1, Application.Columns.Count).End(xlToLeft).Column 'Détermine la dernière colonne (en fonction de la ligne 1)"]
[]
["Range(\"J3\").Validation.Delete 'Supprime la liste déroulante de la cellule J3"]
[]
["Range(\"K3:K2000\").ClearContents 'Supprime les valeurs de K3 à K2000"]
[]
["With Range(\"J3\").Validation 'Crée la liste déroulante en J3"]
[".Add Type:=xlValidateList, _"]
["AlertStyle:=xlValidAlertStop, _"]
["Formula1:=\"=\" & Range(Cells(1, 2), Cells(1, DC)).Address 'Les valeurs de la liste déroulante vont de la cellule B1 (Celle(ligne, colonne)) à la cellule Dernière colonne 1 (Cells(ligne, DC donc dernière colonne)"]
["End With"]
[]
["y = 3 'Définit la variable y = 3"]
[]
["For j = 2 To DC 'Boucle pour j allant de la colonne 2 à la dernière colonne"]
[]
["If Cells(1, j).Value = Range(\"J3\").Value Then 'Si la cellule de la colonne j ligne 1 = Cellule J3 alors"]
[]
["    For i = 2 To DL 'Boucle pour i allant de la ligne 2 à la dernière ligne"]
["    "]
["    If Cells(i, j) = \"x\" Then 'Si la cellule de ligne i et de la colonne j = \"x\" alors"]
["    "]
["        Range(\"K\" & y).Value = Range(\"A\" & i).Value 'La cellule de la colonne K et de la ligne y (définit comme étant égal à 3) = La cellule de la colonne A et de la ligne i (la machine quoi)"]
["        "]
["        y = y + 1 'Incrémente y de 1, ce qui veut dire qu'à la prochaine condition, y sera égal à 4 puis 5 puis 6..."]
["        "]
["    End If 'Fin de la condition"]
["    "]
["    Next i 'Prochaine ligne de la boucle i"]
["    "]
["End If 'Fin de la condition"]
[]
["Next j 'Prochaine ligne de la boucle j"]
[]
["End Sub 'Fin de macro"]

{"sheet":"BDD","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}

{"sheet":"Feuil3","index":2,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}