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

[BrunoB2]

Bonjour Marc,

Je veux stocker les lignes filtrées de la feuille du classeur Excel "Offres" dans un tableau VBA "Offres" pour pouvoir les manipuler par la suite.

1 - La valeur du filtre est située sur la feuille "Menu" du classeur Excel,
2 - Les lignes à filtrer sont situées sur feuille "Offre" du classeur Excel,
3 - Les lignes résultantes du filtres sont à récupérer dans un tableau VBA "Offres".

Il me semblait que j'avais été clair, oups, dsl.

[Marc-L]

Deux possibilités :

• la plus facile est d'utiliser un filtre avancé copiant temporairement dans une zone libre d'une feuille le résultat filtré;

• définir une variable tableau de la taille du nombre de lignes qui seront filtrées via la fonction de feuille de calculs NB.SI

puis appliquer le filtre et parcourir les Areas de la plage filtrée visible via SpecialCells …

[BrunoB2]

Tamtam64, dsl je n'arrive pas à exécuter ton code sans ".select"...

Donc ce qui suit fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
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.SpecialCells(xlCellTypeVisible)
    ReDim Offres(.Rows.Count, .Columns.Count)
    Offres = .Value
  End With
  Selection.AutoFilter

Mais uniquement sur les enregistrements contigus, Joe.Levrai : tes doutes étaient fondés ;-)

Ceci fonctionne, merci Joe.Levrai ;-)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Set xlsheet = ThisWorkbook.Worksheets("Offres")
  Sheets("Temp").Cells.Delete
  With xlsheet
    .AutoFilterMode = False
    With .Range("A1")
        .AutoFilter 1, Critere
    End With
    .Range(.Cells(1, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).SpecialCells(xlCellTypeVisible).Copy Sheets("Temp").Range("A1")
  End With
  Offres = Sheets("Temp").UsedRange.Value
  Set xlsheet = Nothing

[Marc-L]

Les lignes n° 3 à 9 peuvent être remplacées par une seule ligne de code via un filtre avancé …

[BrunoB2]

Merci Marc,

Comment ?

[clementmarcotte]

Bonjour,

Merci Marc,

Comment ?

Cliques sur le lien qu'il te donne au #9.

[BrunoB2]

???

Code :

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

1
2
3
4
5
6
7
  Set xlsheet = ThisWorkbook.Worksheets("Offres")
  Sheets("Temp").Cells.Delete
  Range("A1").CurrentRegion.AdvancedFilter _
         Action:=xlFilterCopy, _
         CriteriaRange:=Critere, _
         CopyToRange:=Sheets("Temp").Range("A1"), _
         Unique:=False

[Marc-L]

Ta variable Critere doit représenter la plage verticale de deux cellules (exemple Range("Menu!B1:B2"))

contenant soit le titre de la colonne et le critère soit un critère calculé (cf l'excellentissime tutoriel) …

[BrunoB2]

Ok, merci beaucoup, je teste et je vous tient informés ;-)