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:

---

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 :calim2:

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

Code:

---

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.

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:

---

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

---

Merci beaucoup AlainTech ca marche niquel :ccool:

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.