Error 1004 - Conditional formating Borders

Version imprimable

Bonjour à tous,

Je tourne en rond depuis un bon moment car le code suivant parfois passe, parfois pas (ce qui rend les choses encore moins compréhensible pour moi).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub MEF() Dim j As Integer Dim MaPlage As Range Dim N As Long For j = 1 To 100 If IsError(ThisWorkbook.Worksheets("Listes").Cells(j + 1, 17)) Then Exit For Set MaPlage = Range("Tous") With MaPlage .FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""""" N = .FormatConditions.Count With .FormatConditions.Item(N).Borders(xlBottom) .LineStyle = xlNone .Color = RGB(230, 230, 256) .LineStyle = xlContinuous .Weight = xlThin End With End With Next j End Sub
A l'execution, error 1004 juste après la ligne 13 - With .FormatConditions.Item(N).Borders(xlBottom)...

Je fouille le web depuis 1 semaine, nada :?

Quelqu'un(e) aurait déjà rencontré le problème ?
Merci d'avance pour votre aide

Bonjour,

au hasard, l'erreur peut, peut-être venir du fait qu'on ne se situe pas sur la bonne feuille, pour assurer ajouter un With :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    For j = 1 To 100
      With ThisWorkbook.Worksheets("Listes")
        If IsError(.Cells(j + 1, 17)) Then Exit For
        Set MaPlage = .Range("Tous")
        With MaPlage
            .FormatConditions.Add Type:=xlExpression, Formula1:="=$D6="""""
            N = .FormatConditions.Count
            With .FormatConditions.Item(N).Borders(xlBottom)
                .LineStyle = xlNone
                .Color = RGB(230, 230, 256)
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
        End With
      End With
    Next j

Mais je dis ça sans conviction,

03/11/2013, 20h31
GymTonic

Merci pour ton intervention, casefayere. En fait le If IsError et le reste ne font pas référence aux mêmes feuilles. J'ai vérifié ce point qui effectivement était important; il semblerait que le problème ne vienne pourtant pas de là.

Je reste perplexe et ne trouve pas d'autre solution pour contourner ce problème :?
08/11/2013, 15h10
GymTonic

Apparemment, les problèmes viennent de tests en version Office 2007.
Dans Excel 2010, il semblerait que tout fonctionne.