Une macro qui fait ralentir le programme

luky123654 Messages postés 54 Date d'inscription   Statut Membre Dernière intervention   -  
luky123654 Messages postés 54 Date d'inscription   Statut Membre Dernière intervention   -
bonjour j' ais une macro qui ralenti le programme comment je peux faire pour il ralentit pas
voici
Function Couleur(cl As Range) As Long
Application.Volatile
Couleur = cl.Interior.ColorIndex
End Function
Function NVert(cl As Range) As Integer
Application.Volatile
Dim cel As Range
NVert = 0
For Each cel In cl
If Couleur(cel) = 14 Then
NVert = NVert + 1
Else
Exit For
End If
Next
End Function
merci pour votre réponce
bien à vous
luky
A voir également:

2 réponses

Réponse 1 / 2
Raymond PENTIER Messages postés 58988 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
Bonjour.

Je suis plutôt incompétent en VBA.
Mais, en simple logique, je me dis que si ta macro examine toutes les cellules pour savoir leur couleur, et recommence le test à chacune de tes interventions dans la feuille, c'est forcément long.
Il faudrait que tu délimites la plage de testing, et que ce testing ne s'exécute qu'à ta demande expresse ...

J'espère t'avoir fourni des pistes.
0
Réponse 2 / 2
rEVOLV3r Messages postés 223 Date d'inscription   Statut Membre Dernière intervention   28
 
Bonjour,

Pourquoi avoir mis un Else exit for ? Dès qu'une plage de votre range n'est pas de la couleur recherché la boucle for s'arrête et ne comptabilisera pas les prochaines.
Est-ce fait exprès ?

Bonne journée
0
luky123654 Messages postés 54 Date d'inscription   Statut Membre Dernière intervention  
 
oui
0

Discussions similaires

A quoi sert l'application Bonjour?
patrick -
Ysis -

4 réponses