affiner une macro

bpol · 7 Août 2009

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 · 7 Août 2009

Re : affiner une macro

Salut,

Sur l'evenement Worksheet_Change

Code:

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 · 7 Août 2009

Re : affiner une macro

RE

impec merci Minick

Bon WE
Bpol

affiner une macro

bpol

XLDnaute Impliqué

Minick

XLDnaute Impliqué

bpol

XLDnaute Impliqué

Discussions similaires

affiner une macro

bpol

XLDnaute Impliqué

Minick

XLDnaute Impliqué

bpol

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency