Discussion :

[kookyzzz]

Bonjour, je cherche à tester si une cellule de ma feuille à un cadre (4 cotés) à l'aide d'une fonction qui me renverrai vrai ou faux, mais je n'arrive pas à la faire fonctionner... Si une âme charitable pouvez aimablement m'éclairer ?

Quand je lance ma macro j'ai un message :
" Erreur d'exécution '438' :
Propriété ou méthode non gérée par cet objet

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function aUneBordure(cellule As Range) As Boolean
    Dim resultat As Boolean
    If cellule.Borders(xlEdgeLeft) <> xlNone And cellule.Borders(xlEdgeRight) <> xlNone And _
      cellule.Borders(xlEdgeBottom) <> xlNone And cellule.BorderAround(xlEdgeTop) <> xlNone Then
        MsgBox "cette cellule a un cadre"
        resultat = True
    Else
        resultat = False
    End If
    aUneBordure = resultat
End Function
 
Sub test()
    MsgBox aUneBordure(Range("C6"))
End Sub

Il existe peut être une façon de faire plus simple ?

[Thautheme]

Bonjour Kookyzzz, bonjour le forum,

le problème vient de cellule.BorderAround(xlEdgeTop).
J'aurais plutôt écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function aUneBordure(cellule As Range) As Boolean
Dim TEST As Boolean
 
If cellule.Borders(xlEdgeLeft).LineStyle = xlNone Then TEST = True: GoTo suite
If cellule.Borders(xlEdgeRight).LineStyle = xlNone Then TEST = True: GoTo suite
If cellule.Borders(xlEdgeBottom).LineStyle = xlNone Then TEST = True: GoTo suite
If cellule.Borders(xlEdgeTop).LineStyle = xlNone Then TEST = True
suite:
If TEST = True Then MsgBox "Cette cellule n'a pas de cadre." else MsgBox "Cette cellule a un cadre."
aUneBordure = Not TEST
End Function

[kookyzzz]

Merci Thautheme ca fonctionne nikel