Discussion :

[VBANoJutsu]

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 :

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

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

[Invité]

Bonjour,

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

Sinon :

Code :

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

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

[Menhir]

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

[Invité]

Salut Menhir,

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

[Menhir]

Bonjour Eric

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.

[VBANoJutsu]

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

[Menhir]

Code :

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

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.

[VBANoJutsu]

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

[Menhir]

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

[VBANoJutsu]

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 :

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

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 :

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

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

[Menhir]

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.