Macro pour masquer des lignes

Le
Erico
Bonjour,

Pourquoi cette macro pour masquer des lignes qui sont vides dans une
colonne, prends tellement de temps à exécuter, genre 30 secondes.

Ça arrive, des fois, quand j'ouvre le matin, il s'Exécute instantannément.

Merci
___________________________________

Sub Annexe18()
'
' Index Macro
' Macro enregistrée le 2007-08-22 par Eric Dufour

Sheets("Archive").Select
Range("A1:P9").Select
ActiveWindow.Zoom = True

' Application.ScreenUpdating = False
'___________________Section pour tout afficher
Rows("12:132").Select
Selection.EntireRow.Hidden = False

'____________Macro assembler les donnees debut
Dim Plage As Range, c As Range
Set Plage = Range("D12:D132")
For Each c In Plage
If c.Value = "" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = False
Range("A1").Select
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Hervé
Le #4680571
Bonsoir Erico,
Je l'ai un peu modifiée mais elle ne prend pas plus d'une demi seconde chez
moi ?
De toutes façons, il faut éviter autant que possible les sélections de
plages

Sub Annexe18()
Dim Plage As Range
Dim c As Range

Sheets("Archive").Select
Range("A1:P9").Select
ActiveWindow.Zoom = True
Set Plage = Range("D12:D132")
Application.ScreenUpdating = False
'___________________Section pour tout afficher
Plage.EntireRow.Hidden = False

'____________Macro assembler les donnees debut
For Each c In Plage
If c.Value = "" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = True
Range("A1").Select
End Sub

Hervé.

"Erico"
Bonjour,

Pourquoi cette macro pour masquer des lignes qui sont vides dans une
colonne, prends tellement de temps à exécuter, genre 30 secondes.

Ça arrive, des fois, quand j'ouvre le matin, il s'Exécute instantannément.

Merci
___________________________________

Sub Annexe18()
'
' Index Macro
' Macro enregistrée le 2007-08-22 par Eric Dufour

Sheets("Archive").Select
Range("A1:P9").Select
ActiveWindow.Zoom = True

' Application.ScreenUpdating = False
'___________________Section pour tout afficher
Rows("12:132").Select
Selection.EntireRow.Hidden = False

'____________Macro assembler les donnees debut
Dim Plage As Range, c As Range
Set Plage = Range("D12:D132")
For Each c In Plage
If c.Value = "" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = False
Range("A1").Select
End Sub



Erico
Le #4680561
Ça rien changé, peut-être en redémarrant demain matin, il ne fera plus?



Bonsoir Erico,
Je l'ai un peu modifiée mais elle ne prend pas plus d'une demi seconde chez
moi ?
De toutes façons, il faut éviter autant que possible les sélections de
plages

Sub Annexe18()
Dim Plage As Range
Dim c As Range

Sheets("Archive").Select
Range("A1:P9").Select
ActiveWindow.Zoom = True
Set Plage = Range("D12:D132")
Application.ScreenUpdating = False
'___________________Section pour tout afficher
Plage.EntireRow.Hidden = False

'____________Macro assembler les donnees debut
For Each c In Plage
If c.Value = "" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = True
Range("A1").Select
End Sub

Hervé.

"Erico"
Bonjour,

Pourquoi cette macro pour masquer des lignes qui sont vides dans une
colonne, prends tellement de temps à exécuter, genre 30 secondes.

Ça arrive, des fois, quand j'ouvre le matin, il s'Exécute instantannément.

Merci
___________________________________

Sub Annexe18()
'
' Index Macro
' Macro enregistrée le 2007-08-22 par Eric Dufour

Sheets("Archive").Select
Range("A1:P9").Select
ActiveWindow.Zoom = True

' Application.ScreenUpdating = False
'___________________Section pour tout afficher
Rows("12:132").Select
Selection.EntireRow.Hidden = False

'____________Macro assembler les donnees debut
Dim Plage As Range, c As Range
Set Plage = Range("D12:D132")
For Each c In Plage
If c.Value = "" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = False
Range("A1").Select
End Sub








JB
Le #4680301
Bonjour,


On Error Resume Next
Range("D12:D132").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True


JB



On 30 août, 19:58, Erico
Bonjour,

Pourquoi cette macro pour masquer des lignes qui sont vides dans une
colonne, prends tellement de temps à exécuter, genre 30 secondes.

Ça arrive, des fois, quand j'ouvre le matin, il s'Exécute instantann ément.

Merci
___________________________________

Sub Annexe18()
'
' Index Macro
' Macro enregistrée le 2007-08-22 par Eric Dufour

Sheets("Archive").Select
Range("A1:P9").Select
ActiveWindow.Zoom = True

' Application.ScreenUpdating = False
'___________________Section pour tout afficher
Rows("12:132").Select
Selection.EntireRow.Hidden = False

'____________Macro assembler les donnees debut
Dim Plage As Range, c As Range
Set Plage = Range("D12:D132")
For Each c In Plage
If c.Value = "" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = False
Range("A1").Select
End Sub


Publicité
Poster une réponse
Anonyme