rapidité d'execution de code

[mumu]

Bonjour le forum,

J'ai écrit ce petit bout de code qui marche bien mais qui met un temps fou à s'exécuter. J'ai un fichier qui contient environ 3200 lignes dont 1100 sont vides.

maligne = Range("A65536").End(xlUp).Row
For x = maligne To 1 Step -1
If Range("A" & x) = "" Then Rows(x).EntireRow.Delete
Next

Auriez-vous une astuce pour que ça se fasse plus rapidement ???

D'avance merci !

Mumu

 

[BOISGONTIER]

Re : rapidité d'execution de code

Bonjour,

On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

JB
Formation Excel VBA JB

 

[Pierrot93]

Re : rapidité d'execution de code

Bonjour mumu

essaye peut être le code ci-dessous :

Range("A1:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

bon après midi
@+

 

[mumu]

Re : rapidité d'execution de code

Bonjour Pierrot93 et Boisgontier,

Je vous remercie pour vos réponses mais c'est une solution que j'ai déjà tentée mais ça ne marche pas. Les lignes vides contiennent quand même des formules en relation avec une autre feuille. Peut-être est-ce pour ça.

@ +

 

[Pierrot93]

Re : rapidité d'execution de code

re

essaye peut être ainsi alors, cela devrait te faire gagner un peu de temps...

Sub test()
Dim s As Long
Application.ScreenUpdating = False
s = Application.Calculation
Application.Calculation = xlCalculationManual
maligne = Range("A65536").End(xlUp).Row
For x = maligne To 1 Step -1
If Range("A" & x) = "" Then Rows(x).EntireRow.Delete
Next
Application.Calculation = s
Application.ScreenUpdating = True
End Sub

@+

 

[mumu]

Re : rapidité d'execution de code

Merci Pierrot93, il est vrai que je gagne un peu de temps avec ta méthode. J'adopte !

Merci à tous !

Mumu

 

[mutzik]

Re : rapidité d'execution de code

Salut tatousse

sinon en faisant en tri sur la colonne A avec valeurs vides, tu peux les effacer en 30 sec ...

 

[mumu]

Re : rapidité d'execution de code

Salut Mutzik,

Il est vrai que ce serait très rapide mais j'ai besoin de le mettre dans une macro. Et je n'arrive pas à trouver le code par un autofilter.
Mais finalement, j'ai trouvé le moyen d'utiliser la méthode de Boisgontier et Pierrot93 en le faisant sur une colonne sans formule. Et c'est vrai que c'est super rapide !

Merci à tous !

Mumu