Problème avec conditions multiples

Version imprimable

Bonjour.

Voici ma macro avec un vlookup ou il y a des conditions multiples :

Code:

1
2
3
4
5
6
7
8
9
10
11
With ThisWorkbook.Worksheets("base")
    For i = 0 To .Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row - 1
        If WorksheetFunction.CountIf(Workbooks(str).Worksheets("Asset Management").Range("A1:A5000"), .Range("I6").Offset(i, -8)) > 0 Then
        If Workbooks(str).Worksheets("Asset Management").Range("L1:L2100") = "Retention" Then
            .Range("I6").Offset(i, 0) = WorksheetFunction.VLookup(.Range("I6").Offset(i, -8), Workbooks(str).Worksheets("Asset Management").Range("A1:AZ29701"), 16, False)
        End If
        Else
            .Range("I6").Offset(i, 0) = 0
        End If
    Next i
End With

J'ai un souci sur le code en gras.

Sauriez vous pourquoi?

En vous remerciant par avance,

Bien cordialement

01/03/2013, 16h16
sab_info

Bonjour,

Essaye de mettre tes conditions entre parenthèses
01/03/2013, 16h29
bentor22

C'est à dire ?
01/03/2013, 17h33
sab_info
Voilà un exemple:

Code:

If (IsNull(rs!Notes) = False) And (IsNull(rs!RNotes) = False) And (rs!Notes = True) And (rs!RNotes = True) Then

Et en générale :
Code:

1 2 3 4 5 6 Dim B1 as Boolean, B2 as Boolean, B3 as Boolean, B4 as Boolean B1 = IsNull(rs!Notes) B2 = IsNull(rs!RNotes) B3 = rs!Notes B4 = rs!RNotes If ((B1 = False) And B2 = False) And (B3 And B4) Then
En gros mets tes critères entre parenthèses
01/03/2013, 19h37
bentor22

Désolé mais ça semble une évidence dans mon cas.

Ta réponse est inutile j'aimerai dire.
Merci quand même.
02/03/2013, 00h57
NVCfrm

Bonsoir.

Citation:

J'ai un souci sur le code en gras.

Tu ne peux comparer un objet range renvoyant un plage de plus d'une cellule avec ce code en gras.
Utilise une fonction Worksheet si tu veux CountIf que tu peux comparer avec le nombre de lignes de ta plage.