nextrevolution
XLDnaute Occasionnel
Bonjour à tous,
J'ai une macro qui me permet de compter combien de cellule sont identique. Le probléme la macro est assez longue à être executer (environ 20 secondes sur mon vieux pc) et j'ai besoin que ca soit pas plus long que quelques seconde.
Y a t'il un moyen de l'améliorer?
En vous remerciant pour les différents réponses que vous pouvez m'apporter.
J'ai une macro qui me permet de compter combien de cellule sont identique. Le probléme la macro est assez longue à être executer (environ 20 secondes sur mon vieux pc) et j'ai besoin que ca soit pas plus long que quelques seconde.
Y a t'il un moyen de l'améliorer?
Code:
Sub compter()
Dim plage As Range
Dim cel As Range
Dim n As Long
Set plage = Application.Sheets("présence").Range("z1:z65536")
For Each cel In plage
If cel.Value = Sheets("présence").Range("e1") Then
n = n + 1 'compteur
End If
Next
Label41 = n
End Sub
En vous remerciant pour les différents réponses que vous pouvez m'apporter.