Une macro qui fait ralentir le programme
luky123654
Messages postés
60
Statut
Membre
-
luky123654 Messages postés 60 Statut Membre -
luky123654 Messages postés 60 Statut Membre -
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
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:
- Une macro qui fait ralentir le programme
- Ralentir une video iphone - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Programme demarrage windows - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Ralentir une vidéo - Accueil - Guide streaming
2 réponses
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.
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.
