Discussion :

[cpf2006]

Bonjour
Ma feuille ne contient que des données et donc pas de ligne des noms des champs
Je voudrais donc également prendre en compte la première ligne dans les données à filtrer
Cela ne fonctionne pas avec le filtre normal qui prend d'office la première ligne dans le résultat sans la filtrer
Comment dois-je faire ?
Merci d'avance

[Invité]

Salut,

Soit tu ajoutes un en-tête soit tu peux utiliser la fonction suivante:

Code :

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

1
2
3
4
5
6
Option Explicit
 
Private Sub Filtres()
  [A1].CurrentRegion.Sort _
  Key1:=Range("A1"), Order1:=xlDescending, Header:=xlNo
End Sub

EDIT: Je me suis trompé. La méthode 'Sort()' ne filtre pas les données.

[cpf2006]

Merci pour cette réponse
Voici ce que j'utilisais jusqu'à maintenant

Code :

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

1
2
3
 
 Plage.Range("A1:N" & y).AutoFilter
 Plage.Range("A1:N" & y).AutoFilter Field:=filtre1, Criteria1:="1", VisibleDropDown:=False

Pouvez-vous me dire comment intégrer vos codes dans ce type ligne ?
merci

[Invité]

Salut,

Une usine à gaz qui fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Filtres()
 
  Dim rngC As Range, rngT As Range
 
  'Insertion d'une ligne comme en-tête provisoire
  Rows("1:1").Insert Shift:=xlDown
  [A1] = "-"
 
  'Filtrage des données
  With ThisWorkbook.ActiveSheet.UsedRange
    .AutoFilter Field:=1, Criteria1:=3
    Set rngC = .SpecialCells(xlCellTypeVisible)
    .AutoFilter
  End With
 
  'Masquer toutes les lignes
  For Each rngT In ThisWorkbook.ActiveSheet.UsedRange.Rows
    Rows(rngT.Row).Hidden = True
  Next
 
  'Afficher les lignes filtrées
  For Each rngT In rngC.Rows
    Rows(rngT.Row).Hidden = False
  Next rngT
 
  'Supprimer l'en-tête provisoire
  Rows("1:1").Delete Shift:=xlUp
 
End Sub

Il y a surement plus simple...

[cpf2006]

Merci encore
Si je comprends bien, la base est d'insérer temporairement une ligne qui va servir de première ligne du filtre ...
pour le reste une fois que cette ligne est insérée, la méthode habituelle peut être appliquée et entre autre pour copier comme, par exemple, la ligne qui suit ?

Code :

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

1
2
 
 Plage_ori.Range("D2:D" & y).SpecialCells(xlCellTypeVisible).Copy Destination:=Plage_des.Range("C2")

Merci

[Invité]

Essaie mais ça devrait être bon.
Ton code est à insérer à la ligne 25.

[cpf2006]

Impect ! ça marche !!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Plage_ori.Rows("1:1").Insert Shift:=xlDown
        Plage_ori.Range("A1:N" & y).AutoFilter
        Plage_ori.Range("A1:N" & y).AutoFilter Field:=filtre1, Criteria1:="1", VisibleDropDown:=False
 
        Plage_des.Range("A1").Value = "id"
        Plage_des.Range("B1").Value = "type"
        Plage_des.Range("C1").Value = "code"
        Plage_des.Range("D1").Value = "libelle"
        Plage_ori.Range("A2:A" & y).SpecialCells(xlCellTypeVisible).Copy Destination:=Plage_des.Range("A2")
        Plage_ori.Range("D2:D" & y).SpecialCells(xlCellTypeVisible).Copy Destination:=Plage_des.Range("C2")
        Plage_ori.Range("E2:E" & y).SpecialCells(xlCellTypeVisible).Copy Destination:=Plage_des.Range("D2")
 
        Plage_ori.Rows("1:1").Delete Shift:=xlUp

Merci encore