Discussion :

[MLvba]

Bonjour,

Cela fait deux heures que je cherche à exécuter des filtres à des lignes différentes en fonction d'une condition. J'en appel donc à votre aide.
Plus précisément je souhaiterais mettre un filtre sur la ligne n si je rencontre tel caractère.
Voici le code que j'ai fait.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub filtre2()
Dim i As Integer
    For Each filtre In Range("A1:A1000")
        If filtre.Value = "HD" Then
        Range("A" & i).AutoFilter
        i = i + 1
        End If
     Next
 
End Sub

Bonne journée

[BENNASR]

Bonjour
Pour moi j'ai pas compris ta requête, Aussi je crois on filtre une colonne et non pas une ligne ??!!
Peux tu développer l'explication de ton besoin ??

[MLvba]

Oui je souhaiterais mettre un filtre sur une colonne mais à des lignes différentes.
Si tu veux je dois traiter un tableau qui me donne des noms d'appareils différents, avec des données en-dessous et tous cela mis bout à bout.
Donc j'ai mon appareil à la ligne 1 les données en dessous et un autre appareil à la ligne 50 avec les données en dessous et ainsi de suite.

[BENNASR]

c'est pas le filtre standard de Excel non??

[MLvba]

J'ai un tableau différent tous les jours avec plus de 1000 données et une quinzaines d'appareils. Je préfère utiliser une macro pour cela.

[BENNASR]

Peut être c'est ça

Code :

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

1
2
3
4
5
6
7
8
Sub filtre2()
Dim i As Long
 
With Sheets("feuil1")
i = .Range("A" & Rows.Count).End(xlUp).Row
 .Range("A1:A" & i).AutoFilter Field:=1, Criteria1:="HD"
 End With
End Sub