Bonjour,
J'ai une petite macro avec fonctionnement très simple mais , elle prend plus du temps lors de l'exécution (2 a 3 min) sur 59570 lignes . est ce que c'est normale ? merci de m'aide si ce n'est pas vraiment logique !! au moins ce que je pense .
Merci d'avance.
voici mon code :
Salut
haytoch
J'ai une petite macro avec fonctionnement très simple mais , elle prend plus du temps lors de l'exécution (2 a 3 min) sur 59570 lignes . est ce que c'est normale ? merci de m'aide si ce n'est pas vraiment logique !! au moins ce que je pense .
Merci d'avance.
voici mon code :
Code:
Sub Check_Lengths()
Dim Bws As Worksheet, I As Long, ChVa As Variant
Set Bws = Worksheets("AA")
Application.ScreenUpdating = False
For I = 3 To Bws.Range("A" & Rows.Count).End(xlUp).Row
Cells(I, 11) = 0
Cells(I, 12) = 0
Cells(I, 13) = 0
Cells(I, 14) = 0
Cells(I, 15) = 0
ChVa = Cells(I, 9)
If ChVa > 0 And ChVa <= 1 Then
Cells(I, 11) = 1
ElseIf ChVa > 1 And ChVa <= 3 Then
Cells(I, 12) = 1
ElseIf ChVa > 3 And ChVa <= 5 Then
Cells(I, 13) = 1
ElseIf ChVa > 5 And ChVa <= 10 Then
Cells(I, 14) = 1
ElseIf ChVa > 10 Then
Cells(I, 15) = 1
End If
Next I
Application.ScreenUpdating = True
End Sub
Salut
haytoch