Discussion :

[Omar.bth]

Bonjour et merci d'avance pour votre attention !

Je suis tout nouveau à utiliser des Macros VBA et je voudrais savoir s'il est possible de créer une macro capable de filtrer la nomenclature ci-dessous des cases vides pour chaque produit et l'enregistrer dans une nouvelle feuille qui contient son nom (nom du produit).



Je vous remercie d'avance

[jerome.vaussenat]

Salut,

voici une proposition de code qui peut faire ce que tu veux.

A la fin, il y a les feuilles correspondant aux produits. Ces feuilles sont FILTREES pour n'afficher que les produits avec une quantité.

En espérant ce c'est ce que tu veux. En tout cas c'est un début de piste.

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
Sub ventil()
    Ltitre = 3
    col = 2
    nomfeuille = ActiveSheet.Name
    Do Until Sheets(nomfeuille).Cells(Ltitre, col).Value = ""
    'copie de la feuille contenant le tableau
        Sheets(nomfeuille).Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
        'on renomme la copie
        ActiveSheet.Name = Cells(Ltitre, col).Value
        'suppression des colonnes inutiles. On ne garde que le produit a traiter
        colsuppr = 2
        Do Until Cells(Ltitre, colsuppr).Value = ""
            'on vérifie si c'est le bon produit pour supprimer la colonne
            If Sheets(nomfeuille).Cells(3, col).Value <> Cells(Ltitre, colsuppr).Value Then
                'suppression de la colonne
                Cells(Ltitre, colsuppr).EntireColumn.Delete
            Else
            'on passe à la colonne de produit suivante
            colsuppr = colsuppr + 1
            End If
        Loop
        'mise en place du filtre
        Range("B" & Ltitre).AutoFilter
        ActiveSheet.Range("$A$" & Ltitre).AutoFilter Field:=2, Criteria1:="<>"
 
        'on passe a la création de la feuille suivante pour le prochain pdt
        col = col + 1
    Loop
End Sub

Je suis parti du fait que la ligne de titre de ton tableau est en ligne 3. Si ce n'est pas le cas, modifie la variable "Ltitre = 3"

[Invité]

Bonjour,
Un filtre actif ou élaboré fera largement l'affaire!

http://philippetulliez.developpez.co...dvancedfilter/