XL 2013 colorier cellule avec double click

mapomme à dit:

Bonsoir,

Essayez :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   If Application.Intersect(Target, Range("B3:B5,B7,B9:B10")) Is Nothing Then Exit Sub
   With Target
      ActiveSheet.Unprotect Password:="123"
      If .Offset(, -1) <> "" Then .Interior.ColorIndex = IIf(.Interior.ColorIndex = 6, xlNone, 6)
      ActiveSheet.Protect Password:="123"
   End With
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Bonsoir CGU,
Un essai en PJ avec :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'code qui colore la cellule avec dble click
    If Not Application.Intersect(Target, Range("B3:B5,B7,B9:B10")) Is Nothing Then
        With Target
        ActiveSheet.Unprotect Password:="123"
            If Cells(Target.Row, Target.Column - 1) <> "" Then
                If Selection.Interior.ColorIndex = 6 Then
                    Selection.Interior.ColorIndex = xlNone
                Else
                    Selection.Interior.ColorIndex = 6
                End If
                Cells(Target.Row, Target.Column + 1).Select
            End If
        End With
        ActiveSheet.Protect Password:="123"
    End If
End Sub

Cliquez pour agrandir...