modif sur macro filtre...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais, à nouveau, votre aide afin de modifier une macro me servant à filtrer et transférer des données en fonction d'une date.

voir fichier

Merci, par avance pour votre aide et pour le temps que vous voudrez bien m'accorder.

Bien à vous,
Christian

 

[flyonets44]

Re : modif sur macro filtre...

Bonjour
Voici ton fichier avec la macro filtrersemaine ajoutée
on peut optimiser éventuellement en proposant un choix
Cordialement
Flyonets😱

 

[Christian0258]

Re : modif sur macro filtre...

Re, le forum, flyonets44,

Merci, flyonets44, pour ton travail.

Après essai, je n'ai pas le résultat attendu ; récupérer l'ensemble des dates en fonction d'un numèro de semaine taper en G1. De plus il me semble difficle de formater en colonne A le format "##".

"on peut optimiser éventuellement en proposant un choix" c'est à dire...intéressant...

Peux-tu me dire.
Merci beaucoup,

à te lire,
Christian

 

[job75]

Re : modif sur macro filtre...

Bonjour Christian0258, flyonets44,

Pas essayé de comprendre pourquoi les macros que vous utilisez sont des usines à gaz...

Un filtrage avec un seul critère c'est vraiment très très simple :

Sub FiltrerSurSemaine()
Dim plage As Range
With Sheets("Report Donnees")
  .Cells.Clear
  ActiveSheet.AutoFilterMode = False
  Set plage = Range("A1:F" & [A65536].End(xlUp).Row)
  plage.AutoFilter 1, [G1]
  plage.SpecialCells(xlCellTypeVisible).Copy .[A1]
  ActiveSheet.AutoFilterMode = False
  .Activate 'facultatif
End With
End Sub

Fichier joint.

A+

 

[Christian0258]

Re : modif sur macro filtre...

Re, le forum, job75,

Effectivement...très, très simple...par job75...lol

Merci beaucoup, job75 pour ce beau boulot.

Bien à toi,
Christian