XL 2016 Encadrement en VBA

[gscv]

Bonjour les pros,

j'ai un sujet simple pour vous (En VBA)

j'aurais besoin lorsque je sélectionne une cellule que la ligne ou elle se trouve soit provisoirement souligner et surligne de rouge.

évidement si je sélectionne une cellule d'une autre ligne l'encadrement suit en remettant l'encadrement précèdent comme il était

quelqu'un a une idée ?

en vous remerciant d'avance.

n'hésiter pas à demander si je ne suis pas clair

seb

 

[sylvanu]

Bonjour Gscv,
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    With Cells.Font
        .Color = vbBlack
        .Underline = xlUnderlineStyleNone
    End With
    With Range(Target.Row & ":" & Target.Row).Font
        .Color = vbRed
        .Underline = xlUnderlineStyleSingle
    End With
Fin:
End Sub

Par contre je ne mémorise la mise en forme précédente, je met noir non souligné. Mais je ne touche pas aux encadrements.
Ensuite cette macro générique peut être adaptée ou modifiée sans souci.

 

[gscv]

e je ne mémorise la mise en forme précédente, je met noir non souligné. Mais je ne

Bonjour Gscv,
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    With Cells.Font
        .Color = vbBlack
        .Underline = xlUnderlineStyleNone
    End With
    With Range(Target.Row & ":" & Target.Row).Font
        .Color = vbRed
        .Underline = xlUnderlineStyleSingle
    End With
Fin:
End Sub

Par contre je ne mémorise la mise en forme précédente, je met noir non souligné. Mais je ne touche pas aux encadrements.
Ensuite cette macro générique peut être adaptée ou modifiée sans souci.

Merci pour cette réponse

c'est déjà génial, mon soucie c'est que cela n'a pas d'effet dans les cellules vides .

peut être la même chose mais au lieu du texte en rouge mettre le fond en Gris par exemple

encore merci

 

[sylvanu]

Re,
Souligner une cellule vide ...
Avec cette macro, fond gris, police blanche en gras.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    With Cells
        .Font.Color = vbBlack
        .Font.Underline = xlUnderlineStyleNone
        .Font.Bold = False
        .Interior.Color = xlNone
    End With
    With Range(Target.Row & ":" & Target.Row)
        .Font.Color = vbWhite
        .Font.Underline = xlUnderlineStyleSingle
        .Font.Bold = True
        .Interior.Color = RGB(127, 127, 127)
    End With
Fin:
End Sub