Surligné sur demande

[Kevin57]

Bonjour a tous,

Je me tourne vers vous pour avoir de l'aide. J'ai créé un tableau avec plusieurs nombres, et j'aimerai que quand je vais sur une cellule les 2 titres celui de la ligne et de la colonne se surligne avec d'avoir une meilleur lecture.

Je sais pas si c'est tres claire. Mais si quelqu'un peu m'aider sa serai vraiment sympa.

Merci

 

[vgendron]

Re : Surligné sur demande

Hello
Cf PJ pour exemple et à adapter.

 

[Kevin57]

Re : Surligné sur demande

Bonsoir,

C'est nikel. Merci

 

[job75]

Re : Surligné sur demande

Bonjour Kevin57, vgendron,

Une variante en squattant honteusement le fichier de vgendron :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [B2:F8] 'plage à adapter
  .Interior.ColorIndex = xlNone
  .Font.ColorIndex = xlAutomatic
  If Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
  With Union(.Cells(1, ActiveCell.Column - .Column + 1), _
    .Cells(ActiveCell.Row - .Row + 1, 1))
    .Interior.ColorIndex = 10
    .Font.ColorIndex = 2
  End With
End With
End Sub

A+