Additionner des valeur correspondant à un critère

[Résolu/Fermé]
Signaler
Messages postés
1
Date d'inscription
mercredi 11 février 2015
Statut
Membre
Dernière intervention
11 février 2015
-
Messages postés
34
Date d'inscription
lundi 14 avril 2014
Statut
Membre
Dernière intervention
10 novembre 2019
-
Bonjour,


Sur la Feuille 1 j'ai une balance d'un client présentée de la manière suivante :
Voir sur l'image

Donc dans la cellule B30 de ma feuille2 d'obtenir la somme des soldes de 2014 appartenant aux comptes 411...418 en créant une macro...
Je vous ai pris le tableau mieux présenté en capture car quand je valide le poste toute se décale...
Je sais vraiment pas comment faire. J'ai réussi à importer tous les montants grâce à une boucle :
Dim i As Long
Dim Fin As Long
Dim j As Long

Fin = Sheets("Sheet").Range("A5000").End(xlUp).Row
j = 30

For i = 10 To Fin
If Left(Sheets("Feuil1").Range("A" & i).Value, 3) = "411" Then
Sheets("Feuil2").Range("A" & j).Value = Sheets("Feuil1").Range("B" & i).Value
j = j + 1
End If
If Left(Sheets("Feuil1").Range("A" & i).Value, 3) = "413" Then
Sheets("Feuil2").Range("A" & j).Value = Sheets("Feuil1").Range("B" & i).Value
...
Mais du coup cela m'importe juste les lignes correspondantes sur la Feuil1 mais il me faudrait les additionner dans la même cellule...

Comment puis-je procéder ?

Merci beaucoup d'avance pour vos réponse.

1 réponse

Messages postés
34
Date d'inscription
lundi 14 avril 2014
Statut
Membre
Dernière intervention
10 novembre 2019

Bonjour
N'est-il pas possible de définir un compteur Cpt initialisé à 0, puis

Cpt = Cpt + Sheets("Feuil1").Range("B" & i).Value


puis en final
Sheets("Feuil2").Range("C30").Value = Cpt


Bon courage