"Erreur 91"
Résolu
Dan66
-
JB22 -
JB22 -
Bonjour à tous,
Alors voilà, j'ai un fichier Excel à plusieurs onglets de conception identique.
Tous ces tableaux ont des nombres de lignes différentes. (plusieurs centaines)
Et pour atteindre la fin du tableau, j'ai créer un bouton auquel j'ai affecter cette macro :
Sub GO_RÉCAP()
'
' GO_RÉCAP Macro
'
Cells.Find("DANY", , xlValues, xlWhole).Activate
End Sub
Seulement sur un tableau ça ne fonctionne plus, alors que ça fonctionne sur tous les autres,
et j'ai la fenetre de débogage et ce message qui s'affiche :
Erreur d'exécution "91":
Variable objet ou variable de bloc With non définie
Merci à tous pour votre aide.
Daniel.
Alors voilà, j'ai un fichier Excel à plusieurs onglets de conception identique.
Tous ces tableaux ont des nombres de lignes différentes. (plusieurs centaines)
Et pour atteindre la fin du tableau, j'ai créer un bouton auquel j'ai affecter cette macro :
Sub GO_RÉCAP()
'
' GO_RÉCAP Macro
'
Cells.Find("DANY", , xlValues, xlWhole).Activate
End Sub
Seulement sur un tableau ça ne fonctionne plus, alors que ça fonctionne sur tous les autres,
et j'ai la fenetre de débogage et ce message qui s'affiche :
Erreur d'exécution "91":
Variable objet ou variable de bloc With non définie
Merci à tous pour votre aide.
Daniel.
3 réponses
Bonjour,
Juste au passage, sur la feuille active la valeur DANY n'est pas présente dans au moins une cellule.
Juste au passage, sur la feuille active la valeur DANY n'est pas présente dans au moins une cellule.
Bon sang, mais oui, mais c'est bien sûr.
Un grand merci Le Pingou.
J'ai pris soin de protéger la cellule dans tous les tableaux.
Encore un GRAND MERCI.
Daniel.
Un grand merci Le Pingou.
J'ai pris soin de protéger la cellule dans tous les tableaux.
Encore un GRAND MERCI.
Daniel.
Bonjour,
Grâce à Le Pingou votre problème est résolu.
Je me permet de vous signaler une autre méthode :
1- Sub FIN()
2- ' FIN Macro
3- ' Macro enregistrée le 14/09/2008 par JB
'
4- [A65536].End(3).Offset(1, 0).Select
5- End Sub
On peut aussi créer une macro pour revenir au début (première ligne de la base).
Cgt,
JB22
Grâce à Le Pingou votre problème est résolu.
Je me permet de vous signaler une autre méthode :
1- Sub FIN()
2- ' FIN Macro
3- ' Macro enregistrée le 14/09/2008 par JB
'
4- [A65536].End(3).Offset(1, 0).Select
5- End Sub
On peut aussi créer une macro pour revenir au début (première ligne de la base).
Cgt,
JB22
