XL 2016 Encadrement en VBA

gscv · 7 Octobre 2021

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 · 7 Octobre 2021

Bonjour Gscv,
Un essai en PJ avec :

VB:

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 · 7 Octobre 2021

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

sylvanu à dit:
Bonjour Gscv,
Un essai en PJ avec :

VB:

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 · 7 Octobre 2021

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

VB:

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

XL 2016 Encadrement en VBA

gscv

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

gscv

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires