[VBA-E] ecrire une formule en vba

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:

---

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 ? :koi:

Citation:

---

Envoyé par Huubb

..
Qu est ce qui cloche dans ce code ? :koi:

---

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

Ok,

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

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

Citation:

---

Envoyé par fenêtre execution

?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...)
;)

Merci pour le tuyeau ctrl G

Code:

---

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:

---

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 ! :traine:

Hello,

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

Code:

---

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

---

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

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

ben rajoute la ligne :

Code:

---

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...

Aahh ! d accord....

suffisait de virer le R1C1 :oops:

Code:

---

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.