Mise en forme si cellule modifié

Bonjour à tous,

Je souhaite mettre en évidence une cellule qui serait modifié (elle deviendrait rouge par exemple)

Auriez vous une idée s'il vous plait? :)

Serez il possible d'activer et de désactiver cette "mise en forme automatique" ?

Merci beaucoup par avance !!

Bonjour,

Un exemple basique via un bouton d'activation activeX qui sert de garde fou pour l'application ou la désactivation de la MEF :

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    ToggleButton1.BackColor = vbGreen
    ToggleButton1.Caption = "Macro ON"
    Else
    ToggleButton1.BackColor = vbRed
    ToggleButton1.Caption = "Macro OFF"
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If ToggleButton1.Caption = "Macro ON" Then Target.Interior.Color = vbRed
End Sub

Cdlt,

Resalut Ergotamine :)

C'est encore une fois exactement ce qu'il me faut,

Pourrais t'on rajouter des plages de celulles dans la macro? Par exemple Colonne C à D et L et R à S ou autres

Merci à toi

Bonjour,

Dans ce cas placez ce code dans le module de la Feuil1 :

Option Explicit

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    ToggleButton1.BackColor = vbGreen
    ToggleButton1.Caption = "Macro ON"
    Else
    ToggleButton1.BackColor = vbRed
    ToggleButton1.Caption = "Macro OFF"
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Application.Union([C:D], [L:L], [R:S])) Is Nothing Then
    If ToggleButton1.Caption = "Macro ON" Then Target.Interior.Color = vbRed
End If
End Sub

Application.Union permet de définir les plages concernées par l'évènement de la macro, il suffit de les séparer par des virgules, dans une limites de 30 arguments (ici il y en a 3).

Cdlt,

C'est parfait ! !

Merci à toi

Je te souhaite une très bonne fin de soirée