Macro Excel Copier/coller sans doublons

Bonjour et merci de ton aide,

Cela me parais bien, (même mieux que bien)

Y a t'il un code à rajouter pour Actualisé des données ?

Merci d'avance.

Ah oui, tu as raison ... c'est prudent !

ActiveSheet.PivotTables("TCD 1").PivotCache.Refresh

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").PivotCache.Refresh

    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").PivotCache.Refresh

    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

ok merci

Désoler encore de te déranger, mais j'ai besoin que le rafraîchissement ce face à chaque écriture sur la feuille.

Merci d'avance.

Re bonjour,

Je me répond à moi-même .

J'ai trouve la solution

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Application.EnableEvents = False
ActiveSheet.PivotTables("TCD 1").RefreshTable
Application.EnableEvents = True

End Sub