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

[perdinch]

bonjour,

Dans un TCD, je souhaite lister par VBA la ou les valeurs issues du filtre de rapport (qui contient une sélection de jours) dans la colonne ("K" pour l'exemple)

en pièce jointe un fichier exemple

Merci de votre aide

perdinch

 

[chris]

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

 

[perdinch]

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

 

[Caillou]

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.

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

 

[perdinch]

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

Merci

je vais tester.

Perdinch

 

[chris]

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...