{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Recherche"],"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":"Recherche","index":0,"n_rows":25,"n_cols":52,"rows_kept":25,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[]
[null,null,null,"j'ai mis willy en AZ11"]
[]
[]
[]
["Sub recherche()"]
["'willy",null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,"willy"]
[]
["' mettre ci-dessous tes cellules concernées de ta feuille active"]
[" Set mazone = ActiveSheet.Range(\"AL11 : AZ11 , AL120 : AZ120\")"]
[" "]
[" mot = InputBox(\"Saisir le texte recherché\", \"Recherche dans \" & mazone.Address)"]
["if mot=\"\" then exit sub"]
[" With mazone"]
[" Set c = .Find(mot, LookIn:=xlValues)"]
[" If c Is Nothing Then"]
["MsgBox \"pas trouvé le texte cherché\", vbCritical, \"Dans la zone choisie \" & mazone.Address"]
["c.select"]
[" End With"]
[]
["End Sub"]