modif sur macro filtre...

F

flyonets44

XLDnaute Occasionnel

• 20 Juin 2011

• #2

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😱

 

Pièces jointes

• EssaiFiltre.xls

  146 KB · Affichages: 67
• EssaiFiltre.xls

  146 KB · Affichages: 70
• EssaiFiltre.xls

  146 KB · Affichages: 64

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 20 Juin 2011

• #3

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

 

Dernière édition: 20 Juin 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Juin 2011

• #4

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 :

Code:

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+

 

Pièces jointes

• EssaiFiltre(1).xls

  121.5 KB · Affichages: 61

Dernière édition: 20 Juin 2011

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 20 Juin 2011

• #5

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

 

Vote positif 0 Vote négatif