Discussion :

[utan88]

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.

[AlainTech]

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

[utan88]

Merci beaucoup AlainTech ca marche niquel

[MarcelG]

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.