Discussion :

[fortbelin]

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

[gFZT82]

Bonjour,

Une solution avec un double clic

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[nchal]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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