Application CountIf VBA

Hello le Forum,

Qq'un pourrait-il m'aider a ce sujet s'il vous plait?

Ou se trouve mon erreur svp car cette ligne de code ne fonctionne pas:

Code:

---

1 2 3 4 5

Dim l As Integer Dim c As Integer   Worksheets("Sheets1").Cells(l, 3) = ((1 + Worksheets("Sheets1").Cells(l, 3)) ^ (12 / Application.WorksheetFunction.CountIf(Worksheets("Sheets2").Range("C2", Range("c2").End(xlToRight)), "<>0")) - 1

---

Merci de votre aide
Askan

Code:

---

Worksheets("Sheets1").Cells(l, 3) = (1 + Worksheets("Sheets1").Cells(l, 3)) ^ (12 / Application.WorksheetFunction.CountIf(Worksheets("Sheets2").Range("C2:" & Worksheets("Sheets1").Range("c2").End(xlToRight).Address(0, 0), "<>0")) - 1)

---