Surligné sur demande

Kevin57

XLDnaute Nouveau
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
 

job75

XLDnaute Barbatruc
Re : Surligné sur demande

Bonjour Kevin57, vgendron,

Une variante en squattant honteusement le fichier de vgendron :

Code:
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+
 

Pièces jointes

  • Kevin Surbrillance(1).xls
    48 KB · Affichages: 28

Discussions similaires

Statistiques des forums

Discussions
312 800
Messages
2 092 238
Membres
105 299
dernier inscrit
doudounapnap