Bonjour ,
Je suis débutant sous VBA.Je voudrai utiliser sommeprod pour faire un produit scalaire.En effet j'ai un vecteur sur une feuille et un tableau sur une autre feuille je voudrai faire le produit scalaire du vecteur avec chaque colonne du tableau et récupérer le résultat sur une autre feuille.
Voici le code que j'ai tenté desesperement:
Donc j'affiche le résultat dans la feuille "TXSRGB", le vecteur est dans la feuille "besoin " et la boucle mpe permettrai de balayer les colonnes du tableau.
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
18 Sub troitab() Dim resultat As Worksheet, TXSRGB As Worksheet, besoin As Worksheet, effet Dim tableau As Variant Set resultat = ThisWorkbook.Worksheets("resultat") Set besoin = ThisWorkbook.Worksheets("besoin") Set TXSRGB = ThisWorkbook.Worksheets("TXSRGB") Set effet = ThisWorkbook.Worksheets("effet") tableau = effet.Range("D96:J119") i = 1 Do TXSRGB.Range("I" & i).FormulaLocal = "=sommeprod(besoin.Range(B243:B266), tableau.colums(i) )" i = i + 1 Loop While i < 8 End Sub
Je compte sur vous, Merci d'avance
Partager