Discussion :

[Invité]

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

[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

[Liloo14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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