XL 2021 Changement couleur position ligne, colonne

AIXELS

XLDnaute Occasionnel
Supporter XLD
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.
 

Pièces jointes

  • Changement couleur position ligne, colonne.xlsx
    194.8 KB · Affichages: 9
  • Exemple en jaune.jpg
    Exemple en jaune.jpg
    59.4 KB · Affichages: 25
  • 2023-08-16_110130.jpg
    2023-08-16_110130.jpg
    26.6 KB · Affichages: 8

DoubleZero

XLDnaute Barbatruc
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 :):)

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
 

AIXELS

XLDnaute Occasionnel
Supporter XLD
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
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.
 

Pièces jointes

  • Exemple en jaune.jpg
    Exemple en jaune.jpg
    59.4 KB · Affichages: 14

AIXELS

XLDnaute Occasionnel
Supporter XLD
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.
 

Pièces jointes

  • 2023-08-16_110130.jpg
    2023-08-16_110130.jpg
    26.6 KB · Affichages: 9
Dernière édition:

Discussions similaires

Réponses
9
Affichages
203

Statistiques des forums

Discussions
313 274
Messages
2 096 754
Membres
106 739
dernier inscrit
jcdu16