Procédures évènementielles

Catégorie : Souris

Publié par veriland le 07-Aug-2013 16:50

Evènements à placer dans un module de Feuille



Option Explicit
'*******************************************************************************
' affiche une boite de dialogue lorsque la feuille est activée
Private Sub Worksheet_Activate()
MsgBox "La Feuil1 est activée"
End Sub

'*******************************************************************************
' affiche une boite de dialogue lors d'un "double clic" sur la cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "Double Clic effectué"
' "Cancel=True" empêche de sélectionner le contenu
Cancel = True
End Sub

'*******************************************************************************
' affiche une boite de dialogue lors d'un "clic droit" sur la cellule
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "Clic droit effectué"
' "Cancel=True" empêche l'affichage du menu "clic droit" traditionnel
Cancel = True
End Sub

'*******************************************************************************
' affiche une boite de dialogue lorsqu'une valeur change dans la cellule active
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "La valeur a changé"
End Sub