Aller / Retour en utilisant des boutons

[Jean]

Bonsoir le forum.

J'espère que je ne vais pas faire sourire les spécialistes avec mon problème mais je suis nouveau en utilisation VBA.

Voici mon problème.

Sur la Sheet1, j'ai des lignes avec une description et plusieurs colonnes (une par mois et pour cinq ans).
Entre le description et la 1 ère colonne, je place un bouton. Quand je clique sur ce bouton, je veux sauter dans un autre onglet à un endroit précis qui me donne le détail du chiffre concerné. Sur cet onglet, j'ai un seul bouton qui me permet de revenir au point de départ car il utiliserait les coordonnées de la cellule "cliquée" sur la sheet1.

Donc je dois écrire plusieurs routine "Goto" pour aller voir les détails des rubriques. Ok pas de problème mais je n'arrive pas à mémoriser les coordonnées de la cellule active avant le clic et de réutiliser cet info pour revenir.

Voila, je suis ouvert à toutes les suggestions.

Merci pour l'aide que vous voudrez bien m'apporter.

Jean

 

[Jean-Marie]

Bonsoir, Jean

A mettre en début de procédure ou de module
Dim SavCellRow As Integer
Dim SavCellColumn As Integer

Public Sub Clic_Souris()
A mettre au début de la procèdure du clic_bouton
SavCellRow = ActiveCell.Row
SavCellColumn = ActiveCell.Column
....
Ton code
....
A mettre à la fin de la procédure du clic_bouton
Cells(SavCellRow, SavCellColumn).Select
End Sub

Voilà, comme mes connaissances en VBA sont nules.
J'espère ne pas avoir dit de "conn...".

Bonne soirée

@+Jean-Marie

 

[@+Thierry]

Bonsoir Jean-Marie, Jean et le Forum

Héhéhé, ils n'avaient pas annoncé de pluie, mais çà ferait pas de mal pourtant !!!

Non, Jean-Marie, tu t'es très bien débrouillé et tu n'as pas dit de "conn...", mais tu as occulté le fait que Jean changeait de Feuille...

Et puis on peut utiliser directement la propriété "Address" dans ce cas là.

Voici un exemple :

Dim PreviousAddress As String
Dim [/b]PreviousSheet[/b] As String

Sub LaMacroDepart()
PreviousSheet = ActiveSheet.Name
PreviousAddress = ActiveCell.Address

'Blah, Blah pour faire quelque Chose :
Sheets(2).Activate
Range("X1").Select
'blah, blah, blah TheMacro......
End Sub

Sub LaMacroRetour()
Sheets(PreviousSheet).Activate
Range(PreviousAddress).Select
End Sub

Bonne Nuit en attendant la pluie ;-)
@+Thierry

 

[Jean]

Bonjour à tous

D'abord un grand merci à thierry de m'avoir rappeler les règles de fonctionnement de ce forum.

Donc suite à sa proposition de solution, j'ai écrit la même chose sauf pour le moyen de "descendre" à la sheet2 quand je clique sur le bouton. J'utilise

Application.goto reference:="Int_Direct_Revenue"

Int_Direct_Revenue est une zone nommée dans ma seconde sheet. Cela pourrait-il être la cause de tout mes soucis ? Si oui, y a-t-il moyen d'utiliser les zones nommées d'une autre manière car je vais avoir une quinzaine de classeurs identiques mais concernant une société différente à chaque fois. De plus, si je rajoute des lignes dans la sheet2, je crois qu'il est plus facile de modifier la référence de la zone nommée que les adresses des cellules dans le code.

Encore merci pour ton aide (si c'est thierry qui s'y colle encore une fois) ou pour votre aide si c'est un autre calés d'excel/VBA qui me permet de faire avancer mon "schmilblik".

Jean