Discussion :

[kirareuel]

Bonjour,

J'ai un programme excel qui doit realiser des "somme si" environ 60000 fois.
J'ai essayé 2 types de codes differents sous vba, mais à chaque fois, l'execution est trop longue et la macro bug avant de pouvoir se terminer :

Code 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 2 To nbLigneSynthese2 + 1
 
Synthese.Cells(i, 7) = Application.WorksheetFunction.SumIf(Reglements.Cells(2, colonneBPReglements).Resize(nbLigneReglements, 1), Synthese.Cells(i, 7), Reglements.Cells(2, colonneMontantReglements).Resize(nbLigneReglements, 1))
Next i

Code 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Synthese.Cells(i, 7).resize(nbLigneSynthese2,1) = Application.WorksheetFunction.SumIf(Reglements.Cells(2, colonneBPReglements).Resize(nbLigneReglements, 1), Synthese.Cells(i, 7).resize(nbLigneSynthese2,1), Reglements.Cells(2, colonneMontantReglements).Resize(nbLigneReglements, 1))

(Je ne suis pas sur que le code 2 marche..)

Pour info : la variable nbLigneSynthese2 equivaut à peu pres a 60000 lignes.
Et Reglements ainsi que Synthese sont les noms de feuilles excel.
Les autres variables sont des variables globales.

Auriez vous une idée pour que j'arrive à éxecuter ce type de code??
Merci

[Philippe Tulliez]

Bonjour,

J'ai essayé 2 types de codes differents sous vba, mais à chaque fois, l'execution est trop longue et la macro bug avant de pouvoir se terminer :

Quel est le message d'erreur ?
Comment est déclarée la variable i ?

[kirareuel]

La variable i est déclaré en long.
Il n'y a pas de message d'erreur car c'est excel qui se met a bugger au bout de quelques minutes (pas de réponse.. et je dois redemarrer excel). Pourtant ce n'est pas un probleme de PC car j'ai une bonne config.
Je pense que le probleme vient du fait qu'avec mon code, il passe sans arret entre 60000lignes excel, pour revenir à vba. Et il le fait 60000 fois..

N'y aurait-il pas un moyen de fonctionner en vecteur ou en tableau pour économiser le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Reglements.Cells(2, colonneBPReglements).Resize(nbLigneReglements, 1)

(nbLigneReglements = 60000 à peu pres)

[amnorian]

Mais tu es obligé de faire un resize à chaque ligne ?
tu ne peux pas le faire en final avec une procédure qui gèrera ton format ?

[kirareuel]

Je ne comprends pas bien ta réponse??

Ce que je pensais faire (mon 1er code), c'était faire une boucle for allant de 1 à 60000, et qui générait à chaque fois le somme si.
Or dans la formule somme si, on doit prendre toute la plage de donnée pour pouvoir faire la somme..ce qui explique le resize.

Comment est ce que je pourrais faire autrement?

[gFZT82]

Bonjour kirareuel,

Si je traduis bien ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Synthese.Cells(i, 7) = Application.WorksheetFunction.SumIf(Arg1, Arg2, Arg3)

avec :
Arg1 = Reglements.Cells(2, colonneBPReglements).Resize(nbLigneReglements, 1) 'plage de cellules qui doit être évaluée par le critère.
Arg2 = Synthese.Cells(i, 7) 'critère qui définit les cellules à ajouter.
Arg3 = Reglements.Cells(2, colonneMontantReglements).Resize(nbLigneReglements, 1) 'cellules réelles à ajouter si les cellules correspondantes dans la plage correspondent au critère.

Le deuxième paramètre (Arg2) fait référence à la cellule qui reçoit également le résultat. A priori, tu obtiens donc une référence circulaire .

Cordialement.