ameliorer macro

[mimi]

Salut a tous ..

J’ai une macro qui fonctionne ....

Elle compare 2 tableau de valeurs si la mme valeur est dans les deux tableau elle l'efface dans le premier tableau..
Le problème c'est que la macro continu a comparer les valeur du deuxième tableau avec les lignes vide du premier et donc sa la ralentie, en effet, je compare deux tableaux très long dans les dizaines de milliers de lignes, en general dans le tableau 1 il ne reste que 15 % de lignes donc cellla permetrais de rendre la macro bien plus rapide......

Voila la portion de macro à améliorer :

For k = 0 To Range("A65536").End(xlUp).Row - 1
If Range(w).Offset(k, 0) >= 5 Then
Range(("a1"), ("m1")).Offset(k, 0) = Delete
End If
Next k


La macro m'efface les valeur dans les colonnes A1 à M1 si comparaison vrais....

Pour l'améliorer il faudrait qu'elle supprime la ligne carrément de A1 à M 1

Ou si pas possible faire un test sur la colonne A et si pas de valeur supprimer la ligne de A 1 a M1


Merci pour l aide éventuelle

 

[jon]

bonjour

si ce n'est pas fait, tu peux incorporer l'instruction application.screenupdating=false en début de macro.


ta macro semble bien compliquée et un peu fausse
mets un fichier exemple zippé si possible

bye