Bonjour,
J'ai quelques petites questions qui me bloquent dans ma macro
- l'écriture de la somme prod/somme semble ne pas fonctionner, j'ai aussi essayé sans le "for" mais je n'arrive pas a écrire correctement les matrices que je veux mettre en arg (Bi;Bk) (Ci:Ck).
- Mon autre problème c'est la boucle while que j'ai voulu créer.
En fait mon tableau est ordonné selon la colonne F (qui comporte des numéro de groupes)
Si je m'intéresse au numéro de group Index, je voudrai que la boucle aille trouver le numéro de la première ligne où apparait ce numéro. Là ma boucle ne compte pas comme il faut, je ne sais pas quand il faut mettre wend ou loop ensuite je sais que la dernière ligne ou apparait ce num est la ligne k.
Merci d'avance de votre aide en tout cas !
et une petite question sur laquelle j'ai tjs un doute,
quand on écrit Tb(i,4) on fait référence à la cellule Di ou je me trompe et il faut décaler les indexations ?
With Sh
Tb = .Range("A" & 1 & ":F" & Nb + 1)
Dim X As Double
Dim Y As Double
Dim i
i = 2
Do While Tb(i, 6) <> Index
i = i + 1
Dim s As Integer
For s = i To k
With Sh
With Application.WorksheetFunction
X = .SumProduct(.Range("B" & s), .Range("C" & s)) / .Sum(.Range("B" & s))
Y = .SumProduct(.Range("B" & s), .Range("D" & s)) / .Sum(.Range("B" & s))
Next
X = 10
Y = 5
End With
End With
'Loop
Merci !
J'ai quelques petites questions qui me bloquent dans ma macro
- l'écriture de la somme prod/somme semble ne pas fonctionner, j'ai aussi essayé sans le "for" mais je n'arrive pas a écrire correctement les matrices que je veux mettre en arg (Bi;Bk) (Ci:Ck).
- Mon autre problème c'est la boucle while que j'ai voulu créer.
En fait mon tableau est ordonné selon la colonne F (qui comporte des numéro de groupes)
Si je m'intéresse au numéro de group Index, je voudrai que la boucle aille trouver le numéro de la première ligne où apparait ce numéro. Là ma boucle ne compte pas comme il faut, je ne sais pas quand il faut mettre wend ou loop ensuite je sais que la dernière ligne ou apparait ce num est la ligne k.
Merci d'avance de votre aide en tout cas !
et une petite question sur laquelle j'ai tjs un doute,
quand on écrit Tb(i,4) on fait référence à la cellule Di ou je me trompe et il faut décaler les indexations ?
With Sh
Tb = .Range("A" & 1 & ":F" & Nb + 1)
Dim X As Double
Dim Y As Double
Dim i
i = 2
Do While Tb(i, 6) <> Index
i = i + 1
Dim s As Integer
For s = i To k
With Sh
With Application.WorksheetFunction
X = .SumProduct(.Range("B" & s), .Range("C" & s)) / .Sum(.Range("B" & s))
Y = .SumProduct(.Range("B" & s), .Range("D" & s)) / .Sum(.Range("B" & s))
Next
X = 10
Y = 5
End With
End With
'Loop
Merci !