Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Byte
Cancel = True
Cells.Borders.LineStyle = xlNone 'RAZ nécessaire
For i = 7 To 10
Target.Borders(i).Weight = xlThick
Next
End Sub
Bah vous faites ce que vous voulez, c'est jouable si vous utilisez le clic droit toujours à bon escient.dommage qu'il y ai une mise à zéro.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
ActiveSheet.Shapes("Curseur").Visible = True
If Err <> 0 Then
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 6, 6, 8, 6).Name = "curseur"
ActiveSheet.Shapes("Curseur").Fill.Visible = msoFalse
ActiveSheet.Shapes("curseur").Line.Visible = True
ActiveSheet.Shapes("curseur").Line.ForeColor.SchemeColor = 10
ActiveSheet.Shapes("curseur").Line.Weight = 3
End If
ActiveSheet.Shapes("curseur").Left = Target.Left
ActiveSheet.Shapes("curseur").Top = Target.Top
ActiveSheet.Shapes("curseur").Height = Selection.Height
ActiveSheet.Shapes("curseur").Width = Selection.Width
Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Target.BorderAround Weight:=xlThick, ColorIndex:=3
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A6500]) Is Nothing And Target.CountLarge = 1 Then _
Target.Borders.Weight = xlThick
End Sub
Bonjour si...,
Ca n'est valable que pour une cellule unique ta proposition.
eric
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A6500]) Is Nothing Then _
[Plage].Borders.Weight = xlThick
End Sub