{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["Source","chiffre"],"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":"Source","index":0,"n_rows":78,"n_cols":16,"rows_kept":78,"cut":false,"hidden":false,"merged":[]}
[]
[]
[null,null,null,null,null,null,null,{"$f":"IF(chiffre!E6<1,3,\"\")","v":3}]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Si ma valeur de la cellule E6 de la feuille chiffre est supérieur à 1 (puisque ce sont des pourcentages)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Alors mettre la valeur dans la zone teste en rouge (le rouge du format ci-dessous inscrit dans le code)"]
[]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Pour que la macro s'execute automatiquement au démarage"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Mettre dans le feuille source ou s'execute la macro"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Private Sub Worksheet_Activate()"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"  Changercouleur"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"End Sub"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Si j'ai qu'une zone texte"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"le code que je mets dans le module si j'ai une zone texte"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Sub Changercouleur()"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"' Changercouleur Macro"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Dim cellule"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"  cellule = Sheets(\"chiffre\").Range(\"E6\")"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"  With ActiveSheet.Shapes.Range(Array(\"TextBox 1\"))"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"    If cellule > 1 Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"      With .TextFrame2.TextRange.Font.Fill"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .Visible = msoTrue"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .ForeColor.ObjectThemeColor = msoThemeColorAccent2"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .ForeColor.TintAndShade = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .ForeColor.Brightness = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .Transparency = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .Solid"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"      End With"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"    Else"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"      With .TextFrame2.TextRange.Font.Fill"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .Visible = msoTrue"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .ForeColor.ObjectThemeColor = msoThemeColorText1"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .ForeColor.TintAndShade = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .ForeColor.Brightness = 0.150000006"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .Transparency = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        .Solid"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"      End With"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"    End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"  End With"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"End Sub"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"le code que je mets dans le module si j'ai plusieurs zone texte "]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Sub Changercouleur()"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"' Changercouleur Macro"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Dim cellule"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"  cellule = Sheets(\"chiffre\").Range(\"E6\")"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"  With ActiveSheet.Shapes.Range(Array(\"TextBox 1\", \"TextBox 2\"))"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"    'With ActiveSheet.Shapes.Range(Array(\"TextBox 2\"))"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"      If cellule < 1 Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        With .TextFrame2.TextRange.Font.Fill"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .Visible = msoTrue"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .ForeColor.ObjectThemeColor = msoThemeColorAccent2"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .ForeColor.TintAndShade = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .ForeColor.Brightness = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .Transparency = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .Solid"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        End With"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"      Else"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        With .TextFrame2.TextRange.Font.Fill"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .Visible = msoTrue"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .ForeColor.ObjectThemeColor = msoThemeColorText1"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .ForeColor.TintAndShade = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .ForeColor.Brightness = 0.150000006"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .Transparency = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          .Solid"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        End With"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"      End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"    End With"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"  End Sub"]

{"sheet":"chiffre","index":1,"n_rows":6,"n_cols":9,"rows_kept":6,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[null,null,null,null,"Si inférieur à 100 rouge alors rouge avec le format de la feuille",null,null,null,"Mais "]
[]
[null,null,null,null,0.9]