[VBA] Masquer ligne si valeur = 0

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:

Code:

---

1 2 3 4 5 6 7 8

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.

Je ne connais pas Office 2007 mais je suis prise d'un affreux doute (ha! les affres du doute!). La version VBA de Office 2007 ne serait-elle pas .NET ?

[edit]
C'est bien ce que je craignais...
http://msdn.microsoft.com/fr-fr/library/aa338197.aspx

Et c'est grave docteur??? :p

Bonjour,

Ceci ne pourrait pas convenir ?

Code:

---

1 2 3

Sub test() Range("H1").AutoFilter Field:=1, Criteria1:="<>0" End Sub

---