IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

VBA - Afficher seulement les elements du jour


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut 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

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    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
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2012
    Messages
    143
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Transports

    Informations forums :
    Inscription : Juin 2012
    Messages : 143
    Par défaut 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 : 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

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    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
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

Discussions similaires

  1. afficher seulement les mois jusquà la date du jour
    Par PAYASS59 dans le forum Deski
    Réponses: 88
    Dernier message: 28/04/2010, 15h27
  2. [XSLT] afficher seulement les données de id="2"
    Par paricilas dans le forum XSL/XSLT/XPATH
    Réponses: 5
    Dernier message: 08/02/2007, 15h23
  3. Réponses: 7
    Dernier message: 24/04/2006, 15h48
  4. [JFileChooser] Afficher seulement les répertoires
    Par Cyborg289 dans le forum Agents de placement/Fenêtres
    Réponses: 2
    Dernier message: 04/09/2005, 15h45
  5. Réponses: 2
    Dernier message: 23/11/2003, 18h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo