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 Ce document intitulé « VBA - Détection de modification de cellule » issu de CommentCaMarche (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.