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 :

Macro recherche date


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    73
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 73
    Par défaut Macro recherche date
    Allo tout le monde, votre aide est appréciée.
    Résumé simple du cas
    Je travaille dans tableau excel qui a 10 colonnes et 65536 lignes.
    colonne A= date
    colonne B= Prenom
    colonne C= Nom
    colonne D= Titre
    colonne C= quart
    etc

    je voudrais une macro pour faire une recherche entre 2 dates. Je veux pouvoir rentrer une date de début et une date de fin dans un userform et faire recherche dans cette intervalle.
    Merci pour aide.

    http://cjoint.com/?1dfdeyhMNmj

    http://cjoint.com/?1dfdhvLSoOf

  2. #2
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonjour.

    Citation Envoyé par duplaly Voir le message
    Je veux pouvoir rentrer une date de début et une date de fin dans un userform et faire recherche dans cette intervalle.
    Et tu veux trouver quoi?

    COrdialement,

    PGZ

  3. #3
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour,
    dans l'USF :
    2 DTpicker 1 nommé "debut", 1 nommé "fin"
    1 listbox
    ton bouton de commande
    tu ajouteras les colonnes désirées
    et code dansl'USF
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Private Sub CommandButton1_Click()
    Dim derlg As Long, i As Long
    x = 1
    With Sheets("Nazaire")
       derlg = .Range("A" & .Rows.Count).End(xlUp).Row
       ListBox1.Clear
       For i = 17 To derlg
          If CDate(.Range("A" & i)) >= CDate(debut) And CDate(.Range("A" & i)) <= CDate(fin) Then
             ListBox1.AddItem .Range("C" & i)
             ListBox1.Column(1, ListBox1.ListCount - 1) = .Range("B" & i)
          End If
       Next i
    End With
     
    End Sub
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  4. #4
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    je n'ai fiat que reprendre ton USF, il ne reste qu'a changer la feuille donc au lieu de :
    mettre
    apràs sur le listbox, à toi de choisir le nombre de colonnes,
    tu es novice mais je viens de compter dans l'éditeur VBA pas moins de 19 modules, je conviens que certains sont vides, mais...

    Sais-tu importer un USF ?, si oui je le joint tel quel et ça te donneras des idées.

    Bonne nuit, soirée chargée pour moi et fatigue
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  5. #5
    Membre actif
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    73
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 73
    Par défaut
    @ pgz
    Allo
    Je veux pouvoir à partir de la colonne (A ) qui renferme les dates
    mettre une date de début et de fin

    ensuite avec l'intervalle choisie je veux faire des recherches sur toutes les colonnes dépendant de ce que je veux voir.
    Merci pour ton aide


    @ casefayere
    Bonjour
    merci pour l'aide, mais rien ne fonctionne. Ma feuille de référence pour les recherches est Empl.

    je suis un novice dans VB, donc plus détaillées les réponses.

  6. #6
    Membre actif
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    73
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 73
    Par défaut Aide VBA pour mon fichier
    bonjour à vous
    Je travaille sur un fichier excel et j'ai l'impression que je tourne en rond.
    Ultimement,
    je voudrais être capable de choisir une date de début et de fin (colonne A)
    choisir un hopital (colonne I)
    choisir le titre (colonne D)
    et sortir le résultat dans ma feuille PAB exemple.
    la feuille Empl est la feuille principale pour faire la recherche.

    voici l'adresse pour le fichier.
    http://cjoint.com/?1diaL4Mh7v
    merci

Discussions similaires

  1. [XL-2003] Macro recherche + copie selon critère de dates
    Par exqlicit dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 08/09/2009, 14h50
  2. Débutant - Macro recherche de date
    Par joums dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 18/12/2007, 23h06
  3. Macro recherche dans le classeur
    Par Max485 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 09/04/2007, 15h07
  4. Outlook 2000 -> recherche date échéance dépassée
    Par petitsims dans le forum Outlook
    Réponses: 4
    Dernier message: 06/11/2006, 19h56
  5. recherche Date nulle dans une table
    Par lol_adele dans le forum Bases de données
    Réponses: 6
    Dernier message: 16/04/2004, 14h06

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