Les évènements
Exercices
Exercice 1
Ecrire une procédure qui affiche "Bonjour !" dans la cellule active avec la police suivante : taille 12, style italique, couleur rouge, à chaque fois que l’utilisateur active la feuille de calcul FEUIL2.
Avant d’écrire cette procédure, il faut se poser plusieurs questions :
identifier l’objet dont on veut traiter l’événement (ici Worksheet) ;
identifier l’événement à traiter dans la liste des événements associés à l’objet considéré (ici Activate) ;
écrire le code VBA approprié dans la procédure associée à l’événement choisi.
Hide
Private Sub Worksheet_Activate()
ActiveCell.Value = "Bonjour"
ActiveCell.Font.Italic = True
ActiveCell.Font.Size = 12
ActiveCell.Font.Color = 255
End Sub
Hide
Exercice 2
Ecrire une procédure qui colorie une cellule en rouge si elle est vide et en bleu sinon à chaque fois que l’utilisateur double clic sur une cellule du classeur. Vous pourrez utiliser la structure de bloc
If (
cf.
chapitre 6).
L'évènement ici est BeforeDoubleClick. Pour vérifier si la case est vide ou non, vous pourrez utiliser la méthode IsEmpty.
Hide
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If IsEmpty(Target) Then
Target.Interior.Color = 255
Else
Target.Interior.Color = 350
End If
End Sub
Hide
Félicitations, vous avez terminé les exercices de ce chapitre.
Vous pouvez passer au chapitre suivant en cliquant sur
ce lien ou sur la flèche droite en dessous. Vous pouvez également retourner sur le chapitre en cours en cliquant sur la flèche gauche.
