IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Filtre personalisé HELP


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Autre
    Inscrit en
    Janvier 2017
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Autre
    Secteur : Enseignement

    Informations forums :
    Inscription : Janvier 2017
    Messages : 1
    Par défaut Filtre personalisé HELP
    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).

    Nom : Capture.JPG
Affichages : 114
Taille : 73,0 Ko

    Je vous remercie d'avance

  2. #2
    Membre Expert Avatar de jerome.vaussenat
    Homme Profil pro
    Formateur Bureautique
    Inscrit en
    Janvier 2011
    Messages
    1 629
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Formateur Bureautique
    Secteur : Enseignement

    Informations forums :
    Inscription : Janvier 2011
    Messages : 1 629
    Par défaut
    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"

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Un filtre actif ou élaboré fera largement l'affaire!

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

Discussions similaires

  1. Réponses: 6
    Dernier message: 28/06/2014, 18h49
  2. Interface admin, filtre personalisé
    Par konubinix dans le forum Django
    Réponses: 0
    Dernier message: 13/11/2009, 10h54
  3. HELP : Filtre dans un select
    Par daishi dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 18/09/2007, 22h06
  4. filtre sur liste modifiable.Help!!!
    Par VBBBA dans le forum Access
    Réponses: 7
    Dernier message: 18/09/2006, 15h15
  5. HELP - filtre dans formulaire
    Par gregius dans le forum IHM
    Réponses: 3
    Dernier message: 08/12/2005, 11h22

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo