récupérer la ou les valeurs d'un filtre dans un TCD

chris

XLDnaute Barbatruc

• 23 Mai 2016

• #2

Re : récupérer la ou les valeurs d'un filtre dans un TCD

Bonjour

la PJ n'est pas passé : essaie d’alléger le classeur

 

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 23 Mai 2016

• #3

Re : récupérer la ou les valeurs d'un filtre dans un TCD

Bonjour,
j'avais omis de la joindre.C'est fait maintenant
Perdinch

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 23 Mai 2016

• #4

Re : récupérer la ou les valeurs d'un filtre dans un TCD

Bonjour,

Voila un exemple qui fonctionne si le résultat fourni par le tcd est en cellule A4 de la feuille tcd.
La macro doit être exécutée à partir de cette feuille.

Code:

Sub Macro1()
  Dim temp As String
  Application.ScreenUpdating = False
  Range("A4").ShowDetail = True
  temp = ActiveSheet.Name
  Columns("A:A").Copy
  Sheets("tcd").Select
  Range("K1").Select
  ActiveSheet.Paste
  Application.DisplayAlerts = False
    Sheets(temp).Delete
  Application.DisplayAlerts = True
End Sub

J'ai obtenu l'essentiel du code grâce à l'enregistreur de macro !

Caillou

 

Vote positif 0 Vote négatif

P

perdinch

XLDnaute Occasionnel

• 23 Mai 2016

• #5

Re : récupérer la ou les valeurs d'un filtre dans un TCD

Merci

je vais tester.

Perdinch

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 23 Mai 2016

• #6

Re : récupérer la ou les valeurs d'un filtre dans un TCD

Bonjour

C'est astucieux mais sous réserve que la source du TCD ne contienne qu'une colonne...

 

Vote positif 0 Vote négatif