XL 2021 Changement couleur position ligne, colonne

[AIXELS]

Bonjour à tous les Amis du Forum.
Je reviens vers vous une fois de plus.
Mon problème qui est le suivant :
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.
Merci pour votre aide.
Bien cordialement.

 

[DoubleZero]

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.

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

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

 

[TooFatBoy]

Bonjour,

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.

Passe ton
thème Excel
en blanc.

 

[AIXELS]

Bonjour,


Passe ton
thème Excel
en blanc.

Bonjour @TooFatBoy
Merci pour ta réponse.
J'avais essayé les différents thèmes, cela reste en gris.
Bien cordialement.

 

[TooFatBoy]

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

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

 

[AIXELS]

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

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

Bonjour @DoubleZero
Merci pour ta réponse.
Ce n'est pas ça que je cherche, voir le fichier joint
où la lettre de la colonne et le chiffre sont en jaune.
Bien cordialement.

 

[AIXELS]

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

Bonjour @TooFatBoy
Merci pour ton aide.
En le mettant sur couleurs, le gris est un plus prononcé.
Mais j'aurais souhaité une couleur qui tranche.
Bien cordialement.

 

[DoubleZero]

Bonjour à toutes et à tous,

Un autre essai en P. J. (si l'aide demandée est comprise).

A bientôt,

 

[TooFatBoy]

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

Oui, j'ai bien compris ce que tu veux, mais je ne sais pas faire ça, et je ne sais même pas si c'est faisable sans passer par un thème Excel (ou peut-être un thème Windows).