VBA IF et COUNTIF...

[Fchris]

Bonjour à toutes et tous,

Un petit souci que je n'arrive pas à résoudre.

J'ai la formule suivante :
=SI(NB.SI('Liste TR'!$A$3:$A$67;A2)>0;"X";"")

que je n'arrive pas à traduire en VBA. J'ai écrit le code suivant :

Sheets("TR").Select
der = Range("A1048576").End(xlUp).Row

    For z = 2 To der

        If Application.WorksheetFunction.CountIf(Sheets("Liste TR").Range("A3:A") _
        & Sheets("Liste TR").Range("A" & Rows.Count).End(xlUp).Row, Cells(z, 1)) > 0 Then
        Cells(z, 5).Value = "X"
        End If
    Next z

mais j'ai systématiquement une erreur "erreur définie par l'application ou par l'objet".

C'est très certainement un truc tout bête mais cela m'échappe complètement.

Merci par avance de vos éclairages...

 

[Fchris]

Bonjour à tous,

J'ai enfin réussi à trouver l'origine du problème. Mes variables étaient mal déclarées, tout bêtement...

Voici le code fonctionnel pour ceux que cela peut intéresser :

Sheets("Liste TR").Activate
der2 = Range("A" & Rows.Count).End(xlUp).Row

Sheets("TR").Activate
der = Range("A" & Rows.Count).End(xlUp).Row

For z = 2 To der

If (WorksheetFunction.CountIf(Sheets("Liste tr").Range("A2:A" & der2), Cells(z, 1)) > 0) Then Cells(z, 5).Value = "X"

Next z

Merci à Bruno et Dodo pour leur aide précieuse
A bientôt
Christophe