Discussion :

[Daniel-Gérald]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[ouskel'n'or]

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

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

A+

[Daniel-Gérald]

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

[ouskel'n'or]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Juste une idée
A+
Cells

[Daniel-Gérald]

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?