Macro Excel Copier/coller sans doublons

Bonjour,

Est-il possible de faire une macro Copier/coller sans doublons suivant les données afficher d'une colonne filtrer !!

Merci de vos retour.

Bonjour et bienvenue,

Oui

Mais pour aller plus loin, poste un bout de fichier exemple. https://forum.excel-pratique.com/viewtopic.php?f=2&t=13

Un exemple

Bonjour et merci de votre aide,

Ce que vous me donné en exemple ne concerne pas ma demande,

Je vous explique :

J'ai une feuille une liste de donnée sur laquelle il est possible de trier par mois et avec des sous totaux.

J'ai des colonnes nommer Repas avec le nombre, le montant et le total

Ce que je souhaite et quand je rajoute un montant de transport il se reporte automatiquement en bas de tableau avec le nombre, et si il existe déjà dans le bas de tableau il agrémente le total avec le nombre.

Ce tableau doit être fait suivant ce qui apparais sur l’écran (suivant le trie mensuel) et non sur la liste complète.

26test-2019.xlsx (499.18 Ko)

Ce que vous me donné en exemple ne concerne pas ma demande,

Bonjour marc,

je ne pouvais pas tout deviner, aucun fichier n'était adjoint à ta demande.

je vais regarder.

Bonjour

Merci de votre aide

Et désoler, je s'ai que vous ne pouviez pas le deviner.

Merci encore

Ce que je souhaite et quand je rajoute un montant de transport il se reporte automatiquement en bas de tableau avec le nombre, et si il existe déjà dans le bas de tableau il agrémente le total avec le nombre.

Dans quelle colonne ? A priori tu as bien une colonne Hrs Route avec un sous-total !

Re bonjour,

C'est sur la colonne

Repas Soir+Pdj

Bonjour,

J'ai peux étre trouver une solution :

Faire un TCD en bas de ma feuille.

Mes comment faire pour que ce dernier ce trie suivant le mois afficher en B19 ?

Merci de vos retour.

Sur ton TCD, sur les dates, fais clic droit > grouper et choisis année et mois

Ensuite sur les mois de ton TCD, fais juste trier A>Z

Cela devrait fonctionner

Par contre, j'espère que les sous-totaux ne perturberont pas !

Bonsoir,

Mon tcd dois être trier suivant la date indiquer sur une cellule exemple B5.

Comment faire ?

Merci

J'ai du mal à te suivre ... on ne trie pas par rapport à une cellule, on trie un ensemble de données.

Mets un bout de fichier, ce sera plus pertinent.

Bonjour

Je te joint un fichier

Ce dernier a :

  • un bouton Filtrer
  • un bouton sans filtre
Ce qui permet de filtrer ma feuille suivant le mois choisi sur la cellule B1

En bas du tableau il y a un TCD qui me permets de savoir le nombre de chaque prix de zone avec le total de chaque zone.

Ce que je désir faire est que lors du filtrage de ma feuille ma TCD ce filtre aussi suivant le mois choisi.

Merci de votre retour.

L'un des problèmes est qu'il y a des dates en colonne B qui ne sont pas des dates comme 2018/janvier, on ne peut donc pas grouper par année & mois. Il faut d'abord changer cela.

... et éviter les cellules fusionnées (total)

un essai ...

34test-2019-macro.xlsm (610.01 Ko)

Super

Cela me parais cool, merci encore pour ton aide.

Je me permettrais de revenir vers toi si besoin.

Merci encore.

Re bonjour,

Petit problème :

Je suis obliger de garde mes lignes telle quelle sur la colonne B

De ce fait j'ai créer deux colonnes :

Mois

Année

Est-il possible de faire filtre du TCD sur cela ?

et laisser mes autres colonnes telle quelle ?

Merci d’avance

Je suis obliger de garde mes lignes telle quelle sur la colonne B

Pourquoi ?

C'est trop tordu !!

Je vais quand même voir, mais ce n'est pas du tout une façon logique de structurer une feuille.

Sub FiltreMoisFiche()

    mois = [F1]: an = [G1]
    moisLib = Format(DateSerial(an, mois, 1), "yyyy/mmmm")
    dateFin = mois & "/" & Day((DateSerial(an, mois + 1, 1) - 1)) & "/" & an
    ActiveSheet.Range("$A$3:$W$5435").AutoFilter Field:=2, Criteria1:=Array(moisLib, "Total"), _
       Operator:=xlFilterValues, Criteria2:=Array(1, dateFin)

    ActiveSheet.PivotTables("TCD 1").PivotFields("Année").ClearAllFilters
    ActiveSheet.PivotTables("TCD 1").PivotFields("Année").CurrentPage = CStr(Range("G1"))
    ActiveSheet.PivotTables("TCD 1").PivotFields("Mois").ClearAllFilters
    ActiveSheet.PivotTables("TCD 1").PivotFields("Mois").CurrentPage = CStr(Range("F1"))

End Sub
Sub SansFiltre()

    ActiveSheet.Range("$A$1:$W$5435").AutoFilter Field:=2

    ActiveSheet.PivotTables("TCD 1").PivotFields("Mois").ClearAllFilters
    ActiveSheet.PivotTables("TCD 1").PivotFields("Mois").CurrentPage = "(All)"
    ActiveSheet.PivotTables("TCD 1").PivotFields("Année").ClearAllFilters
    ActiveSheet.PivotTables("TCD 1").PivotFields("Année").CurrentPage = "(All)"

End Sub
Rechercher des sujets similaires à "macro copier coller doublons"