VBA - Détection de modification de cellule

Janvier 2018


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

Publié par lermite222.
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.
Faire rapidement un planning (congé) sur Excel
VBA - RechercheV Polyvalente