bordure variable

l'enregistreur de macro donne ceci, tu dois pouvoir en faire (bon) usage :-)

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 16/08/2004 par PAT
'

' il faut etre sur une cellule non vide et il sélectionne alors les cellules
contigues
Selection.CurrentRegion.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.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub


"JJ WEILAND" <Regis@FAX Server> a écrit dans le message de
news:uHoZZ%235gEHA.1392@TK2MSFTNGP11.phx.gbl...

bonjour a tous

wind 98 excel 2000

G un tableau de commande et donc variable avec 15 colonnes ; je voudrais
appliquer un quadrillage (ou encadrer chaque ligne)de celuis ci en vba ou
pas.
j ai essayer avec l enregistreur mais sa rame un peu.
merci

Salut,

Sous réserve d'avoir compris le problème...
En A1:On ton tableau.
Tu veux que les bordures allient jusqu'en bas du tableau et tu ne veux
pas de bordures verticales à l'intérieur.

Première macro (la dernière valeur de la colonne O indique la fin du
tableau) :

Sub Encadrer()
With Range([A1], [O65536].End(xlUp))
.Borders.LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlNone
End With
End Sub

Deuxième solution (la fin du tableau est la cellule remplie la plus
basse de l'une des colonnes de A à O) :

Sub Encadrer2()
Dim i As Integer
Dim l As Integer
For i = 1 To 15
l = WorksheetFunction.Max(l, Cells(65536, i).End(xlUp).Row)
Next
With Range([A1], Cells(l, 15))
.Borders.LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlNone
End With
End Sub


A+
Nicolas B.


JJ WEILAND wrote:

bonjour a tous

wind 98 excel 2000

G un tableau de commande et donc variable avec 15 colonnes ; je voudrais
appliquer un quadrillage (ou encadrer chaque ligne)de celuis ci en vba ou
pas.
j ai essayer avec l enregistreur mais sa rame un peu.
merci