XL 2019 Surligner une ligne non active (protégée)

DJISA

XLDnaute Occasionnel
Bonjour le forum!
Très heureux de vous retrouver après un long bail!
J'ai fait ce code pour surligner la ligne de la cellule active et j'ai un message d'erreur. C'est normal car la feuille est protégée à certains endroits car il y a des formules.
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("_maligne") = ActiveCell.Row
End Sub
Question: Existe-il un moyen de surligner un ligne protégée?

DJISA
 

fanch55

XLDnaute Barbatruc
Bonjour,
A tester , mais vous ne pourrez plus jamais surligner d'autre cellule que celles sélectionnées .
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Me.Unprotect ' (motdepasse)
        Me.Cells.Font.Underline = False
        For Each T In Target
            Me.Rows(T.Row).Font.Underline = True
        Next
    Me.Protect ' (motdepasse)
    
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG