CONSIGNES :
Vous devez réaliser un tableau de saisie des réservations pour le spectacle des petites s'oreilles et insérer les macros permettant la modification rapide de certaines cellules et/ou la mise en forme.
Ligne 1, vous insérez un titre de présentation du tableau
Colonne A afin de bien marquer la rétractation du menu de gauche, sélectionnez la colonne et appliquez une couleur de fond.
F2:H3 , vous insérez un tableau qui prendra en compte l'addition des colonnes et comme sur l'exemple vous utilisez la fonction "mettre sous forme de tableau"
C3:H4, vous insérez un tableau comme sur l'exemple et utilisez la fonction "mettre sous forme de tableau". Vous choisissez la présentation qui vous plait.
Colonne A et B vous insérez 8 formes que vous trouvez depuis le menu Insertion-->Illustrations-->Forme, Rectangle, bords arrondis dans l'exemple. Après la dernière étape, un clic droit sur chaque bouton vous permettra d'affecter la macro correspondante au bouton, dans le format de forme vous pourrez aligner les formes pour une présentation parfaite
Via le menu développeur, vous insérez les macros.
Menu développeur-->Macro-->Ajouter précisément le nom de la macro-->Créer-->Copier coller le code
Code macro Ajouter Ligne
Cette macro permet d'ajouter une ligne en haut de votre tableau en 1 clic, rapide et efficace.
Sub AjouterLigne()
Range("C4").Select
Selection.ListObject.ListRows.Add (1)
End Sub
Code macro Date Jour
Ce code permet d'insérer la date du jour dans la cellule active.
Sub DateJour()
Dim laDate As Date
ActiveCell.Value = Date
Debug.Print laDate
End Sub
Code macro Majuscule
Ce code permet de transformer le contenu d'une cellule en MAJUSCULE
Sub Majuscule()
For Each cell In Selection
cell.Value = UCase(cell.Value)
Next cell
End Sub
Code macro 1ère Lettre Majuscule
Ce code permet de modifier la première lettre en majuscule du contenu d'une cellule.
Sub NomPropre()
For Each cell In Selection
cell.Value = StrConv(cell.Value, vbProperCase)
Next cell
End Sub
Code Ajouter 1 pour les places adultes et/ou enfant
Ce code permet d'ajouter simplement +1 de la valeur d'une cellule
Sub PlusUn()
ActiveCell.Value = ActiveCell.Value + 1
End Sub
Code Retirer 1 pour les places adultes et/ou enfant
Ce code permet de retrancher simplement -1 de la valeur d'une cellule
Sub MoinsUn()
ActiveCell.Value = ActiveCell.Value - 1
End Sub