Fonction avec boucle pour multiplier deux variables

Bonjour à tous !

Je viens chercher de l'aide ici car j'aime créer une fonction permettant de faire la chose suivante : j'ai deux colonnes avec des données ( col A et col B avec des taux dans chaque colonnes)
et je souhaite multiplier A1 * B1 + A2 * B2 + ... + A7*B7.

Je ne sais pas comment faire pour boucler ça ...

N'arrivant pas à faire une fonction, j'ai tester:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Function Rentabilite(Renta As Double, Poids As Double) Dim i As Long Dim j As Long Renta = Cells(i, 1) Poids = Cells(1, j) For i = 1 To 2 For j = 1 To 2 Rentabilite = Renta * Poids Next j Next i End Function
Cela ne fonctionne pas ...

Merci à vous

Citation:

Envoyé par VBANoJutsu

Bonjour,

???
C'est donné directement par la fonction SOMMEPROD.

Sinon :
Code:

1 2 3 4 Function Rentabilite(ByVal AireRentabilite As Range, ByVal AirePoids As Range) As Double Rentabilite = WorksheetFunction.SumProduct(AireRentabilite, AirePoids) End Function

Citation:

Envoyé par Eric KERGRESSE

C'est donné directement par la fonction SOMMEPROD.

Autre solution : une formule matricielle =SOMME(A1:A7*B1:B7) à valider avec Ctrl+Shift+Entrée

En VBA, il faut passer par FormulaArray : https://docs.microsoft.com/fr-fr/off...ectedfrom=MSDN

Citation:

Envoyé par Menhir

Salut Menhir,

Pour avoir testé avant de mettre en ligne, ma fonction donne aussi la bonne valeur.

Bonjour Eric

Citation:

Envoyé par Eric KERGRESSE

Pour avoir testé avant de mettre en ligne, ma fonction donne aussi la bonne valeur.

Je n'en doute pas.
C'est pourquoi j'ai écris dans mon message "autre solution" : c'est ni mieux ni pire, simplement une autre approche.

Cela dit, d'un point de vue personnelle, une formule aussi bien avec SOMMEPROD que fonction matricielle me semble si simple que je ne vois pas l'intérêt d'une fonction VBA.

Bonjour à tous et merci pour votre aide !

Effectivement Eric cela fonctionne très bien mais le professeur qui m'a donné cet exercice m'a dit de le faire avec un boucle, c'est pour ça que j"étais bloqué.
Moi j'ai testé avec deux valeurs , lui il veut qu'on boucle sur 7 valeurs , il nous a dit de partir sur un i=1 to 7 (en gros 7 valeurs colonne A et pareil en B)

Est-ce possible ?

Merci à tous

Citation:
Envoyé par VBANoJutsu
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Function Rentabilite(Renta As Double, Poids As Double) Dim i As Long Dim j As Long Renta = Cells(i, 1) Poids = Cells(1, j) For i = 1 To 2 For j = 1 To 2 Rentabilite = Renta * Poids Next j Next i End Function
Les référence de tes cellules doivent être à l'intérieur des boucles For To.
De plus, à chaque tour, il faut ajouter le résultat de la multiplication à la valeur précédente.

Bonjour Menhir , la première fonction que j'ai fait été relativement similaire , j'ai repris ton code mais quand je tape la fonction et valide la cellule m'affiche #VALEUR

Je lance la fonction , select A1 , B1 en arguments et cela me renvoi valeur ..

Citation:

Envoyé par VBANoJutsu

j'ai repris ton code

Ce n'est pas mon code, c'est le tien.
Je te l'ai pas modifier, je t'ai juste signalé ce qui est à modifier. Je t'aide à faire ton devoir mais c'est à toi de le faire.

J'ajouterai aux deux commentaire que j'ai déjà fait, que la fonction elle-même aussi a un type qui doit être déclaré (comme les paramètres et les variables).

Ha d'accord , je me disais aussi lol !

J'ai essayé d'améliorer , j'ai un résultat mais toujours pas le bon !

Voila mon nouveau code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Function Rent(Renta As Double, Poids As Double) As Double Dim i As Long Dim j As Long For i = 1 To 3 For j = 1 To 3 Renta = Cells(i, 1) Poids = Cells(1, j) Rent = WorksheetFunction.Sum(Renta, Poids) Next j Next i End Function
J'ai les valeurs suivantes partant de A1 à A3: 14%,6%,5%
et de B1 à B3 : 70%,20%,10%
Je devrais obtenir 0.115 or mon code me donne 0.148

Si quelqu'un peut me corriger

EDIT : Voila Menhir après correction , j'abouti à cela , je trouve le bon résultat , peux-tu me confirmer que c'est bon ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Function Try(Renta As Double, Poids As Double) As Double Dim i As Long Dim j As Long For i = 1 To 3 Renta = Cells(i, 1) Poids = Cells(i, 2) Try = Try + Renta * Poids Next i End Function

Citation:

Envoyé par VBANoJutsu

je trouve le bon résultat , peux-tu me confirmer que c'est bon ?

Bin... la réponse est dans la question, non ? ;)

En fait, il y a un gros défaut : tu transmets à la fonction deux paramètres mais tu ne les utilises pas.
Je ne sais pas exactement ce que tu mets comme paramètrea à l'usage de la fonction mais comme Renta et Poids sont affectés avant d'être scrutés, ces paramètres sont écrasés avant d'être utilisés.
Tel que tu as écrit la macro, ces paramètres ne sont donc pas fonctionnels.

Et en tant que variables, on pourrait s'en passer et mettre directement les Cells dans l'opération.