MIse en Forme

Pascalbar · 7 Octobre 2010

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

Re : MIse en Forme

Bjr Pascal,

As-tu essayé l'enregistreur de macro ?

cordialement, Gérard

Pascalbar · 7 Octobre 2010

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

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

MIse en Forme

Pascalbar

Guest

natorp

XLDnaute Barbatruc

Pascalbar

Guest

natorp

XLDnaute Barbatruc

Discussions similaires

MIse en Forme

Pascalbar

Guest

natorp

XLDnaute Barbatruc

Pascalbar

Guest

natorp

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency