Macro très lente (+6 MINUTES) pour masquer les lignes vides

Résolu/Fermé
personalite Messages postés 26 Date d'inscription lundi 29 juin 2015 Statut Membre Dernière intervention 17 août 2015 - 13 août 2015 à 20:39
personalite Messages postés 26 Date d'inscription lundi 29 juin 2015 Statut Membre Dernière intervention 17 août 2015 - 13 août 2015 à 20:59
Bonjour,
Je travaille sur un fichier qui contient un tableau ("C6:N400") dans 10 onglets.

Je souhaite qu'à chaque fois qu'une ligne comprise dans ce tableau est vide ou O (valeur renvoyée par une formule), la ligne soit masquée.
Je n'ai pas déclaré des variables, car je ne sais pas quoi mettre

aujourd'hui ma macro s'execute en 6 minutes (même si elle n'est pas la seule du module, je pense que c'est elle qui met tout ce temps)

Quelqu'un peut il m'aider?

mon code :

For m = 1 To k
Sheets(m).Activate
For Each c In Range("c6", "c400")
For i = 0 To Range("n6").Column
If c.Offset(0, i) <> 0 And c.Offset(0, i) <> "" Then
n = 1
End If
Next
If n <> 1 Then
c.EntireRow.Hidden = True
End If
n = 0
Next
Next m







Un grand merci à toutes les personnes qui liront ce post
A voir également:

1 réponse

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 331
13 août 2015 à 20:54
Essayes de gérer le rafraichissement de l'affichage avec:
Application.ScreenUpdating
0
personalite Messages postés 26 Date d'inscription lundi 29 juin 2015 Statut Membre Dernière intervention 17 août 2015
13 août 2015 à 20:59
Merci beaucoup je l'avais déjà vu mais je ne connaissais pas. Merci merci
0