VBA bordure cellule

Bonjour à tous,

Pour faire une bordure contour d'une cellule, peut-on simplifier ce code ?

Sub Macro1()
    With Selection
        .Borders(xlEdgeTop).Weight = xlMedium    'haut
        .Borders(xlEdgeBottom).Weight = xlMedium 'bas
        .Borders(xlEdgeLeft).Weight = xlMedium   'gauche
        .Borders(xlEdgeRight).Weight = xlMedium  'droite
    End With
End Sub

amicalement

Claude.

Bonjour

A essayer :

With Selection.Borders
.LineStyle = xlMedium  
End With

Amicalement

Nad

Fonctionne pas chez moi sous Excel 2007, j'ai le message :

"Impossible de définir la propriété LineStyle de la classe Borders."

re,

merci Nad, mais j'ai le même message que Hadidman (sous office97)

Claude.

Bonjour,

Tu peux essayer :

Sub Macro1()

With Selection.Borders
    .Weight = xlMedium
End With

Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

End Sub

Les deux dernières lignes permettent d'effacer les lignes intérieures, car le code avec With encadre chaque cellule (et non la sélection, comme dans ta macro).

Je ne sais pas si ce code te paraît "simplifié" par rapport au tien, en tout cas il semble produire le même résultat.

Amicalement,

V_Elbie

Bonjour,

A essayer :

With Selection
.BorderAround Weight:=xlMedium
End With

ou pour une cellule comme tu le demandes

With Activecell
.BorderAround Weight:=xlMedium
End With

Amicalement

Dan

Salut Dan et V_Elbie,

Dan, merci, tes 2 codes sont nickel et + élégants.

N'a-tu pas la même chose pour effacer la bordure, j'ai essayé çà :

'.BorderAround Weight: LineStyle = xlNone
*** ou ***
'.BorderAround Weight:=xlNone

mais sans résultat !

Excuse, j'aurais pu poser la question en même temps.

amicalement

Claude.

Re,

Essaie ceci si tu veux enlever toutes les bordures.

Selection.Borders.LineStyle = xlNone

Amicalement,

V_Elbie

re,

au poil !!

merci forum

à+.... Claude.