Partager via

Événements de l’objet Worksheet

Les événements survenant sur des feuilles sont activés par défaut. Pour afficher les procédures d'événements pour une feuille, cliquez avec le bouton droit de la souris sur l'onglet de la feuille, puis cliquez sur Code dans le menu contextuel. Sélectionnez l’un des événements suivants dans la zone de liste Procédure .

Les événements de niveau feuille de calcul se produisent lorsqu'une feuille de calcul est activée, lorsque l'utilisateur modifie une cellule d'une feuille de calcul ou lorsqu'un objet PivotTable est modifié. L'exemple suivant montre comment ajuster la taille des colonnes A à F lorsque la feuille de calcul est recalculée.

Private Sub Worksheet_Calculate() 
    Columns("A:F").AutoFit 
End Sub

Certains événements peuvent être utilisés pour remplacer le comportement par défaut de l'application par une action ou pour apporter une petite modification au comportement par défaut. L'exemple suivant montre comment piéger l'événement « clic avec le bouton droit » et comment ajouter un nouvel élément de menu au menu contextuel des cellules B1:B10.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ 
        Cancel As Boolean) 
    For Each icbc In Application.CommandBars("cell").Controls 
        If icbc.Tag = "brccm" Then icbc.Delete 
    Next icbc 
    If Not Application.Intersect(Target, Range("b1:b10")) _ 
            Is Nothing Then 
        With Application.CommandBars("cell").Controls _ 
            .Add(Type:=msoControlButton, before:=6, _ 
                temporary:=True) 
           .Caption = "New Context Menu Item" 
           .OnAction = "MyMacro" 
           .Tag = "brccm" 
        End With 
    End If 
End Sub

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.