Discussion :

[GymTonic]

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 :

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

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

[casefayere]

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 :

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

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,

[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

[GymTonic]

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