Discussion :

[kwantos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[zazaraignée]

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

[kwantos]

Et c'est grave docteur??? :p

[fring]

Bonjour,

Ceci ne pourrait pas convenir ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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