VBA totalisation colonnes selon critere

J

juju_69

XLDnaute Occasionnel

• 18 Décembre 2008

• #2

Re : VBA totalisation colonnes selon critere

Hello,

Je t'avoue ne pas avoir tout compris. Aucune ligne n'est identique entre la colonne A et la colonne MAG. De plus que veux tu totaliser ?

Dans ton fichier test essai de mettre des infos (typiquement ce que tu attends comme résultat en donnant des chiffres)

@ te lire

Juju

 

Vote positif 0 Vote négatif

B

bertrand1202

XLDnaute Occasionnel

• 18 Décembre 2008

• #3

Re : VBA totalisation colonnes selon critere

Meci JUju

je rejoins un fichier avec les resultats attendus .


Ce que je souhaite faire , si dans la colonne A, j 'ai le criter A1 ,vba recherche dans les colonnes MAG , les criteres A1 et cumule les Qte1 les Qte2 ect etc .

Merci de ton aide , je continue cependant à chercher et à comprendre.

je n'ai pas encore intégré toute la logique VBA

@+

 

Pièces jointes

• test totalisation selon critere.xls

  24 KB · Affichages: 101
• test totalisation selon critere.xls

  24 KB · Affichages: 102
• test totalisation selon critere.xls

  24 KB · Affichages: 100

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 18 Décembre 2008

• #4

Re : VBA totalisation colonnes selon critere

Et pourquoi ne pas le faire par formule çà serait plus simple ?

 

Vote positif 0 Vote négatif

B

bertrand1202

XLDnaute Occasionnel

• 18 Décembre 2008

• #5

Re : VBA totalisation colonnes selon critere

Bonsoir


Tout simplement, parce que dans le futur , j 'utiliserai ce systeme pour synthétuser le resultat des inventaires (42 magasins donc 42 pages et chaque page comprend 25 colonnres avec 2500 à 3000 lignes.

Je me prépare en essayant d'abord sur une exemple simple.

Merci de ton aide.

 

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 18 Décembre 2008

• #6

Re : VBA totalisation colonnes selon critere

Exemple avec formules

 

Pièces jointes

• Test.zip

  6 KB · Affichages: 55
• Test.zip

  6 KB · Affichages: 55
• Test.zip

  6 KB · Affichages: 53

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 18 Décembre 2008

• #7

Re : VBA totalisation colonnes selon critere

ok ok je repars avec mes formules^^

 

Vote positif 0 Vote négatif

B

bertrand1202

XLDnaute Occasionnel

• 18 Décembre 2008

• #8

Re : VBA totalisation colonnes selon critere

Bonsoir JUJU



Merci de ton fichier , je crains de ne povoir faire du sommeprod quand j'aurai a faire la synthese des 42 feuilles , j'ai peur que ça rame sur le PC

Merci

Bonne soirée , je continue ma recherche

@+ Bertrand1202

 

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 18 Décembre 2008

• #9

Re : VBA totalisation colonnes selon critere

Tu as tout à fait raison pour le sommeprod.

Voici en vba avec un code pas du tout optimisé mais on fait comme on peut 😉

 

Pièces jointes

• test.xls

  27 KB · Affichages: 122
• test.xls

  27 KB · Affichages: 119
• test.xls

  27 KB · Affichages: 120

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 18 Décembre 2008

• #10

Re : VBA totalisation colonnes selon critere

Bonsoir juju69, betrand1202,

Ce que je souhaite faire , si dans la colonne A, j 'ai le criter A1 ,vba recherche dans les colonnes MAG , les criteres A1

Cliquez pour agrandir...

Jusque là, je te suis, mais là:

et cumule les Qte1 les Qte2 ect etc

Cliquez pour agrandir...

😕😕.

 

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 18 Décembre 2008

• #11

Re : VBA totalisation colonnes selon critere

Helloskoobi,

j'ai eu du mal à comprendre aussi mais avec le fichier d'exemple2 c'est plus facile.
Exemple, à chaque fois que je trouve A1 dans Mag1 et dans Mag2, je somme qte1 de Mag1 et Mag2 que je mets en C6 puis je somme qte2 de Mag1 et Mag2 que je mets en D6...

 

Vote positif 0 Vote négatif

B

bertrand1202

XLDnaute Occasionnel

• 18 Décembre 2008

• #12

Re : VBA totalisation colonnes selon critere

Bonsoir


Merci à Juju69 et Skoobi d'avoir pris un peu de temps, je vais essayer de comprendre le code et la démarche pour ensuite pouvoir cumuler différentes feuilles avec une colonne critere et additionner ainsi colonne par colonne dans le recap si le critere est present.

Merci de votre aide , à bientot , bonne nuit
@+

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 19 Décembre 2008

• #13

Re : VBA totalisation colonnes selon critere

Bonsoir Tous,

si j'ai compris, un autre exemple de

Code:

Sub Va()
  Dim C As Range, Li As Integer
 [COLOR=Green] 'on parcourt chaque cellule des colonnes E et H, ici, en s'arrêtant à la dernière ligne non vide [/COLOR] 
  For Each C In Application.Union(Range("E6:E" & [E5000].End(xlUp).Row), Range("H6:H" & [H5000].End(xlUp).Row))
 [COLOR=Green] 'on parcourt chaque cellule de CATEGORIE :  A6:A14 [/COLOR]
  For Li = 6 To 14
      If C.Value = Range("A" & Li) Then 
       [COLOR=Green] 'si on trouve la catégorie on ajoute le nombre de la colonne C+1[/COLOR]
        Range("C" & Li) = Range("C" & Li) + C.Offset(0, 1) 
        [COLOR=Green]'on ajoute le nombre de la colonne C+2[/COLOR]
        Range("D" & Li) = Range("D" & Li) + C.Offset(0, 2)
      End If
    Next Li
  Next C
 [COLOR=Green] 'On totalise dans les cases correspondantes[/COLOR]
  [C21] = Application.WorksheetFunction.Sum(Range("F6:F" & [F5000].End(xlUp).Row))
  [D21] = Application.WorksheetFunction.Sum(Range("G6:G" & [G5000].End(xlUp).Row))
  [C22] = Application.WorksheetFunction.Sum(Range("I6:I" & [I5000].End(xlUp).Row))
  [D22] = Application.WorksheetFunction.Sum(Range("J6:J" & [J5000].End(xlUp).Row))
  [C23] = [C21] + [C22]
  [D23] = [D21] + [D22]
End Sub

 

Pièces jointes

• Function.Sum.zip

  6.4 KB · Affichages: 55

Vote positif 0 Vote négatif

B

bertrand1202

XLDnaute Occasionnel

• 19 Décembre 2008

• #14

Re : VBA totalisation colonnes selon critere

Bonjour Lii

Merci pour ta reponse , je commence à comprendre, je vais donc ce week end pouvoir me pencher sur la totalisation de chacune des colonnes des autres feuilles dans le total 1 et total2.

Mon but est simple: en page recap (celle que j'ai mis , j 'ai les criteres (tous) dans les autres fauilles j 'ai une colonne critere et des colonnes , ensuite ,si le critere en colonne a de la page 2,3,4,n egal au critere colonne a de page recap , je somme dans chaque colonne (c, d....n) les elements contenus dans les colonnes (c,d...m) des autres feuilles.

Merci de ton explication , par contre que signifie [5000]&endxlup row .

Bonne journée et merci encore.Il faut que j'y arrive

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 19 Décembre 2008

• #15

Re : VBA totalisation colonnes selon critere

Bonjour

Tu verras plus souvent Range("F65536").End(XlUp).Row* que la formule ci-dessus pour chercher la ligne (Row) de la dernière cellule non vide de la colonne F en partant du bas (End) de la colonne (65536)et en remontant (Up).
J'ai remplacé le nombre 65536 par 5000 car tu avais dit avoir 2000 à 3000 lignes.
L'essentiel est que ce nombre soit supérieur au nombre de lignes non vides de la colonne. Comme ce dernier peut varier, on compte "large".

Attention, il faut respecter les formules sans oublier des signes ou des mots !

*Tu verras encore d'autres formulations

 

Vote positif 0 Vote négatif