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.