Detecter la bordure d'une cellule

linked · 9 Juillet 2007

Bonjour,

Je voudrais par macro savoir si une cellule à une bordure (celle du haut) epaisse ou non.J'ai essayé avec

Code:

If ActiveWorkbook.Worksheets(1).Cells(i, colone).Borders(xlTop).Weight = 2

mais ca me renvoie un peu n'importe quoi j'ai l'impression

Orodreth · 9 Juillet 2007

Re : Detecter la bordure d'une cellule

Bonjour linked.

La propriété weight ne fonctionne pas en chiffre.

Code:

Sub BordureCell()
'
' BordureCell Macro
' Macro enregistrée le 09/07/2007 par

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

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

    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
tion.Borders(xlEdgeRight).LineStyle = xlNone
End Sub

J'espère que ça t'aidera.

Cordialement
Thomas

wilfried_42 · 9 Juillet 2007

Re : Detecter la bordure d'une cellule

Bonjour

Voici une petite fonction qui te permettra de connaitre les codes, des diffrents types de cadre
A placer dans un module

Code:

Function bord(plage As Range, gw_t As Byte) As Variant
    Application.Volatile
    Select Case gw_t
    Case 1:   bord = plage.Borders(xlEdgeTop).LineStyle
    Case 2:   bord = plage.Borders(xlEdgeBottom).LineStyle
    Case 3:   bord = plage.Borders(xlEdgeLeft).LineStyle
    Case 4:   bord = plage.Borders(xlEdgeRight).LineStyle
    End Select
End Function

dans une cellule =bord( cellule, type)
type : 1,2,3,4 regarde les cases

Detecter la bordure d'une cellule

linked

Guest

Orodreth

XLDnaute Impliqué

wilfried_42

XLDnaute Barbatruc

Discussions similaires

Detecter la bordure d'une cellule

linked

Guest

Orodreth

XLDnaute Impliqué

wilfried_42

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency