VBA - Calcul d'une plage + recherche

Version imprimable

13/10/2009, 10h42
Maiden002

VBA - Calcul d'une plage + recherche

Bonjour le forum.

J'ai un petit souci que je n'arrive pas a mi résoudre

Je cherche a faire la somme d'une colonne suivant un critére.

Je dois faire la somme de la colonne F (F11:F250) mais que des cellules ou a la Colonne B(B11:B250) il y a présent TOTO.

Exemple :

TOTO ==> 25
TOTO ==> 25
TATA ==> 25

Mon résultat devrai etre 50 et non 75..

j'ai commencer avec un For Each, mais je n'arrive plus a avancé, je suis coincé.. :(

Je sais pas si j'ai été assez clair, demandez moi des infos si vous voulez.
Si quelqu'un s'aurait résoudre mon probléme.

Merci beaucoup
13/10/2009, 10h52
rvtoulon

Slt
Je viens de lire ton post, pourquoi ne pas essayer ceci:
en admettant que tu veuilles le résultat dans la cellule A1, donc dans la cellule A1 tu entre ceci:

Code:

=SOMME.SI(B11:B250;"TOTO";F11:F250)

A+
13/10/2009, 10h56
Maiden002

Arf désolé, je l'avais précisé dans le titre mais pas dans le message.

Il s'agit de le faire en VBA.

Car en faite "TOTO" est un exemple que j'ai pris comme base.

Mais sinon il est possible qu'il y est d'autre critére.
Car j'ai fais une liste déroulante, ou par exemple dedans il y a TOTO , TATA, etc. Suivant le choix de l'utilisateur, il me fais la Somme de la colonne F où dans la colonne B il y a le choix de l'utilisateur.

ma liste déroulante est une UserForm (le nom de ma liste déroulante est cmbvaleur)

Merci

en fait ton pb est facile

Code:

1
2
3
4
if cells(a, b).value = "TOTO" then
 
sommez = cells(a,c) + sommez
endif

13/10/2009, 11h13
Maiden002

Je comprends pas vraiment ce que tu viens de me donner.

dans ton code tu fais sur une seul cellule, or moins je cherche pour une plage

slt, ok
si tu nomme ta plage B11:B250 en "noms" par exemple, et F11:F250 en "valeur" alors tu peux essayer ceci:
Code:

1 2 3 4 5 6 7 8 Sub sommesi() With ActiveSheet .Range("A1").FormulaR1C1 = "=SUMIF(noms, ""=TOTO"", valeur)" .Range("A2").FormulaR1C1 = "=SUMIF(noms, ""=TATA"", valeur)" End With End Sub
A adapter
A+

Bonjour,

Code:

1
2
3
4
5
6
7
somme = 0
 
For i = 11 to 250
	if cells(i, 2) = "toto" then
		somme=somme+cells(i,6).value
	end if
next i

Ca devrait marcher

@+

13/10/2009, 11h29
Maiden002

Bonjour Vave,

je viens d'essayer ta méthode, il me fait une incompatibilité de type.

Mais j'ai une petite questions, le code que tu viens de me donner, je l'ai surement mal compris. Mais ne fait il pas la somme que d'une seul ligne ?? (avec la variable "i")

Salut à tous,
Ou encore...

Code:

1
2
3
4
Private Sub cmbvaleur_Change()
Dim MaSomme as long
MaSomme = Application.SumIf(Range("B11:B250"), cmbvaleur.Value, Range("F11:F250"))
End Sub

A+

13/10/2009, 11h35
Maiden002

Sa marche merci beaucoup a vous tous :)
13/10/2009, 12h26
EmmanuelleC

Citation:

Envoyé par Maiden002

Mais j'ai une petite questions, le code que tu viens de me donner, je l'ai surement mal compris. Mais ne fait il pas la somme que d'une seul ligne ?? (avec la variable "i")

il va parcourir chacune des lignes les unes apres les autres
A chaque ligne, il regarde si c'est toto ou pas.
Si c'est toto, il ajoute la somme de la ligne a la somme qu'il a déja