VBA - Afficher seulement les elements du jour

Version imprimable

20/07/2012, 11h17
Invité

VBA - Afficher seulement les elements du jour

Bonjour,

J'ai un tableau Excel que je remplie tous les jours en indiquant la date dans la colonne B (format - 20/7/12 11:17) et je souhaiterais qu'en appuyant sur un bouton seul les lignes avec la date du jour s'affiche, mais je ne trouve pas la formule pour le faire.

Merci
20/07/2012, 12h34
Philippe Tulliez

Bonjour,
Le filtre automatique fait cela très bien et si vraiment tu veux absolument faire du VBA, tu utilises l'enregistreur de macros en manipulant le filtre automatique et il va te générer le code adéquat.
[EDIT]
Depuis la version 2007
Onglet [Données], groupe Trier filtrer Filtrer
Clic sur la flèche de la colonne avec les dates, sélectionner Filtre chronologique et sélectionner Aujourd'hui

Petite solution

Bonjour Frerovic,
Je n'ai pas le niveau des autres intervenants ici mais comme moi même je bénéficie parfois de leur aide, à mon tour je tente de t'aider. Je ne te dis pas que ma solution est nickel mais elle fonctionne.
D'abord tu rentres la date du jour dans une colonne et l'heure dans une autre à côté. Tu utilises une cellule de référence que tu peux cacher par la suite qui te donneras la date du jour avec "=AUJOURDHUI()". Ensuite tu utilises la fonction IF comme dans le code ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub AffichageTempDuJour() If Sheets("Feuil1").Range("A1") <> Sheets("Feuil1").Range("F1") Then Sheets("Feuil1").Range("A1").EntireRow.Hidden = True End If If Sheets("Feuil1").Range("A2") <> Sheets("Feuil1").Range("F1") Then Sheets("Feuil1").Range("A2").EntireRow.Hidden = True End If If Sheets("Feuil1").Range("A3") <> Sheets("Feuil1").Range("F1") Then Sheets("Feuil1").Range("A3").EntireRow.Hidden = True End If If Sheets("Feuil1").Range("A4") <> Sheets("Feuil1").Range("F1") Then Sheets("Feuil1").Range("A4").EntireRow.Hidden = True End If End Sub
J'ai essayé, ça fonctionne.
Je te joins le fichier dans lequel j'ai fais l'essai.
J'espère t'avoir humblement aidé. Dis-moi si celà te convient.
Cordialement

Bonjour,
En utilisant l'enregistreur de macro et en allégeant le code

Code:

1
2
3
4
5
6
Option Explicit
Sub testB()
 Dim sht As Worksheet: Set sht = Worksheets("Feuil1")
 Dim rng As Range: Set rng = sht.Range("A1")
 rng.AutoFilter Field:=1, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
End Sub