Bonjour le forum,
Je viens de créer cette macro qui met 20 secondes à s’exécuter (environ 11000 lignes)
Quand je teste la recopie de formule en double cliquant sur la 1ère celulle cela met 10 secondes.
Comment puis-je améliorer ce code ?
Si besoin je peux transmettre un fichier.
Merci pour votre aide.
Je viens de créer cette macro qui met 20 secondes à s’exécuter (environ 11000 lignes)
Code:
Sub Copie_NbVoyages()
Application.ScreenUpdating = False
Sheets("Data ligne").Select
tablo = Range("A2:M" & Range("A" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.dictionary")
For n = LBound(tablo, 1) To UBound(tablo, 1)
x = 1 / Application.CountIf(Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row), tablo(n, 1))
tablo(n, 13) = x
Next
Range("A2").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
Application.ScreenUpdating = True
End Sub
Quand je teste la recopie de formule en double cliquant sur la 1ère celulle cela met 10 secondes.
Comment puis-je améliorer ce code ?
Si besoin je peux transmettre un fichier.
Merci pour votre aide.