{"text_format":"1","workbook":"xlsx","n_sheets":4,"sheets":["A faire","Liste1","Liste2","Liste globale"],"not_rendered":{"charts":0,"images":0,"macros":0,"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":"A faire","index":0,"n_rows":32,"n_cols":6,"rows_kept":32,"cut":false,"hidden":false,"merged":[]}
[]
[]
[null,"Exercice 1-","Ouvrir_Liste1","Sur la feuille 'Liste1', récupérer les données du classeur 'Liste1' en utilisant l'enregistreur de macros"]
[]
[null,null,null,null,"=> Ceci se fera en ouvrant le classeur 'Liste1' et en copiant / collant les données du classeur sur la bonne feuille"]
[null,null,null,null,"=> Ajouter un bouton de type 'formulaire' pour exécuter la macro"]
[]
[null,"Exercice 2-","Ouvrir_Liste2","Recopier la procédure enregistrée et adaptez-la pour les données qui concernent 'Liste2'"]
[]
[null,null,null,null,"=> Adapter la procédure de façon à faire en sorte que le fichier qui s'ouvrir provienne du dossier actif (et non à partir d'un dossier dont le chemin est précisé directement, comme par exemple c:\\...)"]
[null,null,null,null,"=> Le nom du dossier courant sera \"enregistré\" dans une variable RepCourant. Le chemin et le nom du fichier à ouvrrir seront \"enregistrés\" dans une variable \"NomFic\""]
[null,null,null,null,"=> Les variables seront affichées dans la fenêtre d'exécution"]
[null,null,null,null,"=> Ajouter un bouton de type 'ActiveX' pour exécuter la macro"]
[]
[null,"Exercice 3-","Récup_Liste1","Sur la feuille 'ListeGlobale', récupérez les données de la feuille 'Liste1'"]
[null,null,null,"Ceci se fera via un copier / coller mais la sélection des données se fera dans la procédure (et non via une manipulation de souris)"]
[null,null,null,"Les données seront collées à partir de 'A2'"]
[]
[null,"Exercice 4-","Récup_Liste2","Sur la feuille 'ListeGlobale', récupérez les données de la feuille 'Liste2'"]
[null,null,null,"Ceci se fera via un copier / coller mais la sélection des données se fera dans la procédure (et non via une manipulation de souris)"]
[null,null,null,"Les données seront collées à partir de la première ligne qui ne contient pas de données"]
[]
[null,"Exercice 5-","DefinirZoneImpression","Sur la feuille 'ListeGlobale', définissez une zone d'impression qui s'adaptera aux données contenues sur la feuille"]
[]
[null,"Exercice 6-","ReducClient","Créer une fonction qui permettra d'attribuer un taux de réduction à valoir sur toutes les factures clients"]
[]
[null,null,null,null,"Selon ceci :","=> 10 % pour les clients de 1000 Bruxelles"]
[null,null,null,null,null,"=> 20 % pour les clients de 1030 Bruxelles"]
[null,null,null,null,null,"=> 30 % pour les autres clients"]
[]
[null,"Exercice 7-","EnregistrerPdf","Exécuter la procédure 'DéfinirZoneImpression"]
[null,null,null,"Enregistrer la feuille sous ListeGlobale.pdf dans le sous-dossier 'Mes Clients' se trouvant dans le dossier courant"]

{"sheet":"Liste1","index":1,"n_rows":9,"n_cols":9,"rows_kept":9,"cut":false,"hidden":false,"merged":[]}
["Nom","Prénom","CP","Ville","Sexe"]
["Deuf","John",1000,"Bruxelles","m"]
["Culaire","Laury",1030,"Schaerbeek","f",null,"Exercice 1-","Nom de la maco :","Ouvrir_Liste1"]
["Tredelè","Willy",1030,"Schaerbeek","M"]
["Faim","Roger",1000,"Bruxelles","m",null,null,"Description :","Sur la feuille 'Liste1', récupérer les données du classeur 'Liste1' en utilisant l'enregistreur de macros"]
[]
[null,null,null,null,null,null,null,"Consignes :","=> Ceci se fera en ouvrant le classeur 'Liste1' et en copiant / collant les données du classeur sur la bonne feuille"]
[null,null,null,null,null,null,null,null,"=> La sélection des données sur 'Liste1.xlsx' se fera en utilisant l'instruction Selection.End(xlDown) et Selection.End(xlToRight)"]
[null,null,null,null,null,null,null,null,"=> Ajouter un bouton de type 'formulaire' pour exécuter la macro"]

{"sheet":"Liste2","index":2,"n_rows":12,"n_cols":9,"rows_kept":12,"cut":false,"hidden":false,"merged":[]}
["Nom","Prénom","CP","Ville","Sexe"]
["Lalala","Strasky",1050,"Ixelles","m"]
["Lalala","Hutch",1050,"Ixelles","m",null,"Exercice 2-","Nom de la maco :","Ouvrir_Liste2"]
["Tredelè","Willy",1030,"Schaerbeek","m"]
["Lenti","Sara",1030,"Schaerbeek","F",null,null,"Description :","Recopier la procédure 'Ouvrir_Liste1' et adaptez-la pour les données qui concernent 'Liste2'"]
[]
[null,null,null,null,null,null,null,"Consignes :","=> Adapter la procédure de façon à faire en sorte que le fichier ouvert provienne du dossier actif (et non à partir d'un dossier dont le chemin est précisé directement, comme par exemple c:\\...)"]
[null,null,null,null,null,null,null,null,"=> Le nom du dossier courant sera \"enregistré\" dans une variable RepCourant. Le chemin et le nom du fichier à ouvrrir seront \"enregistrés\" dans une variable \"NomFic\""]
[null,null,null,null,null,null,null,null,"=> Les variables seront affichées dans la fenêtre d'exécution"]
[null,null,null,null,null,null,null,null,"=> Les données de 'Liste2.xlsx' seront sélectionnées en plaçant les lignes de début et de fin dans des variables LigneDebut et LigneFin et les colonnes de début et de fin dans des variables ColonneDebut et ColonneFin"]
[null,null,null,null,null,null,null,null,"=> La sélection de la plage se fera selon cette instruction : Range(Cells(LigneDebut,ColonneDebut),Cells(LigneFin,ColonneFin).Select"]
[null,null,null,null,null,null,null,null,"=> Ajouter un bouton de type 'ActiveX' pour exécuter la macro"]

{"sheet":"Liste globale","index":3,"n_rows":82,"n_cols":13,"rows_kept":82,"cut":false,"hidden":false,"merged":[]}
["Nom","Prénom","CP","Ville","Sexe","Réduction client",null,null,"Exercice 3-",null,"Exercice 6-"]
[null,null,null,null,null,null,null,null,"Exercice 4-",null,"Exercice 7-"]
[null,null,null,null,null,null,null,null,"Exercice 5-"]
[]
[]
[]
[null,null,null,null,null,null,null,null,"Exercice 3-","Nom de la macro :","Récup_Liste1"]
[]
[null,null,null,null,null,null,null,null,null,"Description :","Sur la feuille 'ListeGlobale', récupérez les données de la feuille 'Liste1'"]
[null,null,null,null,null,null,null,null,null,null,"Ceci se fera via un copier / coller mais la sélection des données se fera dans la procédure (et non via une manipulation de souris)"]
[null,null,null,null,null,null,null,null,null,null,"Les données seront collées à partir de 'A2'"]
[]
[null,null,null,null,null,null,null,null,null,"Consignes :","=> Les propriétés de l'objet Range (xlEnd et xlToRight) seront utilisées pour sélectionner la plage qui contient des données"]
[]
[null,null,null,null,null,null,null,null,null,"Pour débuter :","' Sélection de la plage à imprimer"]
[null,null,null,null,null,null,null,null,null,null,"Range(\"A2\").Select"]
[null,null,null,null,null,null,null,null,null,null,"Debut = ActiveCell.Address"]
[null,null,null,null,null,null,null,null,null,null,"Range(Selection.End(xlDown).Address).Select"]
[null,null,null,null,null,null,null,null,null,null,"Fin = ActiveCell.Address"]
[null,null,null,null,null,null,null,null,null,null,"Range(Debut, Fin).Select"]
[]
[null,null,null,null,null,null,null,null,null,null,"' Copier / Coller en VBA"]
[null,null,null,null,null,null,null,null,null,null,"Selection.Copy"]
[null,null,null,null,null,null,null,null,null,null,"'Se positionner sur la feuille 'Liste globale' en 'A2' puis coller avec l'instruction suivante"]
[null,null,null,null,null,null,null,null,null,null,"Activesheet.Paste"]
[]
[]
[null,null,null,null,null,null,null,null,"Exercice 4-","Nom de la macro :","Récup_Liste2"]
[]
[null,null,null,null,null,null,null,null,null,"Description :","Sur la feuille 'ListeGlobale', récupérez les données de la feuille 'Liste2'"]
[null,null,null,null,null,null,null,null,null,null,"Ceci se fera via un copier / coller mais la sélection des données se fera dans la procédure (et non via une manipulation de souris)"]
[null,null,null,null,null,null,null,null,null,null,"Les données seront collées à partir de la première ligne qui ne contient pas de données"]
[]
[null,null,null,null,null,null,null,null,null,"Consignes :","=> Les boucles 'Do while' ou 'Do Until' seront utilisées pour sélectionner la plage qui contient des données"]
[]
[null,null,null,null,null,null,null,null,null,"Pour débuter :","' Sélection de la plage à imprimer"]
[null,null,null,null,null,null,null,null,null,null,"Range(\"A2\").Select"]
[null,null,null,null,null,null,null,null,null,null,"Debut = ActiveCell.Address"]
[]
[null,null,null,null,null,null,null,null,null,null,"' Se placer dans la dernière cellule qui contient quelque chose avec une boucle Do Until … Loop (ou Do While .. Loop)"]
[null,null,null,null,null,null,null,null,null,null,"…"]
[null,null,null,null,null,null,null,null,null,null,"Fin = ActiveCell.Address"]
[]
[null,null,null,null,null,null,null,null,null,null,"Range(Debut, Fin).Select"]
[]
[null,null,null,null,null,null,null,null,null,null,"' Se placer dans la première cellule vide de la colonne A et coller les données"]
[]
[]
[]
[]
[null,null,null,null,null,null,null,null,"Exercice 5-","Nom de la macro :","DefinirZoneImpression"]
[]
[null,null,null,null,null,null,null,null,null,"Description :","Sur la feuille 'ListeGlobale', définissez une zone d'impression qui s'adaptera aux données contenues sur la feuille"]
[]
[null,null,null,null,null,null,null,null,null,"Consignes :","=> Les boucles 'Do while' ou 'Do Until' OU propriétés End de l'objet Range"]
[]
[null,null,null,null,null,null,null,null,null,"Pour débuter :","' Définir ne zone d'impression en VBA"]
[null,null,null,null,null,null,null,null,null,null,"ActiveSheet.PageSetup.PrintArea = debut & \":\" & fin"]
[]
[]
[null,null,null,null,null,null,null,null,"Exercice 6-","Nom de la fonction :","ReducClient"]
[]
[null,null,null,null,null,null,null,null,null,"Description :","Créer une fonction qui permettra d'attribuer un taux de réduction à valoir sur toutes les factures clients"]
[]
[null,null,null,null,null,null,null,null,null,null,null,"Selon ceci :","=> 10 % pour les clients de 1000 Bruxelles"]
[null,null,null,null,null,null,null,null,null,null,null,null,"=> 20 % pour les clients de 1030 Bruxelles"]
[null,null,null,null,null,null,null,null,null,null,null,null,"=> 30 % pour les autres clients"]
[]
[null,null,null,null,null,null,null,null,null,"Consignes :","Utiliser l'instruction 'Select Case'"]
[]
[null,null,null,null,null,null,null,null,null,"Pour débuter :","Select Case CP"]
[null,null,null,null,null,null,null,null,null,null,"      Case 1000"]
[null,null,null,null,null,null,null,null,null,null,"      …."]
[null,null,null,null,null,null,null,null,null,null,"End Select"]
[]
[]
[null,null,null,null,null,null,null,null,"Exercice 7-","Nom de la macro :","EnregistrerPdf"]
[]
[null,null,null,null,null,null,null,null,null,"Description :","Exécuter la procédure 'DéfinirZoneImpression"]
[null,null,null,null,null,null,null,null,null,null,"Enregistrer la feuille sous ListeGlobale.pdf dans le sous-dossier 'Mes Clients' se trouvant dans le dossier courant"]
[]
[null,null,null,null,null,null,null,null,null,"Consignes :","Utilisez l'enregistreur et adaptez le code"]