Macro pour alléger formule : somme.si.ens car ordinateur trés lent pour effectuer c

[davidp]

Bonjour le forum ,

j'ai une nouvelle fois besoin de votre aide afin de réaliser un projet.

J'ai une base de donneés "coller " qui alimente la feuille "synthese" par la fonction "somme.si.ens .
-est -il possible de remplacer la formule (somme.si.ens dans la colonne O )
par une macro en effet , lors que je veux filtrer pour un site + un rayon + une UG ) l'ordinateur est trés
trés lent à réaliser le calcul (intel core I 5)
je peux avoir 40 000 lignes

Merci d'avance pour votre aide

Bonne journée à tous

davidp

 

[JCGL]

Re : Macro pour alléger formule : somme.si.ens car ordinateur trés lent pour effect

Bonjour à tous,

Peux-tu essayer ceci associé à un bouton :

Option Explicit

Sub Test()
Dim Derl&
Derl = Feuil1.Range("A" & Rows.Count).End(3).Row
Range("O6:O" & Derl).Formula = _
"=SUMIFS(Coller!R2C12:R5C12,Coller!R2C3:R5C3,'synthese '!RC[-14],Coller!R2C9:R5C9,'synthese '!RC[-8])"
Range("O6:O" & Derl) = Range("O6:O" & Derl).Value
End Sub

A+ à tous

 

[davidp]

Re : Macro pour alléger formule : somme.si.ens car ordinateur trés lent pour effect

Bonjour Mega ,

Merci tout d'abord pour votre aide ,

j'ai testé en mettant un bouton à lequel j'ai associé la macro .

Lorsque j'appuie sur le bouton , une fenetre s'ouvre qui m'invite à mettre à jour les données , je clique sur non , puis des zeros s'inserent dans la colonne 0 de la feuille synthese:

théoriquement dans la cellule O9 de la feuille synthese , devrait afficher 182 ( idem valeur de la feuille "coller")

Merci d'avance pour votre aide

Bonne soirée

davidp

 

[JCGL]

Re : Macro pour alléger formule : somme.si.ens car ordinateur trés lent pour effect

Bonjour à tous,

Fonctionne chez moi.

A+ à tous

 

[davidp]

Re : Macro pour alléger formule : somme.si.ens car ordinateur trés lent pour effect

Bonsoir JCGL ,

c'est vraiment top! ,cela fonctionne .

Je vais maintenant essayer de comprendre le code afin de l'adapter à mon fichier .

Cela va me faire gagner un temps énorme.

Je te tiens informé mardi

Bonne soirée et encore merci

davidp

 

[davidp]

Re : Macro pour alléger formule : somme.si.ens car ordinateur trés lent pour effect

Bonsoir JCGL ,

je te remercie encore pour ton aide
j'ai regardé la macro en détail , je pense avoir compris sauf pour les 2 formules ci-dessous .


'synthese '!RC[-14],-->A quoi cela corespond t il?

'synthese '!RC[-8]) ,-->A quoi cela corespond t il?




Merci d'avance

Bonne soirée

Davidp