erreur d excecution 1004

[loran45]

Bonjour a tous,

J ai une nouvelle fois besoin de votre aide, voila mon souci.

je suis dans la cellule D7 de la feuille 1, a coté j ai un bouton nommé ouvre_3d qui appel la feuille 2.
dans cette feuille 2 j ai un bouton nommé retour pour revenir a la feuille 1 et dans la cellule D7

pour cela j ai creer une variable globale e de type Range pour sauvegarder la cellule de la feuille 1 que j affecte par Worksheet(1).Range('D7')
quand je clique sur mon bouton 'ouvre_3d' ma feuille2 s ouvre, mais lorsque j appuies sur le bouton retour de cette dernière, j ai le message d erreur suivant :
Erreur d'execution:
La méthode Select de la classe Range a échoué

voici mon code :

Public e As Range
-------------------------
Sub ouvre_3d()
Set e = Worksheet(1).Range('D7')
Worksheets(2).Select
End Sub
--------------------------
Sub retour()
e.select
End Sub


Par avance merci

 

[PascalXLD]

Bonjour

essaies ainsi mais pas testé

Public e As Range
-------------------------
Sub ouvre_3d()
Set e = Range('D7')
Worksheets(2).Select
End Sub
--------------------------
Sub retour()
worksheets(1).select
e.select
End Sub

Bon courage

 

[loran45]

oui super çà marche

merci beaucoup

bon apres midi

Loran