Discussion :

[bentor22]

Bonjour.

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

Code :

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

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

[sab_info]

Bonjour,

Essaye de mettre tes conditions entre parenthèses

[bentor22]

C'est à dire ?

[sab_info]

Voilà un exemple:

Code :

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

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 :

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

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

[bentor22]

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

Ta réponse est inutile j'aimerai dire.
Merci quand même.

[NVCfrm]

Bonsoir.

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.