bonjour à tous,
Malgré mes recherches dans les forums, pourtant très nourris sur le sujet, je n'ai pas trouvé (ou compris) comment réaliser ce que je souhaiterai.
j'ai un classeur de macro personnel qui fonctionne très bien avec tous mes classeurs ouverts par le biais d'un bouton sur mon ruban. cette action reste simple puisqu'elle fait appel à un module.
j'ai aujourd'hui attrapé un bout de code sur internet qui me permet de mettre en surbrillance la ligne que je sélectionne. le code fonctionne bien dans ma feuille de classeur mais j'aimerai qu'il soit applicable à chaque onglet de chaque classeur que j'ouvre. je rencontre des soucis à associer ces lignes de codes à mon classeur perso. où donc pourrais je les positionner afin que tout fonctionne correctement ?
merci de votre aide.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Dans la plage de cellules utilisée ...
With Me.UsedRange.Rows
'... sauf la première ligne
With .Offset(8).Resize(.Count - 1)
' - effacer la couleur
.Interior.ColorIndex = xlNone
' - si la cellule active n'est pas dans cette plage : terminé
If Intersect(Target, .Cells) Is Nothing Then Exit Sub
' - sinon : changer la couleur de la ligne
Intersect(Target.EntireRow, .Cells).Interior.ColorIndex = 4
End With
End With
End Sub
Malgré mes recherches dans les forums, pourtant très nourris sur le sujet, je n'ai pas trouvé (ou compris) comment réaliser ce que je souhaiterai.
j'ai un classeur de macro personnel qui fonctionne très bien avec tous mes classeurs ouverts par le biais d'un bouton sur mon ruban. cette action reste simple puisqu'elle fait appel à un module.
j'ai aujourd'hui attrapé un bout de code sur internet qui me permet de mettre en surbrillance la ligne que je sélectionne. le code fonctionne bien dans ma feuille de classeur mais j'aimerai qu'il soit applicable à chaque onglet de chaque classeur que j'ouvre. je rencontre des soucis à associer ces lignes de codes à mon classeur perso. où donc pourrais je les positionner afin que tout fonctionne correctement ?
merci de votre aide.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Dans la plage de cellules utilisée ...
With Me.UsedRange.Rows
'... sauf la première ligne
With .Offset(8).Resize(.Count - 1)
' - effacer la couleur
.Interior.ColorIndex = xlNone
' - si la cellule active n'est pas dans cette plage : terminé
If Intersect(Target, .Cells) Is Nothing Then Exit Sub
' - sinon : changer la couleur de la ligne
Intersect(Target.EntireRow, .Cells).Interior.ColorIndex = 4
End With
End With
End Sub
