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

DJISA · 3 Mai 2021

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 · 16 Mai 2021

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

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

DJISA

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

Discussions similaires