XlBordersIndex

[belette]

Bonjour,

Pour la mise en forme des bordures ils existent ces constantes :
xlDiagonalDown
xlDiagonalUp
xlEdgeBottom
xlEdgeLeft
xlEdgeRight
xlEdgeTop
xlInsideHorizontal
xlInsideVertical

à quoi correspondent-elles exactement ?

Merci

 

[PascalXLD]

Bonjour

Elles correspondent à toutes tes bordures

diagonale descendante
diagonale montante
Bordure en bas
Bordure à gauche
Bordure à droite
Bordure en haute
Bordure intérieure horizontale
Bordure intérieure verticale

 

[belette]

D'accord merci, y a-t'il moyen de les associer ?

Pour l'instant j'écris:

With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With

With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With

With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With

Pour faire un cadre (les quatres côtés) ce qui est peu long pour quatre traits !

 

[PascalXLD]

Re

Un peu long en effet mais malheureusement je crains nécessaire

 

[Hervé]

bonjour tout le monde

sinon, il existe la collection borders qui ne représente que les 4 bordures de contour.

With Selection.Borders
        .LineStyle = xlContinuous
        .Weight = xlMedium
End With

salut

 

[belette]

Merci, une fois de plus bien joué Hervé

 

[PascalXLD]

RE

Bon bah on dira que j'avais rien dit ou que c'était mon clone 🙂 🙂 🙂

Message édité par: Pascal76, à: 09/05/2006 11:56

 

[belette]

Merci,
Mais si je prend plusieurs cellule et que je ne veux pas les xlInsideVertical et xlInsideHorizontal...
Je refais ma solution de départ ou bien ?

 

[belette]

Dans le code d'Hervé:

With Selection.Borders
.LineStyle = xlContinuous
.Weight = xlMedium
End With

On ne précise rien et (apparemment) ils prend toutes les bordures par défaut y compris les intérieurs...

 

[Hervé]

re tout le monde

moi aussi, je commence à etre à l'ouest josé.

si tu ne veux pas les bordues interieurs dans le cas de multiselection :

With Selection
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlMedium
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
End With

salut

 

[Hervé]

re

🙂 🙂 🙂


bonne sieste.

salut

 

[ChTi160]

Salut belette
Salut mon Ami Hervé
Salut José(mon Ami aussi) lol
il existe une procèdure qui fait ce que demandela petite belette lol
BorderAround

Pour ajouter une bordure autour d'une plage, aucunes bordures intérieures ne sera mises, utilisez la méthode BorderAround. Cette méthode permet de préciser directement la couleur, le style et la largeur de la bordure. Sa syntaxe est :
MaPlage.BorderAround(LineStyle, Weight, ColorIndex, Color)
Color=La couleur sous forme RGB
Attention ne renseigner qu'un seul des 2 paramètres couleur (ColorIndex ou Color).

Range ('A1:A3').BorderAround xlDashDotDot, xlMedium, 15

bonne fin de journée

Message édité par: Chti160, à: 09/05/2006 16:35