{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["WILLY"],"not_rendered":{"charts":0,"images":1,"macros":1,"external_links":0,"defined_names":0,"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":"WILLY","index":0,"n_rows":58,"n_cols":9,"rows_kept":58,"cut":false,"hidden":false,"merged":[]}
[]
[null,"Nombre de cartes","O","O","O","O"]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[null,null,null,null,null,null,null,null,"Lorsqu'une croix est marquée il faut compléter par des lettres \"O\" à l'horizontal pour chaque ligne indépendante les unes des autres"]
[null,null,null,null,null,null,null,null,"Lorsque le nombre de croix est atteint à la vertical les croix passent en rouge exemple colonne 'F' il faut combler les cellules vides par la lettre \"O\""]
[null,null,null,null,null,null,null,null,"Exemple Objectif fixé en 'F2' = 4 variable"]
[null,null,{"$f":"COUNTIF(C3:C30,\"X\")","v":0},0,0,{"$f":"COUNTIF(F3:F30,\"X\")","v":0}]
[null,null,null,null,null,null,null,null,"En 'F31' dénombrement du nombre de croix (lettre X) MFC si 'F31' est égal à 'F2' alors on passe en rouge donc on peut combler les cellules vides par la lettre \"O\" uniquement à la vertical et ceci indépendant pour chaque colonne."]
[]
[null,"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"]
[null,"' willy",null,null,null,null,null,null,"ENTREZ X ET VALIDER PAR ENTREE POUR QUE LA MACRO FONCTIONNE BIEN"]
[null,"Range(\"C3:F30\").Font.ColorIndex = 1",null,null,null,null,null,null,"WILLY"]
[null,"On Error Resume Next"]
[]
[null,"If Target.Column > 2 And Target.Column <= 7 Then"]
[null,"If Range(Target.Address).Offset(0, -1) = \"X\" Then"]
[null,"li = Target.Row"]
[]
[null,"For col = 3 To 6"]
[null,"If Cells(li, col) <> \"X\" Then Cells(li, col) = \"O\""]
[null,"Next"]
[null,"End If"]
[null,"End If"]
[]
[null,"For col = 3 To 6"]
[null,"   If Cells(2, col) = Cells(31, col) And Cells(2, col) <> 0 Then"]
[]
[null,"   For li = 3 To 30"]
[null,"     If Cells(li, col) = \"X\" Then Cells(li, col).Font.ColorIndex = 3 Else Cells(li, col) = \"O\""]
[null,"   Next li"]
[null,"   End If"]
[null,"   "]
[null,"Next col"]
[null,"End Sub"]