Macro très lente (+6 MINUTES) pour masquer les lignes vides
Résolu
personalite
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
personalite Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
personalite Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
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
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
