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 :

Macro VBA de Filtrage sur un TCD [XL-365]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    Août 2020
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Analyste d'exploitation

    Informations forums :
    Inscription : Août 2020
    Messages : 10
    Par défaut Macro VBA de Filtrage sur un TCD
    Bonjour,

    je n'ai pas trouvé la solution à mon problème en cherchant dans les précédents postes donc je le pose ici.

    Ma macro cherche à filtrer des données dans une colonne (deuxième colonne) d'un tableau précis (en Feuil2) selon un critère que l'on renseigne soit même dans une InputBox qui apparaît à l'écran après avoir cliqué sur le bouton rattaché à la macro de la Feuil1.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Dim Filter As String
     
    Filter = InputBox("Veuillez renseigner le numéro de Tiers recherché :", "Filtre")
     
    Worksheets("Feuil2").Range("D17").AutoFilter Field:=2, Criteria1:=Filter
    Mon problème est, je le pense, que le tableau où le filtre doit être appliqué est un TCD et que le code ne fonctionne pas sur ce type de tableau.

    Le code est correct car il fonctionne si je copie/colle seulement les valeurs du TCD et que je test le code sur les valeurs simples.

    Donc mes questions sont :
    - Est ce qu'il est possible de faire un code VBA qui filtre les données d'un TCD?
    - Si oui, quelle formule faut-il utiliser ?

    Merci de votre aide,

    Hugo
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 437
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 437
    Par défaut
    Bonjour,

    Voir si ceci peut convenir:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub FiltreSurTiers()
        Dim Filter As String
        Filter = InputBox("Veuillez renseigner le numéro de Tiers recherché :", "Filtre")
        Worksheets("Feuil2").Activate
        With ActiveSheet.PivotTables(1).PivotFields("Tiers")
            .Orientation = xlPageField
            .Position = 1
            .ClearAllFilters
            .CurrentPage = Filter
        End With
        Range("D17").Select
    End Sub
    Cordialement
    Fichiers attachés Fichiers attachés

  3. #3
    Membre habitué
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    Août 2020
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Analyste d'exploitation

    Informations forums :
    Inscription : Août 2020
    Messages : 10
    Par défaut
    ça fera très bien l'affaire, merci beaucoup !

    Hugo

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Affecter une macro VBA à un bouton sur AutoCAD
    Par YassDumb dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 14/11/2012, 10h42
  2. [Toutes versions] filtre TCD via macro vba sur texte contenu
    Par fomy dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 31/08/2012, 09h35
  3. [XL-2007] Macro VBA s'arrête sur une sélection
    Par marsupilami34 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 23/09/2010, 14h34
  4. probleme de selection aleatoire sur excel avec macro vba
    Par guillaume sors dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 21/10/2005, 10h51
  5. Macro VBA sur Access
    Par beurnoir dans le forum Access
    Réponses: 3
    Dernier message: 12/10/2005, 16h46

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