Discussion :

[askan]

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 :

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

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

[mercatog]

Code :

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

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)