Sélection d'une colonne et d'une ligne avec le survol de la souris

[Matjul]

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:

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 Sub

Merci pour votre aide

 

[Matjul]

Re : Sélection d'une colonne et d'une ligne avec le survol de la souris

Bonjour,
J'ai essayé de remplacer SélectionChance par MouseMove, mais rien n'y fait.
Quelqu'un aurait il une autre solution à me proposer?

Merci