Revenir sur la cellule sélectionné après exécution d'une macro

Bonjour, voici mon problème je un classeur excel avec 12 feuilles une pour chaque mois de l'anné. J'ai sur chaque feuille des boutons de commande qui qui font référence à des documents word incorporer dans la première feuille. Lorsque je me trouve sur la feuille 3 (Mars) et que je click sur mon bouton de commande pour ouvrir mon doc word, mon curseur se déplace sur la première feuille (Janvier).

Ce que je cherche c'est le code qui me permet de resté sur la cellule ou je me trouve en ce moment et non de de me diriger vers la première feuille.

voici mom code

Code:

---

Worksheets("Janvier").OLEObjects(7).Verb

---

Merci

Comme je n'ai pas compris, enfin pas tout, peux-tu dire ce que fait cette ligne

Citation:

---

Worksheets("Janvier").OLEObjects(7).Verb

---

A+

J'ai affecté cette ligne a un bouton de commande qui sert à ouvrir un document word incorporer dans la feuille (Janvier)

J'étais intrigué par le chiffre 7... : Ce n'est donc pas le N° du mois. :mouarf:

Citation:

---

Envoyé par Tu

Ce que je cherche c'est le code qui me permet de resté sur la cellule ou je me trouve en ce moment

---

Parce que quand tu cliques sûr le bouton, tu es dans une cellule et tu veux retourner sur cette cellule.
SilkyRoad ou bbil ont peut-être la solution.. Quant à moi, je n'en vois qu'une.
Quand tu te places sur le bouton, tu n'es plus dans la feuille de calculs. Donc, tu dois mémoriser le nom de la feuille et l'adresse de la cellule au moment où tu "quittes" la feuille.
Je ferais ça dans Worksheet_Deactivate et je placerais ça dans une cellule que tu n'utilises pas

Code:

---

1 2 3 4

Private Sub Worksheet_Deactivate() Cells(NoLigne, NoColonne).value = activesheet.name Cells(NoLigne+1, NoColonne).value = ActiveCell.Address End Sub

---

Dans le code du bouton, pour te replacer dans la bonne feuille et dans la bonne cellule, récupère le nom de la feuille et l'adresse de la cellule là où tu les as mis et active la feuille et sélectionne la cellule

Code:

---

1 2	Worksheets(NomDeLaFeuille).activate Range(Ladresse).select

---

Juste une idée
A+
Cells

Merci pour ton aide, il y a une autre embuche, toute mes feuilles ont les mêmes boutons.

Bonjour

Je pense que ton code serait à revoir, car tu as sûrement des sélections de cellules dans le code de ton userform (boutons ou autres) alors que tu peux manipuler des cellules sans avoir à les sélectionner d'abord.

Si maintenant, ton code doit absolument (ce dont je doute) modifier la sélection active et que tu veux revenir à cette sélection, le plus simple est d'utiliser ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim PlageActive As Range   Private Sub UserForm_Activate() Set PlageActive = ActiveCell End Sub   Private Sub UserForm_Terminate() ' Sélection de la feuille si la feuille de départ n'est plus active PlageActive.Parent.Select ' Sélection de la cellule PlageActive.Activate End Sub

---

Ok?

Mille et une fois merci, ca fonctionne.

J'ai besoin d'une explication :

Citation:

---

Envoyé par Daniel, tu

J'ai sur chaque feuille des boutons de commande qui qui font référence à des documents word incorporer dans la première feuille.

---

Les boutons sont dans les feuilles de calculs, non ? Pas dans un userform, si ? 8O

OUi les bouton sont sur chaques feuilles, et ca fonctionne j'ai modifié un peut le code voici:

Code:

---

1 2 3 4 5 6 7 8 9

Sub OuvrirVirementSalaire() Dim PlageActive As Range Set PlageActive = ActiveCell ' Sélection de la feuille si la feuille de départ n'est plus active Worksheets("Mars").OLEObjects(6).Verb PlageActive.Parent.Select ' Sélection de la cellule PlageActive.Activate End Sub

---

Encore mille fois merci