Lenteur d'execution userform

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

Salut

Citation:

---

Envoyé par tofies33

[...]
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?

Bonjour ,
le code est :

Code:

---

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

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.

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

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...

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

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?

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

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... ;)

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 !!

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.