affiner une macro

[bpol]

bonsoir,

j'ai une macro qui pour l'instant me dépanne:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("E11").Value = 1 Then
Macro2
End If

If Range("E11").Value = 2 Then
Macro1
End If
End Sub

comment puis je faire pour qu'elle ne fonctionne que quand la cellule E11 est modifiée

Merci
Bpol

 

[Minick]

Re : affiner une macro

Salut,

Sur l'evenement Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$11" Then
        Select Case Target.Value
            Case 1
                macro2
            Case 2
                macro1
        End Select
    End If
End Sub

(A verifier, je l'ai fais en direct)

 

[bpol]

Re : affiner une macro

RE

impec merci Minick

Bon WE
Bpol