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

Matjul

XLDnaute Occasionnel
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:
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
 

Statistiques des forums

Discussions
312 799
Messages
2 092 239
Membres
105 298
dernier inscrit
doudounapnap