Bonjour à tous,
Je possède un tableau avec beaucoup de lignes et de colonnes.
Ainsi afin de me repérer facilement dans ce tableau je tappé un code (que j'ai trouvé sur cet excellent forum) qui dès lors que je sélectionne une cellule toute la ligne et toute la colonne est sélectionnée.
Serait s'il possible de faire la même chose pas simple survol de la souris, sans obligatoirement sélectionner une cellule auparavant?
Voici le code:
Merci pour votre aide
Je possède un tableau avec beaucoup de lignes et de colonnes.
Ainsi afin de me repérer facilement dans ce tableau je tappé un code (que j'ai trouvé sur cet excellent forum) qui dès lors que je sélectionne une cellule toute la ligne et toute la colonne est sélectionnée.
Serait s'il possible de faire la même chose pas simple survol de la souris, sans obligatoirement sélectionner une cellule auparavant?
Voici le code:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Définition des variables
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left
'Teste si les rectangles existent déjà.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete
On Error GoTo 0
'Ajoute les rectangles
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 2#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With
ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name = "RectangleH"
With ActiveSheet.Shapes("RectangleH")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 2#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With
End SubMerci pour votre aide