OVH Cloud OVH Cloud

somme sous vba

3 réponses
Avatar
Dominique GERARD
bonjour,

j ai besoin d un peu d aide sous vba.

j ai des valeurs sur une colonne A.
j'ai des codes sur une colonne B.

je voudais sommer les valeurs de la colonne A si le code de la colonne B (de
la meme ligne) est egal à '1' et mettre cette valeur dans une cellule hors
du tableau source.
Ainsi de suite pour les autres code de la colonne B.


merci de votre aide.

3 réponses

Avatar
papou
Bonjour
Si j'ai bien compris, par exemple :
[C1] = [SUMPRODUCT((B1:B11=1)*(A1:A11))]
Cordialement
Pascal

"Dominique GERARD" a écrit dans le message de
news:%
bonjour,

j ai besoin d un peu d aide sous vba.

j ai des valeurs sur une colonne A.
j'ai des codes sur une colonne B.

je voudais sommer les valeurs de la colonne A si le code de la colonne B
(de

la meme ligne) est egal à '1' et mettre cette valeur dans une cellule hors
du tableau source.
Ainsi de suite pour les autres code de la colonne B.


merci de votre aide.





Avatar
Dominique GERARD
merci pour la réponse mais je n arrive pas à l appliquer.
en fait mon nombre de ligne n est pas constant.je ne peux donc pas ecrire
aussi simplement le calcul.
il faut que je tienne compte du nombre de lignes.
j ai donc compté le nombre de ligne, mais je ne sais pas comment lui dire de
faire le calcul conditionnel jusqu'à la derniere ligne.

big probleme




"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Si j'ai bien compris, par exemple :
[C1] = [SUMPRODUCT((B1:B11=1)*(A1:A11))]
Cordialement
Pascal

"Dominique GERARD" a écrit dans le message de
news:%
bonjour,

j ai besoin d un peu d aide sous vba.

j ai des valeurs sur une colonne A.
j'ai des codes sur une colonne B.

je voudais sommer les valeurs de la colonne A si le code de la colonne B
(de

la meme ligne) est egal à '1' et mettre cette valeur dans une cellule
hors


du tableau source.
Ainsi de suite pour les autres code de la colonne B.


merci de votre aide.









Avatar
AV
en fait mon nombre de ligne n est pas constant.


Ben tu l'avais pas précisé...
Avec tes valeurs en A2:Ax et tes codes en B2:Bx :

Sub zzz()
x = [A65536].End(3)
[C1] = Evaluate("sumif(B2:B" & x & ",1,A2:A" & x & ")")
End Sub

AV