bordure

Salut

Sub Macro1()
For Each c In Selection
If c.Borders(xlEdgeTop).LineStyle <> xlNone Then _
MsgBox "bordure haute en " & c.Address
Next
End Sub

a+
rural thierry

"Fredo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 01ae01c46d6a$69a330c0$a501280a@phx.gbl...
Salut à tous

j'aimerai detecter
les cellules qui ont une bordure en haut ?

qui peux m'aider ?

merci

Fredo

Hello,
Pour le fun et parce que j'avais commencé à chercher :

Sub Macro1()
'MPFE à partir d'un Broutard de ru-th
Dim oU As String, quOi As String
For Each c In Selection
If c.Borders(xlEdgeTop).LineStyle <> xlNone Then
oU = oU & c.Address & ","
End If
Next
quOi = Left(oU, Len(oU) - 1)
MsgBox "Bordure haute en " & quOi
Range(quOi).Select
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"ru-th" <ailleurs@nowhere> a écrit dans le message de news:%23R5pUFXbEHA.2408@tk2msftngp13.phx.gbl...

Salut

Sub Macro1()
For Each c In Selection
If c.Borders(xlEdgeTop).LineStyle <> xlNone Then _
MsgBox "bordure haute en " & c.Address
Next
End Sub

a+
rural thierry

"Fredo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 01ae01c46d6a$69a330c0$a501280a@phx.gbl...
Salut à tous

j'aimerai detecter
les cellules qui ont une bordure en haut ?

qui peux m'aider ?

merci

Fredo