Fchris
XLDnaute Occasionnel
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 :
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...
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 :
Code:
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...
Dernière édition: