XL 2010 Problème pour encadrer-désencadrer des cellules fusionnées

Magic_Doctor · 2 Mars 2021

Bonsoir,

J'ai 3 cellules fusionnées que j'ai nommées "ZAZA".
"ZAZA" est encadrée. Je veux uniquement enlever l'encadrement à gauche, à droite et en bas.
J'écris ceci :

VB:

Sub Macro1()
    
    With [ZAZA]
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Interior.Color = 16777215  'blanc
    End With
    
End Sub

Résultat : seuls le bord gauche et le bord inférieur de "ZAZA" ont disparu.
Comment s'y prendre pour que les autres bords disparaissent ?

Magic_Doctor · 2 Mars 2021

J'ai trouvé la solution. Donc, problème réglé.

VB:

Sub Macro2()
  
    With [ZAZA].MergeArea
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Interior.Color = 16777215  'blanc
    End With
  
End Sub

Magic_Doctor · 2 Mars 2021

J'ai trouvé la solution. Donc, problème réglé.

VB:

Sub Macro2()
  
    With [ZAZA].MergeArea
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Interior.Color = 16777215  'blanc
    End With
  
End Sub

XL 2010 Problème pour encadrer-désencadrer des cellules fusionnées

Magic_Doctor

XLDnaute Barbatruc

Magic_Doctor

Magic_Doctor

XLDnaute Barbatruc

Discussions similaires