Bonjour à tous,
Voici mon problème:
Je dois administrer un tableur dans lequel figure toute une série de renseignements dont, en colone H, une valeur numérique.
Je voudrais masquer les lignes entières pour lesquelles la valeur en H est égale à 0.
Sur excel 2003, j'utilisais ce code:
Dim I As Long
Dim Plage As Range
Set Plage = Range("H1:H" & Range("H1").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = 0 Then
Plage.Cells(I).EntireRow.Hidden = True
End If
Next
Celà fonctionnait parfaitement et en un claquement de doigt le tour était joué.
Malheureusement, mon boss a cru bon de changer et de passer sous la suite office 2007.
Ce code fonctionne toujours aussi bien, mais mon problème est que ca prends facilement 2-3 minutes pour faire le tri sur 1200 lignes... et ce fichier pourrait atteindre très vite les 10.000 lignes... ca prendra alors beaucoup trop de temps.
Auriez-vous un autre code que celui-ci qui ferait la même chose, mais qui irait plus vite?
Merci d'avance pour vos lumières.
Voici mon problème:
Je dois administrer un tableur dans lequel figure toute une série de renseignements dont, en colone H, une valeur numérique.
Je voudrais masquer les lignes entières pour lesquelles la valeur en H est égale à 0.
Sur excel 2003, j'utilisais ce code:
Dim I As Long
Dim Plage As Range
Set Plage = Range("H1:H" & Range("H1").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = 0 Then
Plage.Cells(I).EntireRow.Hidden = True
End If
Next
Celà fonctionnait parfaitement et en un claquement de doigt le tour était joué.
Malheureusement, mon boss a cru bon de changer et de passer sous la suite office 2007.
Ce code fonctionne toujours aussi bien, mais mon problème est que ca prends facilement 2-3 minutes pour faire le tri sur 1200 lignes... et ce fichier pourrait atteindre très vite les 10.000 lignes... ca prendra alors beaucoup trop de temps.
Auriez-vous un autre code que celui-ci qui ferait la même chose, mais qui irait plus vite?
Merci d'avance pour vos lumières.