bordures

[nanardrustrel]

Bonsoir à tous.
Voici mon pb: j'aimerai pouvoir mettre des bordures sur un tableau dont le nombre de lignes peut varier de 1 à N. Le nombre de colonnes lui est fixé à 30.
Les bordures extéieures sont en gras (xlthick) et continu (Xlcontinuous). Celles interieures seront XlThin et XlContinuous.
Je ne sais comment gérer le traçage de ces bordures en vba sachaat que ( je me répète ) le nombre de lignes varie.
Merci par avance de votre aide.

 

[pat1545.]

Salut,

je te laisse le soin pour les bordures mais pour la zone variable en hauteur:
(si la colonne A est bien remplie)

Dim Last As Integer
Last = Range('A65000').End(xlUp).Row
Range('A1:AD' & Last).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Patrick

 

[Robert]

Bonsoir Nanard, bonsoir le forum.

Si par exemple ton tableau commence en A1 et qu'il n'y a pas de rupture (ligne entière ou colonne entière vierge) entre toutes les données, tu peux faire :

With Range('A1').CurrentRegion
...tes bordures
End With

Si ton tableau contient toutes les cellules éditées :

With UsedRange
...tes bordures
End With

Sinon il faudrait nous dire au moins la colonne du début, la colonne de fin et la colonne qui est obligatoirement renseignée. Si c'est pas trop de demander bien sûr... Lol !

Édition :
Bonsoir Patrick, on sést croisés.

Message édité par: Robert, à: 11/03/2006 20:40

 

[pat1545.]

Bonsoir Robert,

oui je constate, ça arrive de temps à autre, les memes sujets nous intéressent, lolll

Bon week !!!

 

[nanardrustrel]

Bonsoir
En effet j'ai oublié de préciser que mon tableau commencait en A1 pour finir sur la colonne AC avec un nombre de ligne variable au fil du temps. il m'interesse d'avoir une bordure infezrieure sur toutes lignes situées dans ce tableau.
Merci d'avance