Public Sub Colore_Me(Couleur As Long)
If Couleur = xlNone _
Then Selection.Interior.ColorIndex = Couleur _
Else Selection.Interior.Color = Couleur
ActiveSheet.Calculate
' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Application.EnableEvents = False ' pour ne pas redéclencher le SelectionChange
Application.Goto Selection.Offset(1, 1).Cells(1) ' déplacement du select
Application.EnableEvents = True ' réactivation des événements
' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
End Sub
(je l'avais oublié celui-la à force de me focaliser sur le simple clic)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([c12:af31], Target) Is Nothing Then
AfficheMenu 1 + (ActiveCell.Column - 3) Mod (Sheets("couleurs").Shapes.Count - 1)
Cancel = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([C12:AF31], Target) Is Nothing Then
Intersect([C12:AF31], Target).Select
AfficheMenu 1 + (Target.Column - 3) Mod (Sheets("couleurs").Shapes.Count - 1)
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([C12:AF31], Target) Is Nothing Then
Cancel = True
Intersect([C12:AF31], Target).Select
AfficheMenu 1 + (Target.Column - 3) Mod (Sheets("couleurs").Shapes.Count - 1)
End If
End Sub