A voir également:
- [VBA excel] macro bloquée par taille fichier
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
2 réponses
Utilisateur anonyme
3 août 2007 à 16:21
3 août 2007 à 16:21
Bonjour,
autre point !
désactiver l'affichage pour alléger l'exécution :
Lupin
autre point !
désactiver l'affichage pour alléger l'exécution :
Sub Test1() Application.ScreenUpdating = False ' ... ' Code ' ... Application.ScreenUpdating = True End Sub '
Lupin
Bonjour Pol_38,
Avec la méthode Filter, ça peut aller vite.... Pour l'instant, cette méthode te bloque car message d'erreur. Je te propose, en attendant, ce code qui prend un peu plus de temps( ex. 30 sec pour 13 000 lignes) mais qui réussit.
a = 1
EndTable = Range("F65536").End(xlUp).Row
For I = 2 To EndTable
a = a + 1
If Cells(a, 6) = "DOC" Then
Cells(a, 6).EntireRow.Delete
a = a - 1
End If
Next I
Merci.
Avec la méthode Filter, ça peut aller vite.... Pour l'instant, cette méthode te bloque car message d'erreur. Je te propose, en attendant, ce code qui prend un peu plus de temps( ex. 30 sec pour 13 000 lignes) mais qui réussit.
a = 1
EndTable = Range("F65536").End(xlUp).Row
For I = 2 To EndTable
a = a + 1
If Cells(a, 6) = "DOC" Then
Cells(a, 6).EntireRow.Delete
a = a - 1
End If
Next I
Merci.