Combinaison produit somme

Salut,

Tu veux faire ça en VB ? C'est pourtant typiquement du traitement de tableur, ça !
Si c'est pour l'exercice en VB, je vais t'aider (   ). Si c'est le résultat qui compte, je t'envoie en cat' Logiciel et je vais t'y aider à le faire avec des formules (   ).

  je veux faire ça en VB
ecrire un code en vb qui s'execute dans excel qui me calcule bien
(D4*J77+D5*J78+...+D191*J264)/q

selon que je l'ai decrit




j'ai deux feuilles "feuil1" et "feuil2"
dans "feuil2" j'ai une colonne j qui contien des valeurs de J77 a J264
la feuille2 contien des valeurs de D4 a D191 JE veux faire le produit+somme suivant:
(D4*J77+D5*J78+...+D191*J264)/q


,q c'est une valeur deja fixé
et mettre le resultat dans "la cellule H4 de la feuil1".

En math, on écrirait :

__i=0
\   
/     D(i+4) x J(i+77)
¯¯186
________________________
                q

Commence par écrire D(i+4) x J(i+77).
Tips : Je te propose d'utiliser Cells.

Puis, la somme se fera avec une boucle For.

Enfin, on divisera le tout par q.

voila j'ai essayé un code bidon  

Sub calcul()

Dim somme As Double

  somme = 0

 
  For i = 0 To 186

 
  somme = somme + D(i + 4) * J(i + 77)

 
Next i

  Cells(4, 8) = somme / R193C4 , 'ici R193C4=q 

 
End sub

ça ne fonctionne pas comme j'ai fait et puis kes valeurs de J sont dans la feuille 2 je ne sais pas s'il sais les chercher comme ça.?  

Pas mal pour l'ensemble.
Ligne 7, ne t'ai-je pas dit d'utiliser Cells() ?

Lis ces quelques articles :
http://www.presence-pc.com/forum/ppc/Programmation/vous...
http://www.presence-pc.com/forum/ppc/Programmation/tuto... (<-- Dans celui-là, la solution à tes problèmes de feuilles)

Sub calcul()

Dim somme As Double

  somme = 0

 
  For i = 0 To 186

 
  cells(i,8) =  D(i + 4) * J(i + 77)'je ne comprend pas bien cette ligne  :??: 

somme=somme+cells(i,8)

 
Next i

  Cells(4, 8) = somme / R193C4 , 'ici R193C4=q

 
End sub

j'ai lu les articles

je croix que pour faire des copies a l'avenir ne sera plus un trouble pour moi mais utiliser les données des feuilles dans une formule reste un mystere
j'ai une idée pour resoudre mon probleme mais elle n'est pas assez efficace il s'agit d'utiliser workbook->worksheet.. pour faire une copie des donner de la colonne J ENSUITE Faire un produit tout simple ensuite faire la somme mais c'est trop amateur non?  

Mais non. Somme = Somme + .. c'était très bien. C'est D et J qui n'existent pas. C'est une notation "mathématique". Utilise Cells.

Effectivement, si telle cellule n'est pas dans la feuille active du classeur actif, il faut les préciser. Comme tu travailles avec plusieurs feuilles, il faut utiliser la notation Workbook.Worksheet.Cells() (Entre chaque mot, c'est un point, pas une flèche. Nous sommes en VB, pas en C/C++).

EDIT: Le code que tu m'as proposé en privé était plutôt pas mal. Copie-le ici.

voila comment je l'ai ecrit mais il y a une erreur .

sub calcul()

Dim resultat As Double

 
 
  resultat = 0

 
 For i = 4 To 191

 resultat = resultat + (Workbook("classeur1").Worksheet("feuil1").Cells(i, 4) * Workbook("classeur1").Worksheet("feuil2").Cells(i + 73, 10))

 Next i

 resultat = resultat / Range("D193")

 
 Worksheets("Note").Activate

 Cells(4, 8).Select

 ActiveCell = "resultat"   'là je voudrais mettre "resultat" dans la case H4.!!

 
 
 
 
End Sub

merci de ton aide elle m'est precieuse

voila j'ai réecrit mais je tiens a t'indiquer que Worksheet m'indiquait une erreur alors j'ai ecris Worksheets et le resultat est tout bon
sans oublier Next i au lieu de Next
enfin toi tu es un as peu etre qu'on peu faire certaines simplification  


voici le code:

sub calcul()

Dim resultat As Double

  Dim i As Long

 
 
  resultat = 0

 
 For i = 0 To 187

 resultat = resultat + Worksheets("Note").Cells(i + 4, 4).Value * _

                       Worksheets("valobligTF").Cells(i + 77, 10).Value

 
 Next i

 resultat = (resultat / Worksheets("Note").Range("D193").Value)

 Worksheets("Note").Range("H4").Value = resultat

 
 
 End Sub

Oui, je suis un a.   Oups, il manque un S à as   Tout comme il en manquait à Worksheets, désol'. Je suis très satisfait de voir que tu as corrigé de toi-même.

Le i qui suit le Next, c'est un vieil archaïsme, du temps où le Basic n'était pas Visual, et où indentation n'était pas encore inventée. Autant te dire que ça date !

Il est très important, outre le fait que ça marche, que tu ais compris pourquoi  

Ligne 13, tu mets des parenthèses inutiles autour de ton calcul, évite ce genre de chose : les parenthèses ont aussi une signification en programmation, et on peut se retrouver avec de telles manies avec beaucoup trop de parenthèses et ça devient illisible.

Choisis la moins mauvaise des réponse, l topic passera en résolu.

Meilleure réponse sélectionnée par dianbobo.