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 :

Manipuler des dates avec Find [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Novembre 2009
    Messages
    67
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Novembre 2009
    Messages : 67
    Points : 85
    Points
    85
    Par défaut Manipuler des dates avec Find
    Bonjour,

    Alors je vais commencer par vous expliquer ce que je cherche à faire...

    Je travaille sur un classeur Excel lequel contient plusieurs feuilles. La première feuille doit récupérer des informations qui se trouvent dans les autres feuilles pour en faire un planning.

    Ce que je cherche à faire maintenant c'est de récupérer une date dans une des feuille, la stocké dans une variable et la retrouver par la suite dans la première feuille (planning). Le but final est de se placer sur une colonne et copier tout le contenu d'un mois

    Voilà donc ce que j'ai fait:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    Sub testDate()
        Dim foundCell As Range
        Dim stringDate As String
     
        Set foundCell = chargeDaffaire1.Range("A8:F8").Find(what:="01.07.2009")
        stringDate = foundCell.Value
        Set foundCell = maFeuil1.Range("A5:F5").Find(what:=stringDate)
        foundCell.Select
    End Sub
    Donc quand j’exécute ce code au "pas à pas" (avec la touche F8) tout se passe correctement la cellule est sélectionnée et je suis content. Par contre, quand j'exécute ce code avec un bouton, pour une raison obscure, le compilateur me retourne une

    "Erreur d'exécution '91':

    Variable objet ou variable de bloc With non définie

    C'est vrai que j'ai un peu de peine à comprendre ce qui se passe

    voici où l'erreur ést rencontrée...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
        
        Set foundCell = chargeDaffaire1.Range("A8:F8").Find(what:="01.07.2009")
        stringDate = foundCell.Value
        Set foundCell = maFeuil1.Range("A5:F5").Find(what:=stringDate)
        foundCell.Select
    Si je pointe la souris sur la variable foundCell ça me retourne "Nohting" comme si la recherche n'avait rien trouvé...

    Voilà si quelqu'un aurait une piste à me donner parce que là je vois vraiment pas ce qui cloche.

  2. #2
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Points : 24 327
    Points
    24 327
    Par défaut
    Voici comment il faut procéder avec le Find.
    J'ai supposé que tes dates (dans les feuilles) étaient bien des dates et non du texte.
    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
    16
    17
    Sub testDate()
      Dim foundCell As Range
      Dim dDate As Date
     
      Set foundCell = chargeDaffaire1.Range("A8:F8").Find(What:=CDate("01.07.2009"), LookAt:=xlWhole)
      If Not foundCell Is Nothing Then
        dDate = foundCell.Value
        Set foundCell = maFeuil1.Range("A5:F5").Find(What:=dDate, LookAt:=xlWhole)
        If Not foundCell Is Nothing Then
          foundCell.Select
        Else
          ' Ici tu écris un code qui gère le cas où la 2ème date ne serait pas trouvée
        End If
      Else
        ' Ici tu écris un code qui gère le cas où la 1ère date ne serait pas trouvée
      End If
    End Sub
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Novembre 2009
    Messages
    67
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Novembre 2009
    Messages : 67
    Points : 85
    Points
    85
    Par défaut Merci
    Merci beaucoup AlainTech ca marche niquel

  4. #4
    Expert éminent
    Avatar de MarcelG
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2009
    Messages
    3 449
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 66
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2009
    Messages : 3 449
    Points : 7 149
    Points
    7 149
    Billets dans le blog
    7
    Par défaut méthode Find recherche Date VBA
    Bonjour,

    La recherche de dates par VBA est un sujet récurent.

    L'exposé du document joint me semble intéressant.

    Je le mets à disposition.

    Bien Cordialement.

    Marcel

    Dernier billet:
    Suppression des doublons d'un tableau structuré, gestion d'un array

    Pas de messagerie personnelle pour vos questions, s'il vous plaît. La réponse peut servir aux autres membres. Merci.


+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Manipulation des dates avec la classe Calendar
    Par mesken dans le forum Langage
    Réponses: 14
    Dernier message: 18/02/2011, 20h23
  2. [JDBC] manipulation des dates/heures en Java
    Par kurkLord dans le forum JDBC
    Réponses: 6
    Dernier message: 09/08/2004, 13h49
  3. Manipulations des Dates
    Par kurtc dans le forum Langage SQL
    Réponses: 11
    Dernier message: 13/04/2004, 15h39
  4. [IB6][BCB5]Manipulation des dates.
    Par Sitting Bull dans le forum SQL
    Réponses: 4
    Dernier message: 09/04/2004, 16h33
  5. Manipuler des dates...
    Par Ti Jen-tsie dans le forum Langage
    Réponses: 4
    Dernier message: 26/06/2003, 12h46

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