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 :

Erreur 1004 ActiveSheet.Past


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Femme Profil pro
    Conseil en assistance à maîtrise d'ouvrage
    Inscrit en
    Janvier 2020
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Conseil en assistance à maîtrise d'ouvrage
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2020
    Messages : 3
    Par défaut Erreur 1004 ActiveSheet.Past
    Bonjour à tous,

    J'essaie de faire une macro qui permettent d'alimenter 2 onglets, par rapport à un autre onglet par rapport à un filtre.
    Cependant, j'ai une erreur 1004 : "vous ne pouvez pas coller cet élément ici, car les zones de copier et de collage sont différentes"

    Pouvez-vous m'aider svp ?

    La macro ci-dessous :

    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
    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
    78
    Sub Extraction()
     
    ' D?claration des variables c'est ? dire des noms des collaborateurs
    Dim Collaborateur1
    Collaborateur1 = Sheets("1. Mode op?ratoire").Range("L56").Value
    Dim Collaborateur2
    Collaborateur2 = Sheets("1. Mode op?ratoire").Range("L57").Value
     
    ' Affiche toutes les colonnes de l'onglet extraction
    ' N?cessaire pour faire le copier / coller
     
    Sheets("3. Extraction").Select
    Columns("A:M").Select
    Selection.EntireColumn.Hidden = False
     
    ' Effectue un filtre dans l'onglet extraction en A6 sur le Collaborateur 1
    Range("A6").Select
    With Selection
    .AutoFilter
    .AutoFilter Field:=1, Criteria1:=Collaborateur1
    End With
     
    ' Copier les donn?es du collaborateur 1
    Range("A7:M7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
     
    ' Coller les donn?es du collaborateur 1 dans son onglet
    Sheets(Collaborateur1).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
     
    ' D?sactive le filtre de l'onglet Extraction
    Sheets("3. Extraction").Select
    With Sheets("3. Extraction")
    If .AutoFilterMode Then
    .Cells.AutoFilter
    End If
    End With
     
    ' Effectue un filtre dans l'onglet extraction en A6 sur le Collaborateur 2
    Range("A6").Select
    With Selection
    .AutoFilter
    .AutoFilter Field:=1, Criteria1:=Collaborateur2
    End With
     
    ' Copier les donn?es du collaborateur 2
    Range("A7:M7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
     
    ' Coller les donn?es du collaborateur 2 dans son onglet
    Sheets(Collaborateur2).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
     
    ' Masquer les colonnes inutiles de l'onglet extraction
    ' Les colonnes sont n?cessaires pour le copier / coller
    Sheets("3. Extraction").Select
    Columns("B:E").Hidden = True
     
    ' Supprimer les filtres de la base de l'onglet extraction
    With Sheets("3. Extraction")
    If .AutoFilterMode Then
    .Cells.AutoFilter
    End If
    End With
     
    'Supprimer l'extraction
    ActiveSheet.Range("A7:M3000").ClearContents
     
    Range("A1").Select
     
    MsgBox "Les feuilles de travail ont ?t? mises ? jour :)"
     
     
    End Sub

  2. #2
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    Bonjour,

    Pour copier une zone filtrée il ne faut sélectionner que cette zone filtrée et non pas une plage déterminée à l'avance comme ici "A7:M7".
    La bonne syntaxe est :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
        Range("_FilterDataBase").Resize(, NbCol).SpecialCells(xlCellTypeVisible).Copy
    remplacez NbCol par le numéro de la dernière colonne.

    Ajoutez cette ligne au début de la macro, pour améliorer la vitesse d'exécution et éviter les rafraîchissements d'écran.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Application.ScreenUpdating = False
    Ensuite, votre code pourrait-être considérablement amélioré en évitant la plupart des "Select", un exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
        Columns("A:M").Select
        Selection.EntireColumn.Hidden = False
    peut s'écrire sous la forme
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Columns("A:M").EntireColumn.Hidden = False
    Cdlt

  3. #3
    Futur Membre du Club
    Femme Profil pro
    Conseil en assistance à maîtrise d'ouvrage
    Inscrit en
    Janvier 2020
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Conseil en assistance à maîtrise d'ouvrage
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2020
    Messages : 3
    Par défaut
    Merci ARTURO83 pour votre retour.
    J'ai mis à jour ma macro, merci beaucoup je n'ai plus de beug.

    Par contre, ça copie la zone filtrée y compris les en-têtes de colonne.
    Avez-vous une solution pour ça ?

    Je vous remercie

  4. #4
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    essayez ceci
    sur la feuille à filtrer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    DerLig=range("A"& rows.count).end(xlup).row 'pour trouver la dernière ligne par rapport à la colonne A
    Range(Cells(2, "A"), Cells(DerLig, NbCol)).SpecialCells(xlVisible).Copy 'on copie la zone filtrée
    A adapter

    Cdlt

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

Discussions similaires

  1. Erreur Couper/Coller ActiveSheet.Paste
    Par france38 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 20/04/2011, 12h53
  2. [XL-2007] Erreur 1004 avec Paste
    Par Lucky062 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 18/01/2011, 16h33
  3. paste speciale erreur 1004
    Par nabelou1 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 30/01/2009, 17h33
  4. erreur 1004 'la méthode paste à échoué'
    Par zit_zit dans le forum Excel
    Réponses: 10
    Dernier message: 29/11/2008, 00h23
  5. Erreur 1004, methode Paste de l'objet Range.
    Par asxasx dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 20/08/2007, 11h05

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