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 :

Problème avec Range.AdvancedFilter, méthode


Sujet :

Macros et VBA Excel

  1. #1
    Membre éprouvé
    Homme Profil pro
    Retraité
    Inscrit en
    Février 2012
    Messages
    75
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Février 2012
    Messages : 75
    Par défaut Problème avec Range.AdvancedFilter, méthode
    Bonjour

    J’ai ce code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    '*** Initialiser 
        Set WsScr = Worksheets("G")
        Set WsDest = Worksheets("Synthèse")
     
         '* Plage des données
        Set Donnees = WsScr.Range("G9:I" & WsScr.[I9].End(xlDown).Row)
     
         '*** Récupérer liste des Date paiement 
        Set ListeDates = WsScr.Range("I8:I" & WsScr.[I9].End(xlDown).Row)
        ListeDates.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=WsDest.Range("I4"), Unique:=True
    qui adapté aux besoins fonctionne correctement plusieurs fois dans un classeur a l’exception de ce code

    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
     
    Dim WsScr As Worksheet, WsDest As Worksheet
    Dim Mvts As Range, cel As Range, Donnees As Range
    Dim DerLgn As Long, TotPaye As Double, TotRbt As Double, Nbre As Double
     
    '* Initialiser 
        Set WsScr = Worksheets("Mouvts")
        Set WsDest = Worksheets("Synthèse")
        DerLgn = WsScr.[E2].End(xlDown).Row
     
        '*** Récupérer liste des Dépenses 
        Set Mvts = WsScr.Range("E2:E" & DerLgn)
     
         MsgBox Mvts.Address(0, 0)
     
        Mvts.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=WsDest.Range("S4"), Unique:=True

    qui me génère l’erreur suivante

    Erreur d’exécution 1004
    Nom du champ introuvable ou incorrect dans la plage d’extraction
    MsgBox Mvts.Address(0, 0) définit bien la plage < E2 :E164 >

    Il s’agit d’un tableau < Ligne 2 a 164 sur 8 Colonnes < A a H >

    J’ai testé un code donné par Corona adapté a mes besoins qui génère également la même erreur

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub Filtre()
     
     Dim cel As Range
     Set cel = ThisWorkbook.Worksheets("Mouvts").Range("A2").CurrentRegion
     
     MsgBox cel.Address(0, 0)
     
     cel.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Worksheets("Mouvts").Range("E2:E164"), CopyToRange:=Worksheets("Synthèse").Range("S4"), Unique:=False
    End Sub
    Après avoir tout vérifié, je suis dans l’impasse
    Merci d’avance de votre aide
    ________________
    Cordialement

  2. #2
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2011
    Messages
    1 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2011
    Messages : 1 858
    Par défaut
    Bonjour,

    Assure-toi que le libellé de l'en-tête est le même en E2 de Mouvts et S4 de Synthèse.

    Cordialement.

  3. #3
    Membre éprouvé
    Homme Profil pro
    Retraité
    Inscrit en
    Février 2012
    Messages
    75
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Février 2012
    Messages : 75
    Par défaut
    Bonjour,

    Assure-toi que le libellé de l'en-tête est le même en E2 de Mouvts et S4 de Synthèse.
    Merci c'était bien le problème

    d'un coté Dépense et de l'autre Depense

    Encore merci et bonne soirée
    _______________________
    Cordialement

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

Discussions similaires

  1. [VBA - Excel - Word] Problème avec Range(Cells(1,1),Cells(10,10))
    Par Tanoffy dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 08/10/2014, 11h07
  2. Petit problème avec Range et Cells
    Par fdegrave dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 09/03/2013, 18h08
  3. [XL-2003] Problème avec Range
    Par andy38 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 04/06/2009, 23h10
  4. [XL-2003] problème avec range
    Par Godzestla dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 29/04/2009, 13h29
  5. Problème avec Range.Formula
    Par zerti dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 23/07/2007, 17h25

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