XL 2021 Changement couleur position ligne, colonne

AIXELS à dit:

Comment modifier la couleur de l'arrière plan de la position
de la lettre des colonnes et du chiffre des lignes pour mieux
visualiser la position.
Sur l'exemple joint entouré le fond est gris.

Cliquez pour agrandir...

Option Explicit
Dim h, w2, t, w
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Code de Gaetan Mourmant : merci !
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
ActiveSheet.Shapes("RectangleH").Delete
On Error GoTo 0
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Line.Weight = 3#
.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
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With
Columns.AutoFit
End Sub

AIXELS à dit:

Comment modifier la couleur de l'arrière plan de la position
de la lettre des colonnes et du chiffre des lignes pour mieux
visualiser la position.

Cliquez pour agrandir...

TooFatBoy à dit:

Bonjour,


Passe ton
thème Excel
en blanc.

Cliquez pour agrandir...

AIXELS à dit:

J'avais essayé les différents thèmes, cela reste en gris.

Cliquez pour agrandir...

DoubleZero à dit:

Bonjour à toutes et à tous,

La macro ci-après, logée dans l'onglet actif, ne répond pas vraiment à la demande mais facilite la visualisation.

A bientôt

Enrichi (BBcode):

Option Explicit
Dim h, w2, t, w
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Code de Gaetan Mourmant : merci !
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
ActiveSheet.Shapes("RectangleH").Delete
On Error GoTo 0
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Line.Weight = 3#
.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
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With
Columns.AutoFit
End Sub

Cliquez pour agrandir...

TooFatBoy à dit:

Oui, ça reste en gris, mais le gris est plus foncé et par rapport au blanc on le voit mieux.

Cliquez pour agrandir...

AIXELS à dit:

En le mettant sur couleurs, le gris est un plus prononcé.
Mais j'aurais souhaité une couleur qui tranche.

Cliquez pour agrandir...