VBA : extraire tous les résultats d'un filtre

Version imprimable

02/05/2016, 14h52
Mycomer

VBA : extraire tous les résultats d'un filtre

Bonjour,

J'ai un fichier provenant d'une extraction de ma base qui comprend tous les produits de tous mes fournisseurs et j'ai besoin d'envoyer à mes fournisseurs tous leurs produits (et leurs produits uniquement).

Pour la procédure manuelle, je fais autant de copie de mon fichier que j'ai de fournisseurs. Pour chacun d'eux je filtre sur les fournisseurs non voulus et je supprime les lignes filtrées (normal, il ne faut pas que le fournisseur puisse lire les infos des concurrents en "dé-filtrant").

Etant une action ultra répétitive et complétement automatisable (je pense), j'ai pensé aux macros.

J'ai réussi à extraire la liste des fournisseurs dans une autre feuille en pensant m'appuyer dessus pour des boucles.... mais non (en plus les boucles étant longues à traiter, je préfère les éviter). Je bloque donc pour l'exprimer en vba (for each .... ?).

J'ai vraiment essayé mais je sèche.

PS : le nombre/nom de fournisseurs peux varier d'une extraction à une autre.

Merci d'avance pour vos propositions
02/05/2016, 15h03
vinc_bilb

Bonjour,

Sans passer par du VBA, vous pouvez utiliser le filtrage avancé d'Excel, qui sauf erreur, peut vraiment faire tout ce que vous demandez .... automatiquement et sans code
Voir tuto si besoin sous http://philippetulliez.developpez.co...dvancedfilter/

Après, vous pouvez passer par le VBA pour l'automatisation (parcourir tous les founrnisseurs et les extraire puis les passer au filtre)

Vincent
02/05/2016, 15h22
Slooby
Bonjour,

Où est ta question ? Je ne la vois pas.

Mais dans le doute, si j'essaie de comprendre ce que tu veux faire, c'est sélectionner des données filtrées ?
Dans ce cas, utilise cet exemple:
Code:

1 2 3 Dim maRange as Range set maRange = ...ce que tu veux ... maRange.SpecialCells(xlVisible).Select
Et là tu fais les opérations que tu veux.

Slooby.

Bonjour,

Une petite maccro qui sépare un tableau en plusieurs onglets suivant les valeurs d'une colonne en utilisant les filtres avancées:

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
Sub OngletsNom()
'cette macro sépare les données ,de la feuille dont le nom est dans la variable data, en une feuille par valeur différentes
'cette macro n'a pas besoin que les données soient triées car elle utilise les filtres avancés.
 
Application.ScreenUpdating = False
Dim FEUILLE_DEST As Worksheet
Dim var As Object
Dim Plage As Range
Dim Cell As Range
Dim i As Long
Data = "RSS_data"
 
' création de l'objet SortedList
Set var = CreateObject("System.Collections.SortedList")
 
 
With ThisWorkbook.Worksheets(Data).Cells(1, 1)
    Set Plage = .CurrentRegion  ' plage des données (avec les titres)
    For Each Cell In .CurrentRegion.Columns(1).Cells   ' boucle pour créer la liste sans doublon
        If Not var.containskey(Cell.Value) And Cell.Row > 1 Then
            var.Add Cell.Value, Cell.Text
        End If
    Next Cell
End With
 
 
For i = 0 To var.Count - 1
 
    ' ici on gère le fait que la feuille existe ou non
    On Error Resume Next
        Set FEUILLE_DEST = ThisWorkbook.Worksheets(Plage.Cells(1, 1) & "_" & var.getbyindex(i))
    On Error GoTo 0
 
    ' si la feuille n'existe pas : on la crée et la renomme avec le nom de la var
    If FEUILLE_DEST Is Nothing Then
        Set FEUILLE_DEST = ThisWorkbook.Worksheets.Add
        FEUILLE_DEST.Name = Plage.Cells(1, 1) & "_" & var.getbyindex(i)
        FEUILLE_DEST.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
 
    ' si la feuille existe : on efface tout
    Else
        FEUILLE_DEST.Cells.Clear
    End If
 
    ' utilisation du filtre avancé
    With FEUILLE_DEST
        .Cells(1, 1) = Plage.Cells(1, 1) ' nom du critère (l'entête de la colonne 1)
        .Cells(2, 1) = var.getbyindex(i)            ' valeur du critère : nom de la var (qui est le nom de la feuille)
        Plage.AdvancedFilter xlFilterCopy, .Cells(1, 1).CurrentRegion, .Cells(4, 1), False  ' application du filtre avancé
        .Cells(1, 1).Resize(3, 1).EntireRow.Delete ' nettoyage de la zone des critères (= suppression des lignes 1 à 3)
    End With
 
    Set FEUILLE_DEST = Nothing
Next i
 
'suppression des sheets "bilan..." si aucune valeur
Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Sheets
    If sh.Name Like Plage.Cells(1, 1) & "*" Then
        b = False
        For j = 0 To var.Count - 1
        Debug.Print Plage.Cells(1, 1)
        Debug.Print var.getbyindex(j)
        If sh.Name = Plage.Cells(1, 1) & "_" & var.getbyindex(j) Then b = True
        Next j
        If b = False Then sh.Delete
    End If
Next sh
Application.DisplayAlerts = True
'auto ajustement de la taille des colonnes pour plus de lisibilité
For Each sh In ThisWorkbook.Sheets
    sh.Cells.EntireColumn.AutoFit
Next sh
 
Application.ScreenUpdating = True
End Sub

Ici j'utilise la colonne 1 pour le filtre mais ça peut se modifier.
Les différents tableaux sont sur des onglets mais on pourrait aussi créer de nouveaux classeurs.
Si tu rajoutes quelques colonnes l'envoi de mail peut aussi s'automatiser.

02/05/2016, 15h49
Slooby

T'as beau nous montrer ton code et ce qu'il fait, tu n'as toujours pas posé de question... :ptdr:

On ne peut pas deviner la question ET trouver la réponse

Slooby.
02/05/2016, 16h01
halaster08

Citation:

Envoyé par Slooby

T'as beau nous montrer ton code et ce qu'il fait, tu n'as toujours pas posé de question... :ptdr:

On ne peut pas deviner la question ET trouver la réponse

Slooby.

Sauf que je ne suis absolument pas le posteur originel de ce fil ...
J'ai juste proposé un code qui je pense répond à ces attentes
02/05/2016, 16h18
Mycomer

Désolé je pensais avoir été clair.

La question est (pour faire simple) : comment faire toutes mes taches manuelles en VBA ?

vinc_bilb : en fait j'ai simplifié la demande (trop ?) et je dois inclure ma demande dans une macro existante (nettoyage de la base, ordre des colonnes, affichages divers, ....). C'est pour ça que je voulais l'inclure dedans.

Slooby : mon problème ne vient pas de la sélection mais de la création du nouveau fichier avec duplication des données (ou duplication du fichier puis tri automatique des données à garder.... mais j'y crois moins)

halaster08 : ça ressemble à ce que j'avais en tête, mais ce que tu proposes est beaucoup plus compliqué que ce que je pensais (désolé, pourtant tu y mets des commentaires, c'est gentil). J'ai tenté de le lancé et j'ai "erreur d'execution '-2146233079 (80131509)': impossible de comparer deux éléments dans le tableau." sur la ligne "If Not var.containskey(Cell.Value) And Cell.Row > 1 Then" lors de la boucle pour créer la liste sans doublon.

Le fichier sur lequel je travail est très simple et je n'ai pas besoin de vérifications dans tous les sens (onglet existant, suppression si aucune valeur, ....). C'est très propre et très pro, je me prosterne sincèrement, mais ca me perds:oops:.
02/05/2016, 16h50
Slooby

Citation:

Envoyé par halaster08

Sauf que je ne suis absolument pas le posteur originel de ce fil ...
J'ai juste proposé un code qui je pense répond à ces attentes

ahhhhh !!! Au temps pour moi !
Je retire ce que j'ai dit :mouarf:

Slooby.

Pour être honnête, le code n'est pas 100% fait par moi, loin de là, je récupère des trucs ici et là et j'adapte suivant mes besoins.
Le mot clé pour moi c'est adaptation, si tu juste copié mon code, c'est normal que ça ne marche pas.
Par exemple sur la ligne (où j'ai oublié le commentaire d'ailleurs):

Code:

Data = "RSS_data"

Je rentre en variable le nom de la feuille où ce se trouve mes données et il peu probable que la tienne se nomme pareil, donc change le nom de la feuille et ça devrait marcher.
Autre point important le tri se fait sur la première colonne, si ce n'est pas ton cas, il faut adapter soit mon code soit ton fichier

Pour ce qui est des options superflues, libre a toi de les enlever, quitte a les rajouter par la suite si finalement tu en as besoin.

code simplifié:

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Sub OngletsNom()
'cette macro sépare les données ,de la feuille dont le nom est dans la variable data, en une feuille par valeur différentes
'cette macro n'a pas besoin que les données soient triées car elle utilise les filtres avancés.
 
Application.ScreenUpdating = False
Dim FEUILLE_DEST As Worksheet
Dim var As Object
Dim Plage As Range
Dim Cell As Range
Dim i As Long
Data = "nom de ta feuille de données" 'A CHANGER
 
' création de l'objet SortedList
Set var = CreateObject("System.Collections.SortedList")
 
 
With ThisWorkbook.Worksheets(Data).Cells(1, 1)
    Set Plage = .CurrentRegion  ' plage des données (avec les titres)
    For Each Cell In .CurrentRegion.Columns(1).Cells   ' boucle pour créer la liste sans doublon
        If Not var.containskey(Cell.Value) And Cell.Row > 1 Then
            var.Add Cell.Value, Cell.Text
        End If
    Next Cell
End With
 
 
For i = 0 To var.Count - 1
 
 
        Set FEUILLE_DEST = ThisWorkbook.Worksheets.Add
        FEUILLE_DEST.Name = Plage.Cells(1, 1) & "_" & var.getbyindex(i)
        FEUILLE_DEST.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
 
 
    ' utilisation du filtre avancé
    With FEUILLE_DEST
        .Cells(1, 1) = Plage.Cells(1, 1) ' nom du critère (l'entête de la colonne 1)
        .Cells(2, 1) = var.getbyindex(i)            ' valeur du critère : nom de la var (qui est le nom de la feuille)
        Plage.AdvancedFilter xlFilterCopy, .Cells(1, 1).CurrentRegion, .Cells(4, 1), False  ' application du filtre avancé
        .Cells(1, 1).Resize(3, 1).EntireRow.Delete ' nettoyage de la zone des critères (= suppression des lignes 1 à 3)
    End With
 
    Set FEUILLE_DEST = Nothing
Next i
 
 
Application.ScreenUpdating = True
End Sub

02/05/2016, 17h15
Philippe Tulliez

Bonjour,
Pour exporter les données d'une liste en splittant celle-ci en autant de feuilles qu'il n'y a d'éléments dans une colonne, je confirme comme répondu plus haut, que la meilleure solution et la plus simple à mettre en place, est l'utilisation du filtre avancés d'excel (en VBA la méthode AdvancedFilter ).
Voir une contribution du 21/03/2015 sur le même sujet avec explications et classeur exemple.
03/05/2016, 12h16
Mycomer

Super, j'ai réussi à modifier l'exemple dans le post de 2015 de Philippe Tulliez (que je n'avais pas vu) pour mon code.

Va vraiment falloir que je me mette aux filtres avancés (ce me faisait peur et je ne pensais pas qu'il était adaptable en vba).

Merci à vous tous.

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Pour exporter les données d'une liste en splittant celle-ci en autant de feuilles qu'il n'y a d'éléments dans une colonne, je confirme comme répondu plus haut, que la meilleure solution et la plus simple à mettre en place, est l'utilisation du filtre avancés d'excel (en VBA la méthode AdvancedFilter ).
Voir une contribution du 21/03/2015 sur le même sujet avec explications et classeur exemple.

Bonjour,
Je rebondis sur ce sujet et Le code de Philippe,
J'ai fait il y a quelques années une macro pour splitter une feuille selon un colonne au choix, mais j'avais opté pour une méthode légèrement différente afin de conserver toute la mise en forme et mise en page de la feuille d'origine :

-Parcours des éléments de la colonne via un dictionnaire.
-Copie de la feuille complète

Code:

WsSource.Copy

-Suppression des éléments différents du filtre
Code:

1 2 3 WsDestination.Cells.AutoFilter Field:=Quoi.Column, Criteria1:="<>" & truc WsDestination.Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
- et j'enregistre le nouveau classeur avec le nom du fichier d'origine auquel j'adjoins le nom de l'élément.

Par contre côté performance je n'ai pas fait de comparaison, cela dépend beaucoup je pense du nombre de lignes pour chaque élément.