Macro masquer ligne à 0 trop longue

[joums]

Bonjour,


Dans mon fichier ou j'ai 4 colonnes et 60 000 lignes (que des valeurs numériques)
Je souhaite masquer les lignes dont il n'y a pas de valeur
Donc je crée un 5è colonnes qui additionne les 4 autres.
Et je fais une macro qui boucle sur cette 5è colonne.
La voici :

Sub masquer_lignes_vides

For Each c In Range("D14:D60000")
 If c = 0 Then
 c.Rows.Hidden = True
 End If
Next
End Sub

La macro marche mais elle est relativement longue.
Avez-vous une solution pour que cela soit plus rapide mon code ne doit pas être adapté.
Merci

 

[pilou76]

Re : Macro masquer ligne à 0 trop longue

Bonjour,
As tu testé
Applicationscreenupdating = false

Cordialement

 

[joums]

Re : Macro masquer ligne à 0 trop longue

Bonjour,
As tu testé
Applicationscreenupdating = false

Cordialement

Non tu as raison je vais essayer

 

[Caillou]

Re : Macro masquer ligne à 0 trop longue

Bonjour,

Essayes en rajoutant ceci au debut de ta macro :

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

pour respectivement désactiver l'affichage et le recalcul
à la fin de ta macro tu peux réactiver par

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Caillou

 

[joums]

Re : Macro masquer ligne à 0 trop longue

Bonjour,

Essayes en rajoutant ceci au debut de ta macro :

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

pour respectivement désactiver l'affichage et le recalcul
à la fin de ta macro tu peux réactiver par

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Caillou

Merci pour les infos,
effectivement, ca marche mieux pour masquer les lignes
mais le recalcul est long car c'est un gros fichier
ca devrait tout de même aller