Événement Worksheet.Change (Excel)

Se produit quand l'utilisateur ou un lien externe modifie des cellules de la feuille de calcul.

Syntaxe

expression. Modifier (cible)

expression Variable qui représente un objet Feuille de calcul.

Parameters

Valeur renvoyée

Nothing

Remarques

Cet événement ne se produit pas lorsque les cellules sont modifiées pendant un recalcul. Utilisez l’événement Calculate pour intercepter un recalcul de feuille.

Exemple

L'exemple de code suivant modifie en bleu la couleur des cellules modifiées.

Private Sub Worksheet_Change(ByVal Target as Range) 
    Target.Font.ColorIndex = 5 
End Sub

L'exemple de code suivant vérifie, en cas de changement de valeur d'une cellule, si la cellule modifiée figure dans la colonne A, et si la valeur modifiée est supérieure à 100. Dans ce cas, la cellule adjacente dans la colonne B prend la couleur rouge.

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
    If Target.Column = 1 Then 
        ThisRow = Target.Row 
        If Target.Value > 100 Then 
            Range("B" & ThisRow).Interior.ColorIndex = 3 
        Else 
            Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone 
        End If 
    End If 
End Sub

L'exemple de code suivant définit que les valeurs entrées dans la plage A1:A10 doivent s'afficher en majuscules.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    'Set the values to be uppercase
    Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
End Sub

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.