Multiplication avec deux boucles

Version imprimable

29/03/2013, 17h44
balistobalise

Multiplication avec deux boucles

Bonjour,

Je suis entrain de travailler sur vba et je me retrouve avec une colle.
Mon souci est le suivant:

J'ai une feuille qui à une colonne avec des valeur en pourcentage.
Dans une autre feuille j'ai des valeurs historiques de plusieurs titres en ligne. Les titres sont eux en colonne.

Ce que je désire c'est pour chacun des titres je multiplie par le pourcentage de la première feuille chaque jours et de chaque titre. Et en faire la moyenne.

Si je schématise :

jours 1 : %1 * titre1 + %2 * titre2+...
jours 2 : %1 * titre1 + %2 * titre2+...
jours 3 : %1 * titre1 + %2 * titre2+...
...

à la fin je fais la moyenne de l'ensemble.

Ce que j'avais pensé c'était d'utilisé deux boucles for avec une variable x et y mais je ne sais pas trop comment m'y prendre.

Merci d'avance pour votre aide.
30/03/2013, 13h30
Daniel.C

Bonjour,

Est-ce que tu pourrais donner un exemple avec des nombres ?
31/03/2013, 15h48
balistobalise

1 pièce(s) jointe(s)
Je te montre le fichier.

J'ai mis les résultat attendu avec les formules excel.

J'avais essayé comme code :
Code:

1 2 3 4 5 6 For y = 1 To 345 For i = 1 To range("a1").Value total = total + Cells(i + 2, 6).Value * Cells(y + 1, i+12).Value Cells(y + 2, 8).Value = total Next i Next y
Mon problème c'est que quand je fais cette procédure il m'additionne à chaque fois aussi les précédentes.

Ce que je voudrais c'est que dans la colonne h il y a les rendement pour chaque jours avec la pondération pour chaque titres. et dans la cellule i3 j'aimerais faire la moyenne des résultats de la colonne h
31/03/2013, 16h03
mercatog

Sans vba

En H2, tu mets la formule matricielle (à valider par Ctrl Shift Enter)

Code:

=SOMMEPROD($F$3:$F$15;TRANSPOSE($L2:$X2))

Tu tire la formule vers le bas

Bien sur la disposition des titres doivent correspondre entre lignes et colonnes comme c'est le cas sur ton fichier

merci mercatog même si c'est pas du vba, je me suis inspiré de ce que tu m'as dis et j'ai essayé de faire une boucle différente la voici :
Code:

1 2 3 4 5 For i = 1 To 200 Transpose = Application.WorksheetFunction.Transpose(range("l2:x2")) Worksheets("Feuil2").Cells(i + 2, 12).Value = WorksheetFunction.SumProduct(.range("F3:f15").Value, Transpose) Next i
Cela marche mais seulement pour 1, j'aimerais que

Code:

range("l2:x2")

et

Code:

range("F3:f15")

soit remplacé par un i pouvoir faire les autre jours aussi.

Ici une autre approche (utilisation des formules Excel par vba)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Test() Dim Moy As Double Application.ScreenUpdating = False With Worksheets("Feuil1") .Range("G2").FormulaArray = "=SUMPRODUCT($F$3:$F$15,TRANSPOSE(L2:X2))" .Range("G2").AutoFill .Range("G2:G345") With .Range("G2:G345") .Value = .Value Moy = Application.Average(.Value) .ClearContents End With .Range("G1") = Moy End With End Sub
La moyenne est inscrite en G1, le formules en G2:G345 et ensuite effacées.
Si tu désires garder les formules, il suffit de supprimer la ligne 11 du code

31/03/2013, 17h34
balistobalise

merci beaucoup.

mais comment je pourrais renommer "($F$3:$F$15,TRANSPOSE(L2:X2)" si maintenant je voudrais avoir la possiblité de changer le nombre de titre ?

Dans cette exemple il'y en avait 13 mais si maintenant j'ai seulement 4 ou bien 20.
31/03/2013, 18h38
mercatog

C'est possible, il suffit de décrire la disposition de ton fichier d'une façon plus générale et de faire ressortir les paramètres changeants et ceux fixes?

Exemple, tes titres sont toujours en B3:Bxx où xx variable, et de la colonne L jusqu'à la colonne YY variable

Tes statistiques s'arrêtent toujours en ligne 345 ou variables...

merci mercatog mais cela ne fonctionne pas.

Finalement j'essaye avec la fonction produit mat et j'ai écris ceci :
Code:

1 2 3 4 5 6 7 8 Dim matrice1, matrice2 As range matrice1 = range(Cells(3, 6), Cells(range("a1").Value + 2, 6)) matrice2 = range(Cells(2, 12), Cells(345, range("a1").Value+ 12)) range(Cells(3, 10), Cells(347, 10)).Value = Application.WorksheetFunction.MMult(matrice2, matrice1)
Mais cela bug en me soulignant :

Code:

matrice1 = range(Cells(3, 6), Cells(range("a1").Value + 2, 6))

02/04/2013, 15h34
keygen08

bonjour

Citation:

Dim matrice1, matrice2 As range

Code:

Dim matrice1 as range, matrice2 As range

sinon matrice1 est variant

Le code précédent adapté

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
Dim N As Integer, M As Integer
Dim Moy As Double
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    N = .Cells(.Rows.Count, "B").End(xlUp).Row
    M = .Cells(.Rows.Count, "L").End(xlUp).Row
 
    .Range("G2").FormulaArray = "=SUMPRODUCT($F$3:$F$" & N & ",TRANSPOSE(" & .Range("L2").Resize(1, N - 2).Address(0, 0) & "))"
    .Range("G2").AutoFill .Range("G2:G" & M)
    With .Range("G2:G" & M)
        .Value = .Value
        Moy = Application.Average(.Value)
        '.ClearContents
    End With
    .Range("G1") = Moy
End With
End Sub

02/04/2013, 16h03
Daniel.C

@balistobalise :

Citation:

Mais cela bug en me soulignant :

Code:

matrice1 = range(Cells(3, 6), Cells(range("a1").Value + 2, 6))

Tu dois mettre :

Code:

Set matrice1 = range(Cells(3, 6), Cells(range("a1").Value + 2, 6))

Merci meratog Malheureusement j'obtiens pas les mêmes résultats:(

Par contre j'ai suivi les instructions de keygen08 en nommant les variables "variant" mais cela bug. par contre lorsque j'inscris
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim matrice1, matrice2 As Variant matrice1 = Range("f3:F15") matrice2 = Range("l2:x200") Range(Cells(3, 10), Cells(347, 10)).Value = Application.WorksheetFunction.MMult(matrice2, matrice1) End Sub
Code:

1 2 3 4 5 6 7 8 9 10 11 au lieu de Dim matrice1, matrice2 As Variant matrice1 = Range(Cells(3, 6), Cells(Range("a1").Value + 2, 6)) matrice2 = Range(Cells(2, 12), Cells(345, Range("a1").Value + 12)) Range(Cells(3, 10), Cells(347, 10)).Value = Application.WorksheetFunction.MMult(matrice2, matrice1) End Sub
Pourtant cela veux dire la même chose. Est-ce que vous voyez le problème ?

02/04/2013, 16h17
mercatog

Citation:

Merci meratog Malheureusement j'obtiens pas les mêmes résultats

parce que tu n'as pas adapté le code convenablement à ton vrai fichier
02/04/2013, 16h28
balistobalise

A non tu a raison. Le code marche bien. J'ai uniquement regarder le premier résultat qui m'affiche en faite la moyenne.

Quel boulet je fais merci beaucoup mercatog.

Sinon dernière question et je vous laisse tranquille. Savez-vous pourquoi cela marchait pas ce que j'ai mis dans mon dernier poste ?
02/04/2013, 16h49
keygen08

J'ai ecrit

Code:

Dim matrice1 as range, matrice2 As range

au lieu de Dim matrice1, matrice2 As range ou matrice1 n'etant pas défini, elle devient variant.
Je n'ai pas ecrit qu'il fallait dimensionner les variable sur Variant

Il fallait faire une boucle comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub XX()
Dim Matrice1 As Range, Matrice2 As Range
Dim i As Integer
 
With Feuil1
    Set Matrice1 = .Range("F3:F15")
    For i = 2 To 345
        Set Matrice2 = .Range("L" & i & ":X" & i)
        .Cells(i, 10).Value = Application.WorksheetFunction.MMult(Matrice2, Matrice1)
    Next i
End With
End Sub

02/04/2013, 17h35
balistobalise

Je vous remercie beaucoup.

Meilleures salutations