MIse en Forme

[Pascalbar]

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]

Re : MIse en Forme

Bjr Pascal,

As-tu essayé l'enregistreur de macro ?

cordialement, Gérard

 

[Pascalbar]

Re : MIse en Forme

Oui mais cela me vire le contour plein, alors que je voudrais un contour plein et l'intérieur en pointillés

 

[natorp]

Re : MIse en Forme

Re:
voilà ce que j'ai obtenu en faisant une macro par l'enregistreur et qui correspond à votre demande :

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