Bonjour à tous,
Le code que j'ai écrit a pour objectif de copier les données de la plage G8:G200 dans la plage O8:O200 si des conditions sont respectées (si gauche = AA, AB, AC ou AD)
Pour une raison que j'ignore (niveau en VBA limité), ce code est très lent. Plus d'une minute à tourner.
Auriez-vous une suggestion pour accélérer le temps de traitement ?
Merci par avance pour votre aide.
Voici le code utilisé :
Sub Copier_données()
Dim i As Long
Application.ScreenUpdating = False
For i = 8 To 200
If Left(Cells(i, "G"), 2) = "AA" Or Left(Cells(i, "G"), 2) = "AB" Or Left(Cells(i, "G"), 2) = "AC" Or Left(Cells(i, "G"), 2) = "AD" Then
Cells(i, "O").Value = Cells(i, "G").Value
End If
Next i
Application.ScreenUpdating = True
End Sub
Le code que j'ai écrit a pour objectif de copier les données de la plage G8:G200 dans la plage O8:O200 si des conditions sont respectées (si gauche = AA, AB, AC ou AD)
Pour une raison que j'ignore (niveau en VBA limité), ce code est très lent. Plus d'une minute à tourner.
Auriez-vous une suggestion pour accélérer le temps de traitement ?
Merci par avance pour votre aide.
Voici le code utilisé :
Sub Copier_données()
Dim i As Long
Application.ScreenUpdating = False
For i = 8 To 200
If Left(Cells(i, "G"), 2) = "AA" Or Left(Cells(i, "G"), 2) = "AB" Or Left(Cells(i, "G"), 2) = "AC" Or Left(Cells(i, "G"), 2) = "AD" Then
Cells(i, "O").Value = Cells(i, "G").Value
End If
Next i
Application.ScreenUpdating = True
End Sub