Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

MIse en Forme

Pascalbar

XLDnaute Nouveau
Bonjour,
Je cherche je cherche, mais je ne trouve pas.
J'aimerais en VBA :
A chaque fois que j'applique un contour à un ensemble de cellules, j'aimerais que l'intérieur des cellules soit en discontinue ou en pointillé.

Merci de vos lumières
Pascal
 

natorp

XLDnaute Accro
Re : MIse en Forme

Re:
voilà ce que j'ai obtenu en faisant une macro par l'enregistreur et qui correspond à votre demande :
Code:
Sub Macro1()
    Range("D16").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 0
        .Pattern = xlGray16
        .PatternColorIndex = xlAutomatic
    End With
End Sub

cordialement, Gérard
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…