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é

[iliesss]

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

bonjour Mr chris
je n'ai pas une idée a propos PowerQuery Svp donner moi un exemple ou une solution

[Philippe Tulliez]

Bonjour,

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

Avez-vous été consulter les liens proposés ?
J'utilise tous les jours la méthode AdvancedFilter soit sur la même ligne pour supprimer l'exportation précédente soit pour ajouter à une liste existante et je n'ai aucun soucis. Il faut juste comprendre la manière dont travaille le filtre avancé

[78chris]

RE à tous

bonjour Mr chris
je n'ai pas une idée a propos PowerQuery Svp donner moi un exemple ou une solution

Je peux te montrer sur ton fichier : poste en exemple représentatif

[iliesss]

bonjour
voici mon fichier demo
et merci beaucoup

[78chris]

Bonjour

On peut avec PowerQuery récupérer le contenu du tableau TablGrLivre puis créer autant de requêtes que de Comptes et afficher chacune dans un onglet

1. Soit cette démultiplication des onglets et Requêtes est manuelle et une simple actualisation est nécessaire pour que la ventilation tienne compte du contenu de TablGrLivre
2. soit on peut piloter PowerQuery en VBA pour
   
   • genérer la liste des comptes
   • vérifier pour chaque compte si l'onglet correspondant existe
   • dans la négative créer l'onglet et la requête correspondants
   • actualiser toutes les requêtes

Ci-joint le classeur correspondant à l'hypothèse 1

J'ai mis ton code en commentaire : ne reste qu'une Sub pour actualiser

[mfoxy]

Joli exemple Chris.

J'ajouterais que power query est bien plus simple à mettre en place que Vba, du moins pour les moins initiés.

Lorsque l'on sait exploiter, l'automatisation PwQr par VBA, Excel performe pour le traitement ETL, avec comme avantage de pouvoir piloter aisément toute la suite office, pour faire des mailing (Outlook) , publipostage (Word) , diapo (ppt), via le visual basic,...

Le tout sans devoir utiliser de programmes tiers, souvent honereux , demandant des surcouts pour mise à jours/ option supplémentaires, et pour lesquels des droits admin sont nécessaires.

[iliesss]

Merci Mr Chris
j'ai essayé de suivre votre hypothèse N°1 mais je n'ai trouver PowerQuery dans mon office 365 proplus



je vais le télécharger maintenant

[78chris]

RE

Ce n'est pas un complément c'est totalement intégré à Excel 2016+, donc rien a installer

[iliesss]

RE

Ce n'est pas un complément c'est totalement intégré à Excel 2016+, donc rien a installer

Salut
Mais ou je vais trouvé menu power query

[iliesss]

Je suis vraiment.........
C'est bon j'ai trouvé power Query
C'est dans onglé data

[iliesss]

salut
merci Mr Chris
c'est la première fois que j'utiliser le power query et j'ai beaucoup manipuler les table et enfin je me trouve dans cette situation
maintenant comment affecter chaque table a sa feuil


je pense que la deuxième hypothèse plus rapide et très automatiser car mon grand livre contient beaucoup de comptes et beaucoup d'enregistrements.

au début je vais commencer de générer la liste des comptes et qu'elle est la méthode la plus rapide ?

Svp orienter moi pour beaucoup mieux avance

[78chris]

Bonjour

Il peut être nécessaire d'ajouter quelques contrôles: là on contrôle seulement que la feuille n'existe pas avant de créer l'onglet et la requête

La liste des compte est généré par requête et se trouve dans le 1er onglet : tu peux déplacer sur un autre onglet mais pas supprimer

[iliesss]

Bonjour

Bonsoir Mr Chris
Merci pour votre message et pour le code
j'ai passer beaucoup de temps pour comprendre comment le code fonction
Et maintenant je vais ajouter quelque modification et améliorer la vitesse d'exécution du code sans modifier vos conseils

- générer la liste des comptes
- vérifier pour chaque compte si l'onglet correspondant existe
- dans la négative créer l'onglet et la requête correspondants
- actualiser toutes les requêtes

Et a al fin je vais vous monter mon travail et a vous de noter

merci beaucoup