Discussion :

[iliesss]

Bonjour
voici le code suivant qui utilise option AdvancedFilter pour Copier et Coller vers une autre feuil.

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
Option Explicit
Sub Copy_Avec_AdvancedFilter()
    Dim ShGrLvr As Worksheet, ShMsq As Worksheet
    Dim RgData As Range, RgCriter As Range, Rg As Range
    Dim DerLig As Long, LastRow As Long
 
    Set ShGrLvr = ThisWorkbook.Worksheets("Grand livre")
    Set ShMsq = ThisWorkbook.Worksheets("40120")
    Set RgData = ShGrLvr.Range("TablGrLivre[#All]")
    Set RgCriter = ShGrLvr.Range("TablCritere[#All]")
    DerLig = ShGrLvr.Cells(ShGrLvr.Rows.Count, 1).End(xlUp).Row
    LastRow = ShMsq.Cells(ShMsq.Rows.Count, 1).End(xlUp).Row + 1
 
    RgData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=RgCriter, CopyToRange:=ShMsq.Cells(LastRow, 1)
    ShMsq.Rows(LastRow & ":" & LastRow).Delete Shift:=xlUp
 
    Application.CutCopyMode = False
 
 End Sub

Svp j'ai deux questions
1- est ce que je peux copier sans l’entête



2- est ce que je peux coller les cellules copier dans la cellule A9 par exemple et sans écraser les cellule existant
pour ce la j'ai essayer de modifier mon code et changer cette ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RgData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=RgCriter, CopyToRange:=ShMsq.Cells(LastRow, 1)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RgData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=RgCriter, CopyToRange:=ShMsq.Cells(9, 1)

et voila le message d'erreur

[Invité]

Bonjour,

Il faut que le nom de vos champs soient strictement identiques à ceux de la base d'extraction. Ici Libelle, Debit et Credit n'ont pas la même syntaxe.

[Philippe Tulliez]

Bonjour,
Pour répondre à la première question "1- est ce que je peux copier sans l’entête", non ce n'est pas possible.
La zone d'exportation (cible) pour les filtres avancés doit être soit une cellule vide et alors toutes les colonnes sont exportées soit une ou plusieurs cellules qui contiennent les étiquettes de colonne de la zone source avec la même orthographe et dans un ordre quelconque.

Donc une méthode pour ajouter des données à une liste existante, consiste à

1. copier la ligne des titres de la feuille cible vers la ligne qui suit la dernière remplie
2. on exporte avec la méthode AdvancedFilter en définissant comme zone cible cette dernière (argument CopyToRange)
3. On supprime la plage CopyToRange

[iliesss]

Merci Pour Vos réponses
donc les cellules copier avec AdvancedFilter sont toujours coller en dessous des anciens

[Philippe Tulliez]

Bonjour,

donc les cellules copier avec AdvancedFilter sont toujours coller en dessous des anciens

Mais pas du tout.
J'ai donné une astuce par rapport à l'image affichée à l'ouverture de la discussion.
Il est évident qu'il est parfaitement possible d'exporter dans la même zone d'exportation mais alors les lignes du dessous s'efface.
La méthode AdvancedFilter c'est le filtre avancé d'excel. Faites vos tests manuellement et vous verrez

Voir l'Exemple d'une consultation des mouvements de stock avec la méthode AdvancedFilter ayant un tableau structuré comme source

Pour en savoir plus sur les filtres avancés, je conseille la lecture de ce tutoriel Les filtres avancés ou élaborés dans Excel

[78chris]

Bonjour à tous

Si la source garde ses lignes et si la cible n'est pas sensée être modifiée (en dehors de l'ajout éventuel d'une ou 2 colonnes) préférer une requête PowerQuery

[iliesss]

Bonjour,

l'image affichée à l'ouverture de la discussion c'est une partie du code
la ligne N°15 supprime L’entêté