VBA motif cellule

Bonjour à toutes et à tous,

je cherche une VBA qui lorsque je clic dans une cellule, cette cellule devient hachuré (en bleu par exemple) puis avec un nouveau clic elle redeviens normale.

Merci beaucoup

Bonjour,

Une solution avec un double clic

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) With Target.Interior If .Pattern = xlNone Then .Pattern = xlLightDown .PatternColor = 16711680 Else .Pattern = xlNone End If End With End Sub

---

Cordialement.

Bonjour gFZT82, Bonjour fortbelin

Je vais reprendre ton code à l'identique mais il hachure la cellule dès qu'on clic et non pas au double_clic.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target.Interior If .Pattern = xlNone Then .Pattern = xlLightDown .PatternColor = 16711680 Else .Pattern = xlNone End If End With End Sub

---