bambi
XLDnaute Occasionnel
Bonjour
J'ai adapté une macro de surlignage trouvée sur ce forum
Le surlignage est actif sur la ligne selectionnée afin de la mettre en valeur
Je surligne de la ligne 23 à la colonne 40
Mais j'ai des données formatées au-dessus de la ligne 23
Et cette macro supprime TOUT le formatage de la feuille
Est-il possible de conserver la mise en forme au dessus de la ligne 23 ?
Voici ma macro et un classeur exemple
Merci de votre aide
J'ai adapté une macro de surlignage trouvée sur ce forum
Le surlignage est actif sur la ligne selectionnée afin de la mettre en valeur
Je surligne de la ligne 23 à la colonne 40
Mais j'ai des données formatées au-dessus de la ligne 23
Et cette macro supprime TOUT le formatage de la feuille
Est-il possible de conserver la mise en forme au dessus de la ligne 23 ?
Voici ma macro et un classeur exemple
Merci de votre aide
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
If Target.Row < 23 Or Target.Column > 41 Then Exit Sub
If ActivationLigne Then Exit Sub
If Target.Count > 1 Then Exit Sub
If AncAdress <> 0 Then 'remettre en normal
Rows.Interior.ColorIndex = xlNone
Rows.Font.ColorIndex = 0
End If
Range(Cells(Target.Row, 1), Cells(Target.Row, 40)).Font.ColorIndex = 1
Range(Cells(Target.Row, 1), Cells(Target.Row, 40)).Interior.ColorIndex = 19
Range(Cells(Target.Row, 1), Cells(Target.Row, 40)).Interior.Pattern = xlSolid
AncAdress = Target.Row
End Sub