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:
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
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
"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...
Si je pointe la souris sur la variable foundCell ça me retourne "Nohting" comme si la recherche n'avait rien trouvé...
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
Voilà si quelqu'un aurait une piste à me donner parce que là je vois vraiment pas ce qui cloche.
Partager