CONSIGNES :
Vous devez réaliser un tableau récapitulatif des réservations pour le spectacle des petites s'oreilles et insérer les macros permettant la modification rapide de certaines cellules.
> Ligne 1, vous insérez un titre de présentation du tableau
> C3:H4, vous insérez un tableau comme sur l'exemple et utilisez "mettre sous forme de tableau" d'accueil. Vous choisissez la présentation qu'il vous plait.
> Vous mettez en place l'addition de la colonne TOTAL
> Colonne A vous insérez 4 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 à chaque bouton. Dans le menu format de forme vous utilisez la focntion "Aligner" 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 vous permet d'ajouter une ligne en début de tableau pour entrer une nouvelle inscription
Sub AjouterLigne()
Range("C4").Select
Selection.ListObject.ListRows.Add (1)
End Sub
Code macro Date Jour
Cette macro vous permet d'insérer la date dans la cellule ative
Sub DateJour()
Dim laDate As Date
ActiveCell.Value = Date
Debug.Print laDate
End Sub
Code macro Majuscule
Cette macro vous permet de mettre le texte 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
Cette macro vous permet de mettre le texte d'une cellule avec la première lettre en majuscule uniquement
Sub NomPropre()
For Each cell In Selection
cell.Value = StrConv(cell.Value, vbProperCase)
Next cell
End Sub
Résultat attendu :
