Discussion :

[Huubb]

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 ?

[SfJ5Rpw8]

..
Qu est ce qui cloche dans ce code ?

ben déjà c'est pas le bon formula...
Pourquoi autant de propriétés 'Formula' différentes ?

[Huubb]

Ok,

J ai du coup remplacé mon SOMMEPROD par SUMPRODUCT,
mais ca coince toujours !?

[SfJ5Rpw8]

relis le lien en plus de la "langue" qui différentie les formules tu trouvera aussi la méthode d'adressage ... ! R1C1 ou A1

un truc simple pour savoir que mettre dans ton champ formula.. saisie la formule sous excel, place toi sur la cellule contenant la formule, passe dans l'editeur de macro par un ALT F11, puis dans la fenêtre exécution par un CTRL G, puis saisi

?ActiveCell.formula

valide par entrée et observe le résultat...(à comparer à la chaine de caractére que tu génére pour mettre dans ton champ formula...)

[Huubb]

Merci pour le tuyeau ctrl G

Code :

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

1
2
?ActiveCell.formula
=SUMPRODUCT(1*(E6:E110<>0))

Par ailleurs j avais oublie un range avant (ma plage de cellule).Address, alors forcément...
mais je t avoue que je persiste a ne pas comprendre :

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 = "=SUMPRODUCT(1*(" & Range(Cells(6, i), Cells(r, i)).Address & "<>0))"
Next i
End Sub

dans le code : FormulaR1C1, SUMPRODUCT, Address tout est en anglais ca devrait passer !

[cafeine]

Hello,

puisque tu es en FormulaR1C1, autant s'y conformer ...

Code :

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

"=SUMPRODUCT(1*(R6C" & i & ":R" & r & "C" &  i & " <>0))"

[AlainTech]

Sauf que ta formule n'est pas en R1C1...

Edit --> Grillé par cafeine qui, de plus, est plus explicite que moi.

[SfJ5Rpw8]

ben rajoute la ligne :

Code :

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

1
2
3
4
5
 
 
debug.print  "=SUMPRODUCT(1*(" & Range(Cells(6, i), Cells(r, i)).Address & "<>0))"
 
Cells(r + 1, i).FormulaR1C1 = "=SUMPRODUCT(1*(" & Range(Cells(6, i), Cells(r, i)).Address & "<>0))"

Debug.print (c'est la même chose que le ? dans la fenêtre exécution...et)vérifi donc ta chaine de caractére dans la fenêtre exécution...

[Huubb]

Aahh ! d accord....

suffisait de virer le R1C1

Code :

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

Cells(r + 1, i).Formula = "=SUMPRODUCT(1*(" & Range(Cells(6, i), Cells(r, i)).Address & "<>0))"

ou alors d adapter le code en R1C1, comme cafeine l a fait !

voila ce qui se passe quand on apprend betement a partir de l enregistreur de macro sans se pencher sur les tutos...

Merci beaucoup a vous 3
c est vrai que le debug.print est bien pratique.

Bon journée.