VBA - Détection de modification de cellule


Exemple pour une MFC avec plus de 3 conditions.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
    For Each Cel In Target
        'Adapter la/les plages. 
        If Not Intersect(Cel, Range("B1:B30,D1:D30")) Is Nothing Then
            Select Case Cel.Value
            Case 5 To 10: Cel.Interior.Color = vbRed
            Case 11 To 20: Cel.Interior.Color = vbGreen
            Case 21 To 30: Cel.Interior.Color = vbBlue
            Case 31 To 50: Cel.Interior.Color = vbYellow
            Case Else: Cel.Interior.ColorIndex = xlNone
            End Select
        End If
    Next Cel
End Sub

Bien entendu il est possible de faire d'autres actions
Cet article est régulièrement mis à jour par des experts sous la
direction de Jean-François Pillou, fondateur de CommentCaMarche
et directeur délégué au développement numérique du groupe Figaro.

A voir également

Ce document intitulé « VBA - Détection de modification de cellule » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.