Addition en fonction de trois critères ( macro ?)

[urbanito1]

Bonsoir à la communauté,

j'ai un tableau de 25 colonnes et près de 70000 lignes actuellement...
le nombre de lignes va s'accroître pour dépasser 100000 à la fin de l'année
avec un TCD j'arrive à extraire 4 données qui m'intérressent:
nom
mois
mensuel brut
article budget

je voudrais arriver à le faire autrement ( macro ?)

petit tableau en annexe

merci pour vos avis

urbanito1

 

[Softmama]

Re : Addition en fonction de trois critères ( macro ?)

Bonjour urbanito1,

J'ai pas bien saisi ce que tu souhaites à faire, mais pour ce que j'en comprends, ne suffirait-il pas simplement de copier les colonnes en jaune vers un autre onglet ?

Si pas ça, précise ta demande.

 

[urbanito1]

Re : Addition en fonction de trois critères ( macro ?)

salut Softmama
c'est ça mais ce que je souhaite c'est avoir une seule fois le nom en fonction du mois et de l'article du budget, en additonnant le brut
exemple : je peux avoir 20 lignes avec Monsieur toto pour le mois de février 2012, avec différents montants

idée: regrouper une fois le nom de Monsieur toto avec le mois en question par rapport à l'article du budget

si je recopie simplement les colonnes en jaune, j'aurai toujours autant de lignes...

j'espère que c'est plus clair

bonne soirée
urbanito1

 

[Softmama]

Re : Addition en fonction de trois critères ( macro ?)

re,

Vois le fichier joint. Cette macro devrait résoudre ton souci, mais elle risque d'être assez longue à l'exécution sur 70000 lignes.

Sub gogogo()
Range("Z2:Z" & Range("A2").End(xlDown).Row).FormulaR1C1 = "=RC1&RC2"
Range("AA2:AA" & Range("A2").End(xlDown).Row).FormulaR1C1 = "=SUMPRODUCT((R2C[-1]:R" & Range("A2").End(xlDown).Row &"C[-1]=RC[-1])*RC[-17])"

Set c = Range("Z2"): Set d = Feuil2.Range("E2")
Do While c <> ""
  If IsError(Application.Match(c, Feuil2.Range("E2:E100000"), 0)) Then
    c.Copy d
    Cells(c.Row, 1).Resize(, 2).Copy Feuil2.Cells(d.Row, 1)
    d.Offset(, -2) = c.Offset(, 1)
    Cells(c.Row, "W").Copy Feuil2.Cells(d.Row, 4)
    Set d = d.Offset(1)
  End If
  Set c = c.Offset(1)
Loop
Feuil1.Range("Z:AA").Clear
Feuil2.Range("E:E").Clear
End Sub

 

[urbanito1]

Re : Addition en fonction de trois critères ( macro ?)

sympa softmama
je teste lundi sur fichier réel
je te tiens au courant
merci et bon week end

 

[urbanito1]

Re : Addition en fonction de trois critères ( macro ?)

hello Softmama,
j'essaie de tester ...

je n'arrive pas à reproduire le résultat sur mon fichier samedisoirsoftmama...le résultat de la macro est différent du résultat TCD à partir des données?

je pense que c'est dans la manière d'actionner la macro...

dis moi : il n'y a qu'une seule macro = gogogo ( et macro 1, macro 2 et macro 3 sont-elles actionnées en même temps)? j'ai essayé en copiant dans deux modules...mais c'est pas correct...

si à l'occasion tu avais le temps de jeter un coup d'oeil

un grand merci

 

[Softmama]

Re : Addition en fonction de trois critères ( macro ?)

Bonjour,

Non, les macros du module 2 sont des résidus de l'enregistreur de macros qui m'a aidé pour traduire mes formules en VBA. elles ne servent à rien. Il faut juste lancer gogogo, mais il semblerait en effet qu'une (au moins 😛) de mes formules soit erronée. Je me penche là-dessus et reviens vers toi.

 

[Softmama]

Re : Addition en fonction de trois critères ( macro ?)

re,

j'ai identifié mon erreur, elle est sur la deuxième formule utilisée. La bonne formule est :

Range("AA2:AA" & Range("A2").End(xlDown).Row).FormulaR1C1 = "=SUMPRODUCT((R2C[-1]:R" & Range("A2").End(xlDown).Row & "C[-1]=RC[-1])*R2C10:R" & Range("A2").End(xlDown).Row & "C10)"

Vois ton fichier joint et désolé pour cette erreur.
N'hésite pas si tu vois d'autres soucis. J'ai pas testé plus que ça de mon côté.

 

[urbanito1]

Re : Addition en fonction de trois critères ( macro ?)

Pas de problème Softmama,
je démarre un peu dans les macros...ça me permet de chiopoter pour essayer de comprendre un peu le mécanisme de base
je te tiens au courant
un grand merci et bon dimanche

 

[urbanito1]

Re : Addition en fonction de trois critères ( macro ?)

salut Softmama
bonjour à la communauté

j'avais 112.162 lignes
ça a pris 2h30

extra
grand merci

j'ai plein d'autres trucs à demander mais je vais d'abord un peu chercher ...question de se former
encore merci

 

[urbanito1]

Re : Addition en fonction de trois critères ( macro ?)

Hello à tous
Softmama
Je suis de retour
j'ai une petite anomalie

lorqu'il y a plus d'une référence sur un mois il n'en tient pas compte
que changer dans la macro?

merci bien
urbanito1