Discussion :

[tofies33]

Bonjour à tous,
Depuis que j'ai réussi à insérrer un code pour envoyer la somme des cases jaunes de la colonne C dans la cases G1.
J'ai un gros de problème de lenteur sur mon userform.
Impossible de saisir en date une seule fois
Impossible de saisir un montant en une seule fois
Bref ça rame.
Que faut-il faire pour retrouver une vitesse d'execution normale.
Merci d'avance

[Pierre Fauconnier]

Salut

[...]
Depuis que j'ai réussi à insérrer un code[...]
J'ai un gros de problème de lenteur sur mon userform[...]

On pourrait donc raisonnablement supposer que c'est le code inséré qui pose problème... Et si tu nous le montrais, ce code?

[tofies33]

Bonjour ,
le code est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function SommeCouleurFond(champ As Range, couleurFond)
   Application.Volatile
   Dim c, temp
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurFond Then
       If IsNumeric(c.Value) Then temp = temp + c.Value
     End If
   Next c
   SommeCouleurFond = temp
End Function

Que j'ai mis dans un module

[Pierre Fauconnier]

A priori, rien de spécial dans ce code... Quelle est l'étendue de Champ? Je pense que le problème pourrait venir de là. Si Champ fait référence à des colonnes entières, c'est logique que cela pose problème.

[tofies33]

Normalement je dois uniquement faire référence à la colonne C.
Mais étant débutant tout est possible.
Que dois-je modifier alors pour faire uniquement référence à la colonne C ?
Merci d'avance

[Pierre Fauconnier]

C'est ce que je pensais... En 2007, tu boucles sur 1.048.576 lignes... Je viens de tester et c'est effectivement très long...

Tu aurais intérêt à mieux circonscrire ta plage (peut-être en utilisant les tableaux, comme le précise SilkyRoad dans son tuto)...

Je viens de tester sur une colonne et je mets 22 secondes avec une bécane de la mort qui tue...

[tofies33]

Excuse pour mes questions simpliste.
Mais comment puis-je lui demander de le faire sur A1:A500.
Merci

[Pierre Fauconnier]

Il faut voir ce qui appelle ta macro.

Soit tu l'appelles depuis Excel (fonction dans une cellule) et donc, tu peux déterminer cette plage.
Soit tu l'appelles par macro (une autre macro appelle cette fonction), et donc, c'est à cette macro de passer un objet Range limité au strict nécessaire...

Dans lequel de ces contextes te situes-tu?

[tofies33]

Fonction dans une cellule.
Enfin je crois

Désolé,
mais je découvre vraiment VBA et aussi un peu Excel.
Je viens de mettre:
=sommeCouleurFond(C1:C500;6) au lieu de =sommeCouleurFond(C:C;6) dans G1.
Magie même avec un PC de m... de mon Taf cela fonctionne parfaitement.
Merci encore.
Bonne fin de journée

[Pierre Fauconnier]

Ta macro travaillant en boucle, en limitant à 500 lignes par rapport à la colonne (1048576 lignes), ta macro est potentiellement 22097 fois plus rapide... Ca change la vie...

[tofies33]

De retour à la maison surprise !
ça tourne ...
Sauf que cette somme de cellule jaune (en G1) ne se remet en route qu'avec un appui sur F9 .
Quel est ce mystère ?
C'était trop beau pour durer !!

[Pierre Fauconnier]

C'est normal... La modification d'une couleur n'induit pas un recalcul... Si tu modifies la valeur d'une cellule antécédente (qui induit donc un calcul) , le calcul sera forcé (avec ou sans application.volatile), mais si tu modifies la couleur d'une cellule de la plage, tu dois rafraîchir avec F9 (après avoir pris soin d'avoir mis application.volatile) car la modification d'une couleur n'induit pas de calcul.