Discussion :

[hugo1674]

Bonjour,

je souhaite transcrire une formule excel en VBA mais le résultat obtenu n'est pas celui souhaité.

formule excel :

Code formule :

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

=SOMMEPROD(AA!N:N;AA!K:K)/SOMME(AA!K:K)

formule VBA :

Code :

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

1
2
3
4
Sub pfaf()
Sheets("Recap Auctions").Range("D7").Value = ActiveCell.FormulaR1C1 = "=SUMPRODUCT(AA!C[3],AA!C[7])/SUM(AA!C[7])"
 
End Sub

je souhaite associer à la cellule D7 de la feuille Recap Auctions le résultat du calcul suivant : colonne 3(de la feuille AA)*colonne7(de la feuille AA) / somme colonne 7 (de la feuille AA)

Mais le résultat renvoyé dans la cellule D7 est "FAUX" et non un nombre.

Je ne sais pas si le fait que les colonnes 3 et 7 ne soient pas remplis entièrement (après la ligne 106 il n'y a plus de valeurs) peux faire buguer excel et donc donner ce résultat.

Merci de votre aide.

[Menhir]

formule excel :

Code :

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

=SOMMEPROD(AA!N:N;AA!K:K)/SOMME(AA!K:K)

formule VBA :

Code :

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

Sheets("Recap Auctions").Range("D7").Value = ActiveCell.FormulaR1C1 = "=SUMPRODUCT(AA!C[3],AA!C[7])/SUM(AA!C[7])"

Pourquoi se compliquer la vie ? A moins que ta macro ait une chance de se retrouver sur un PC non francophone, il est plus simple d'écrire :

Code :

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

Sheets("Recap Auctions").Range("D7").FormulaLocal = "=SOMMEPROD(AA!N:N;AA!K:K)/SOMME(AA!K:K)"

Avec ton code, tu obtient FAUX à cause du double =.
Tu demandes à VBA de mettre en D7 le résultat de la comparaison entre la formule contenue dans le cellule active (qui n'est pas forcément D7) et la formule que tu écris, ce qui n'est pas du tout ce que tu souhaites faire si j'ai bien compris.

Pour mettre dans cette cellule la valeur résultant de cette formule, il y a plusieurs méthodes.

La plus simple :

Code :

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

1
2
3
Sheets("Recap Auctions").Range("D7").FormulaLocal = "=SOMMEPROD(AA!N:N;AA!K:K)/SOMME(AA!K:K)"
Sheets("Recap Auctions").Range("D7").Copy
Sheets("Recap Auctions").Range("D7").PasteSpecial(xlPasteValues)

Si tu veux le faire directement :

Code :

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

Sheets("Recap Auctions").Range("D7").Value = WorksheetFunction.SUMPRODUCT(Sheets("AA").Range("N:N"), Sheets("AA").Range("K:K"))/WorksheetFunction.SUM(Sheets("AA").Range("K:K"))

Il est possible aussi de faire la même chose en passant par la méthode Evaluate.
Lire ça : https://docs.microsoft.com/fr-fr/off...ation.evaluate

[78chris]

Bonjour à tous

Attention : SOMMEPROD sur des colonnes entières n'est pas autorisé sur les versions antérieures à 2016 et même au delà c'est déconseillé : les tableaux structurés sont à privilégier avec le VBA associé
https://fauconnier.developpez.com/tu...ux-structures/

[hugo1674]

Au départ j'étais parti sur :

Code :

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

Sheets("Recap Auctions").Range("D7").Value = "=SOMMEPROD(AA!C:C;AA!G:G)/SOMME(AA!G:G)"

Mais voyant que ça ne fonctionnait pas, j'ai utilisé l'enregistreur de macro qui m'a donné ActiveCell.FormulaR1C1 donc j'ai cru bon d'utiliser cela.
Merci pour les explications des erreurs et les différentes manières de résoudre mon problème. Cependant je ne comprends pas à quoi sert :

Code :

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

1
2
Sheets("Recap Auctions").Range("D7").Copy
Sheets("Recap Auctions").Range("D7").PasteSpecial(xlPasteValues)

pouvez vous m'expliquer s'il vous plaît ? Je n'ai pas besoin de l'utiliser puisque cela fonctionne avec seulement la première ligne mais je voudrais bien néanmoins connaître son utilité.

Bonjour Chris,

J'utilise les colonnes entières car je souhaite utiliser le code sur d'autres fichiers excel et que ceux là n'auront très certainement pas le même nombre de ligne donc il m'est plus simple de sélectionner toute la colonne plutôt que de rentrer à chaque fois le nombre de lignes de la colonne.

Il existe peut-être une autre méthode mais je ne la connais pas, si vous en avez une, je suis preneur !

[78chris]

RE

Bonjour Chris,

J'utilise les colonnes entières car je souhaite utiliser le code sur d'autres fichiers excel et que ceux là n'auront très certainement pas le même nombre de ligne donc il m'est plus simple de sélectionner toute la colonne plutôt que de rentrer à chaque fois le nombre de lignes de la colonne.

Il existe peut-être une autre méthode mais je ne la connais pas, si vous en avez une, je suis preneur !

oui les tableaux structurés : je t'ai donné le lien que tu ne sembles pas avoir regardé...

[Menhir]

Merci pour les explications des erreurs et les différentes manières de résoudre mon problème. Cependant je ne comprends pas à quoi sert :

Code :

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

1
2
Sheets("Recap Auctions").Range("D7").Copy
Sheets("Recap Auctions").Range("D7").PasteSpecial(xlPasteValues)

pouvez vous m'expliquer s'il vous plaît ? Je n'ai pas besoin de l'utiliser puisque cela fonctionne avec seulement la première ligne mais je voudrais bien néanmoins connaître son utilité.

Si j'ai bien compris, tu veux que dans la cellule se trouve non pas une formule mais une valeur.
La première ligne du code en trois ligne que j'ai donné place la formule dans la cellule. Excel va donc la calculer.
Les deux autres lignes vont un "Copier/Coller valeur", ce qui va écraser la formule et la remplacer par la valeur.

Si ce que tu souhaites c'est avoir la formule dans la cellule, alors ces deux lignes sont inutiles.
Mais dans ce cas, je ne comprends pas à quoi sert la macro.