Discussion :

[BrunoB2]

Bonjour,

Lorsque j'exécute mon code, toutes les lignes sont copiées dans une variable array "Offres", or je ne veux copier que les lignes résultant du filtre.
La cellule qui contient la valeur de mon filtre est sur la feuille "Menu" en "B2"
Les lignes à filtrer sont sur sur la feuille "Offres"

Peut être avez-vous une solution ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sheets("Offres").Select
  ActiveSheet.Range("A1").Select
  Selection.AutoFilter
    ActiveSheet.Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:= _
        Sheets("Menu").Range("B2")
  With Sheets("Offres").AutoFilter.Range
    ReDim Offres(.Rows.Count, .Columns.Count)
    Offres = .Value
  End With
  Selection.AutoFilter

[parmi]

Bonjour,

Intéresse-toi à SpecialCells(xlCellTypeVisible)

[tamtam64]

je n'ai pas de réponse mais je me permet de faire des petites modifications

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim xlsheet as worksheet
set xlsheet = thisworkbook.worksheets("Offres")
with xlsheet
      .Range("A1").AutoFilter
      .Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:= _
        thisworkbook.worksheet("Menu").Range("B2")
      .worksheet("Offres").AutoFilter.Range
      ReDim Offres(.Rows.Count, .Columns.Count)
      Offres = .Value
 End With

Pour un peu moins de select avec un specialcell sur le type , tu peux donc selectionner le type de contenu , tu l'utilise avec un range , tu as tt ce qu'il faut sur le site officiel , mais je crois que tu ne peux l'utiliser que sur le type ....

[BrunoB2]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim xlsheet as worksheet
set xlsheet = thisworkbook.worksheets("Offres")
with xlsheet
      .Range("A1").AutoFilter
      .Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:= _
        thisworkbook.worksheet("Menu").Range("B2")
      .worksheet("Offres").AutoFilter.Range.SpecialCells(xlCellTypeVisible)
      ReDim Offres(.Rows.Count, .Columns.Count)
      Offres = .Value
 End With

Serait-ce cela la solution ?

[joe.levrai]

Bonjour,
la plage étant discontinue, tu risques d'avoir des problèmes pour transférer sans boucle tes données dans ton tableau ?
ça m'interpelle ce point, tu peux nous confirmer ce qu'il en est ?

si ça coince, je te conseille d'exporter ton résultat dans une feuille, et d'ensuite récupérer les valeurs

exemple

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
Sub Filtre()
Dim Critere As String ' adapter selon le type de données si besoin
Dim Sh As Worksheet
Dim Offres()
 
Critere = ThisWorkbook.Worksheet("Menu").Range("B2").Value
Set Sh = ThisWorkbook.Worksheets("Offres")
Sheets("Feuil4").Cells.Delete ' la feuille de stockage tampon
 
With Sh
    .AutoFilterMode = False
 
    With .Range("A1")
        .AutoFilter 1, Critere  ',xlFilterValues
    End With
 
    .Range(.Cells(1, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil4").Range("A1")
End With
 
Offres = Sheets("Feuil4").UsedRange.Value
Set Sh = Nothing
End Sub

[BrunoB2]

J'ai une erreur :
"membre de méthode ou de donnée introuvable"

J'ai essayé en remplaçant Worksheet par Worksheets, mais j’obtiens la même erreur :

Code :

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

1
2
3
4
5
6
7
8
With xlsheet
      .Range("A1").AutoFilter
      .Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:= _
        ThisWorkbook.Worksheets("Menu").Range("B2")
      .Worksheets("Offres").AutoFilter.Range.SpecialCells (xlCellTypeVisible)
      ReDim Offres(.Rows.Count, .Columns.Count)
      Offres = .Value
  End With

[Marc-L]

Bonjour,

que veux-tu faire exactement ? (contradiction entre le titre de la discussion et le code initial)
Quel est le but, la destination ?



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo