surlignage d'une ligne

[Hugues]

Bonjour le Forum,

Je suis entrain d'essayer d'écrire une macro (dans le classeur de macro perso et affecter un bouton dans la barre de menu) qui permettrait de surligner de façon constante une ligne afin de faciliter la saisie (comme si on cliquait sur le N° de ligne mais facon constante tant qu'on n'a pas selectionné une autre ligne).
Voici mon code ; mais il bug :

Sub surlignage()
'surligne la ligne selectionnée afin d'aider à la saisie
With ActiveSheet.Activate
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 37
Application.ScreenUpdating = True
End With

Merci de votre aide,

Hugues

End Sub

 

[Jocelyn]

Bonjour le Forum,
Bonjour Hugues,

si tu change le type de Sub normalement ton code fonctionne

Sub surlignage() devient

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

a priori rien d'autre a changer

Jocelyn

le code est a placer dans le Worksheet,

Message édité par: Jocelyn, à: 16/12/2005 11:09