Bonjour a tous,

Au fait je voudrais ecrire une formule en derniere ligne de mon tableau, en dessous de chacune des colonnes, ma formule est

SOMMEPROD(1*(D6 : D110<>0)) (par exemple)

j ai ecrit le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub test()
Dim r As Integer
Dim c As Integer
r = Range("b5").End(xlDown).Row
c = Range("b5").End(xlToRight).Column
For i = 4 To c
Cells(r + 1, i).FormulaR1C1 = "=SOMMEPROD(1*(" & (Cells(6, i), Cells(r, i)).Address & "<>0))"
Next i
End Sub
Qu est ce qui cloche dans ce code ?