[XL-2007] Filtrer sur les numéros de ligne [Résolu]

[docv266]

Salutations,

Problème pas bien méchant à priori mais bon:
En VBA, j'ai une collection d'entier représentant les numéros de lignes que je veux conserver.

J'ai par exemple dans ma collection {2;12;34;576;577;3987;etc...}
Et je souhaite, via VBA, pouvoir filtrer ces lignes là sur ma feuille Excel. (Masquer toutes les autres)

Je sèche, quelqu'un a une idée?

Merci!

[MarcelG]

Bonjour docv66, Bonjour le Forum

(Ravi de vous retrouver, débordé)

Docv66,

Il vaut mieux masquer toutes les lignes puis afficher celles qui t'intéressent.

Par exemple,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub essai()
 
Dim meslignes As Variant
 
meslignes = Array(1, 4, 7)
 
With ActiveSheet
        .Rows.Hidden = True
        For Each lign In meslignes
                .Rows(lign).Hidden = False
        Next lign
End With
 
End Sub

Reviens si nécessaire.

[jfontaine]

Bonjour,

Une autre méthode très proche de celle de MarcelG

Code :

1
2
3
4
5
6
7
8
9
Dim i As Long
Dim str() As String
str = Split("2,12,3,50,250", ",")
 
Rows("1:" & Rows.Count).Hidden = True
 
For i = 0 To UBound(str)
    Rows(str(i)).Hidden = False
Next i

[docv266]

Merci je pense que ça va le faire!

Très aimable à vous.