vba desactiver les filtres avant de copier coller Résolu

Question

Bonjour,

Dernièrement j'ai mis en place grace à Patrice ce code
adapter à 5 classeurs différents.

Le problème c'est que ce copier coller concerne
des tableaux avec filtres et que si une personne oublie de retirer les filtres
ma base de donner devient incomplète.

Y a t  il un moyen simple de retirer le filtre après l'ouverture du classeur et avant le copier .

Merci par avance de vos réponses qui m'aident à progresser

Charlyjack

Rappel du code

Sub Recapsynthese()
Dim wbkSource As Workbook
Dim wshSource As Worksheet
Dim wshCible As Worksheet

Set wshCible = ActiveSheet
wshCible.Cells.Delete
'Titre Colonne
wshCible.Range("A1") = "Société juridique"
wshCible.Range("B1") = "Société de Gestion"
wshCible.Range("C1") = "Fournisseur"

'Mise en forme
wshCible.Range("A1:C1").Interior.Color = 13434879
wshCible.Range("A1:C1").Font.Bold = True

'Ouvrir Classeur 1
DebutNomFichier = wshCible.UsedRange.Rows.Count
Set wbkSource = Workbooks.Open("O:\DD\PILOT BUDGETAIRE\PILOT FACT\2012\FLUX FIN\COMMANDE 2012\COMMANDE FLUX FIN 2012.XLS")
Set wshSource = wbkSource.Worksheets(1)
DerniereLigne = wshSource.UsedRange.Rows.Count
wshSource.Range("A18:AC" & DerniereLigne).Copy wshCible.Range("B" & wshCible.UsedRange.Rows.Count + 1)
wshCible.Range("A" & DebutNomFichier & ":A" & wshCible.UsedRange.Rows.Count) = ("FLUX FIN")
wbkSource.Close

'Ouvrir Classeur 2
DebutNomFichier = wshCible.UsedRange.Rows.Count
Set wbkSource = Workbooks.Open("O:\DDOP\PILOTAGE BUDGETAIRE\PILOTAGE FACTURATION\2012\FLUX FINANCIERS\COMMANDE 2012\COMMANDE SUPPORT 2012.XLS")
Set wshSource = wbkSource.Worksheets(1)
DerniereLigne = wshSource.UsedRange.Rows.Count
wshSource.Range("A18:AC" & DerniereLigne).Copy wshCible.Range("B" & wshCible.UsedRange.Rows.Count + 1)
wshCible.Range("A" & DebutNomFichier & ":A" & wshCible.UsedRange.Rows.Count) = ("SUPPORT ")
wbkSource.Close





Configuration: Windows XP / Internet Explorer 7.0

f894009 · Accepted Answer

Bonjour,

Une facon de faire:

'Effacements des filtres
Sub Filtractif()
  Dim f As Filter
  'Nom de feuille a adapter
  Set ID = Worksheets("feuil1")
  If ID.AutoFilterMode Then
    indice = 0
    For Each f In ID.AutoFilter.Filters
      If f.On Then
        ID.ShowAllData
        Exit For
      End If
    Next
  End If
End Sub


Bonne suite

Vba desactiver les filtres avant de copier coller

1 réponse

Votre réponse