Private Sub Worksheet_SelectionChange

Bonjour
SVP j’aimerais bien savoir comment faire une macro qui me permettre de sélectionner la range (« a20 ») lorsque je quitte range (« C4 »).
J’ai essayé avec

Code:

---

1 2	Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub

---

Mais ça ne marche pas
Merci

tu peux essayer ça
c'est pas très élégant mais ça fonctionne

Code:

---

1 2 3 4 5 6 7

Public u2 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not u2 = "" Then Range(u2).Select u1 = Target.Address If u1 = Range("c4").Address Then u2 = Range("A20").Address Else u2 = "" End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static CelC4 As String   If CelC4 = "$C$4" Then CelC4 = "" Range("A20").Select ElseIf Target.Address = "$C$4" Then CelC4 = Target.Address End If End Sub

---

Merci messieurs ça marche pour les deux prépositions
Merci beaucoup