' 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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hervé
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" a écrit dans le message de news:
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
' 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
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" <Erico@discussions.microsoft.com> a écrit dans le message de news:
CB43C23B-AD68-47D4-A1BC-656369EB10F8@microsoft.com...
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
' 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
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" a écrit dans le message de news:
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
' 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
Ç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" a écrit dans le message de news:
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
' 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
Ç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" <Erico@discussions.microsoft.com> a écrit dans le message de news:
CB43C23B-AD68-47D4-A1BC-656369EB10F8@microsoft.com...
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
' 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
Ç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" a écrit dans le message de news:
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
' 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
Bonjour,
On Error Resume Next Range("D12:D132").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
JB
On 30 août, 19:58, Erico wrote:
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
' 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
Bonjour,
On Error Resume Next
Range("D12:D132").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
JB
On 30 août, 19:58, Erico <Er...@discussions.microsoft.com> wrote:
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
' 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
' 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