{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["Un seul mot par forme","Plusieurs mots par forme"],"not_rendered":{"charts":0,"images":0,"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":"Un seul mot par forme","index":0,"n_rows":9,"n_cols":10,"rows_kept":9,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[null,null,null,null,null,null,null,null,null,"Raccourci clavier  Ctrl + k pour lancer la macro colorer"]
[]
[]
[]
[]
[null,null,null,null,null,null,null,null,null,"Private  Sub colorer()\n  For Each s In ActiveSheet.Shapes\n  Select Case s.TextFrame.Characters.Text\n  Case \"JAUNE\"\n  s.Fill.ForeColor.RGB = RGB(255, 255, 0)\n  Case \"BLEU\"\n   s.Fill.ForeColor.RGB = RGB(0, 176, 240)\n   Case \"VERT\"\n    s.Fill.ForeColor.RGB = RGB(0, 176, 80)\n  End Select\n  Next\nEnd Sub"]

{"sheet":"Plusieurs mots par forme","index":1,"n_rows":9,"n_cols":10,"rows_kept":9,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[null,null,null,null,null,null,null,null,null,"Raccourci clavier  Ctrl + y pour lancer la macro colorer2"]
[]
[]
[]
[]
[null,null,null,null,null,null,null,null,null,"Sub colorer2()\n For Each s In ActiveSheet.Shapes\n  tablo = Split(s.TextFrame.Characters.Text, \" \")\n col = 0\n    For n = 0 To UBound(tablo)\n    If tablo(n) = \"JAUNE\" Then R = 255: G = 255: B = 0: col = 1\n     If tablo(n) = \"BLEU\" Then R = 0: G = 176: B = 240: col = 1\n     If tablo(n) = \"VERT\" Then R = 0: G = 173: B = 80: col = 1\n     Next n\n  If col = 1 Then s.Fill.ForeColor.RGB = RGB(R, G, B)\n \nNext\nEnd Sub"]