Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheet_BeforeRightClick Target, False
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([C12:AF31], Target) Is Nothing Then
Cancel = True
With Intersect([C12:AF31], Target)
Intersect(.Cells(1).EntireColumn, .Cells).Select 'seule la 1ère colonne est sélectionnée
End With
AfficheMenu 1 + (Target.Column - 3) Mod (Sheets("couleurs").Shapes.Count - 1)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheet_BeforeRightClick Target, False
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([C12:AF31], Target) Is Nothing Then
Cancel = True
Application.EnableEvents = False
With Intersect([C12:AF31], Target)
Intersect(.Cells(1).EntireColumn, .Cells).Select 'seule la 1ère colonne est sélectionnée
End With
Application.EnableEvents = True
AfficheMenu 1 + (Target.Column - 3) Mod (Sheets("couleurs").Shapes.Count - 1)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheet_BeforeRightClick Target, False
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([C12:AF31], Target) Is Nothing Then
Cancel = True
Application.EnableEvents = False
With Intersect([C12:AF31], Target)
Intersect(.Cells(1).EntireColumn, .Cells).Select 'seule la 1ère colonne est sélectionnée
End With
Application.EnableEvents = True
AfficheMenu 1 + (Selection.Column - 3) Mod (Sheets("couleurs").Shapes.Count - 1)
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
With [C12:AF31]
.ClearContents
.Interior.ColorIndex = xlNone
End With
End Sub