Bonjour à toutes et tous.
J'ai un tableau contenant plusieurs feuilles, et je souhaite créer un bouton
macro sur une feuille qui me permette de revenir cette fois ci sur l'avant
dernière feuille sélectionnée. Ex: si je passe de la feuille 13 à 18, le
fait de cliquer sur le bouton se trouvant sur la feuille 18 me renvoit sur
la feuille 13
Merci beaucoup.
Patrick.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Orel,
Dans un module Standard :
Déclaration de la variable dans le haut du module :
Public AvantDernièreFeuilleSelect As Integer
Et la macro à appeler par un bouton ... ou raccourci '------------------------------ Sub AvantDernièreFeuilleS() If AvantDernièreFeuilleSelect <> 0 Then Sheets(AvantDernièreFeuilleSelect).Select End If End Sub '------------------------------
Dans le ThisWorkbook, tu copies ceci : '----------------------------- Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) AvantDernièreFeuilleSelect = Sh.Index End Sub '-----------------------------
Salutations!
"Crel" a écrit dans le message de news:% Bonjour à toutes et tous. J'ai un tableau contenant plusieurs feuilles, et je souhaite créer un bouton macro sur une feuille qui me permette de revenir cette fois ci sur l'avant dernière feuille sélectionnée. Ex: si je passe de la feuille 13 à 18, le fait de cliquer sur le bouton se trouvant sur la feuille 18 me renvoit sur la feuille 13 Merci beaucoup. Patrick.
Bonjour Orel,
Dans un module Standard :
Déclaration de la variable dans le haut du module :
Public AvantDernièreFeuilleSelect As Integer
Et la macro à appeler par un bouton ... ou raccourci
'------------------------------
Sub AvantDernièreFeuilleS()
If AvantDernièreFeuilleSelect <> 0 Then
Sheets(AvantDernièreFeuilleSelect).Select
End If
End Sub
'------------------------------
Dans le ThisWorkbook, tu copies ceci :
'-----------------------------
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
AvantDernièreFeuilleSelect = Sh.Index
End Sub
'-----------------------------
Salutations!
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le message de news:%23c0vGexQDHA.2852@tk2msftngp13.phx.gbl...
Bonjour à toutes et tous.
J'ai un tableau contenant plusieurs feuilles, et je souhaite créer un bouton
macro sur une feuille qui me permette de revenir cette fois ci sur l'avant
dernière feuille sélectionnée. Ex: si je passe de la feuille 13 à 18, le
fait de cliquer sur le bouton se trouvant sur la feuille 18 me renvoit sur
la feuille 13
Merci beaucoup.
Patrick.
Déclaration de la variable dans le haut du module :
Public AvantDernièreFeuilleSelect As Integer
Et la macro à appeler par un bouton ... ou raccourci '------------------------------ Sub AvantDernièreFeuilleS() If AvantDernièreFeuilleSelect <> 0 Then Sheets(AvantDernièreFeuilleSelect).Select End If End Sub '------------------------------
Dans le ThisWorkbook, tu copies ceci : '----------------------------- Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) AvantDernièreFeuilleSelect = Sh.Index End Sub '-----------------------------
Salutations!
"Crel" a écrit dans le message de news:% Bonjour à toutes et tous. J'ai un tableau contenant plusieurs feuilles, et je souhaite créer un bouton macro sur une feuille qui me permette de revenir cette fois ci sur l'avant dernière feuille sélectionnée. Ex: si je passe de la feuille 13 à 18, le fait de cliquer sur le bouton se trouvant sur la feuille 18 me renvoit sur la feuille 13 Merci beaucoup. Patrick.
Crel
Ok, je teste. Merci beaucoup. Patrick.
"michdenis" a écrit dans le message de news:
Bonjour Orel,
Dans un module Standard :
Déclaration de la variable dans le haut du module :
Public AvantDernièreFeuilleSelect As Integer
Et la macro à appeler par un bouton ... ou raccourci '------------------------------ Sub AvantDernièreFeuilleS() If AvantDernièreFeuilleSelect <> 0 Then Sheets(AvantDernièreFeuilleSelect).Select End If End Sub '------------------------------
Dans le ThisWorkbook, tu copies ceci : '----------------------------- Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) AvantDernièreFeuilleSelect = Sh.Index End Sub '-----------------------------
Salutations!
"Crel" a écrit dans le message de news:%
Bonjour à toutes et tous. J'ai un tableau contenant plusieurs feuilles, et je souhaite créer un bouton
macro sur une feuille qui me permette de revenir cette fois ci sur l'avant dernière feuille sélectionnée. Ex: si je passe de la feuille 13 à 18, le fait de cliquer sur le bouton se trouvant sur la feuille 18 me renvoit sur la feuille 13 Merci beaucoup. Patrick.
Ok, je teste.
Merci beaucoup.
Patrick.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uWbJDuyQDHA.2636@TK2MSFTNGP10.phx.gbl...
Bonjour Orel,
Dans un module Standard :
Déclaration de la variable dans le haut du module :
Public AvantDernièreFeuilleSelect As Integer
Et la macro à appeler par un bouton ... ou raccourci
'------------------------------
Sub AvantDernièreFeuilleS()
If AvantDernièreFeuilleSelect <> 0 Then
Sheets(AvantDernièreFeuilleSelect).Select
End If
End Sub
'------------------------------
Dans le ThisWorkbook, tu copies ceci :
'-----------------------------
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
AvantDernièreFeuilleSelect = Sh.Index
End Sub
'-----------------------------
Salutations!
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le message de
news:%23c0vGexQDHA.2852@tk2msftngp13.phx.gbl...
Bonjour à toutes et tous.
J'ai un tableau contenant plusieurs feuilles, et je souhaite créer un
bouton
macro sur une feuille qui me permette de revenir cette fois ci sur l'avant
dernière feuille sélectionnée. Ex: si je passe de la feuille 13 à 18, le
fait de cliquer sur le bouton se trouvant sur la feuille 18 me renvoit sur
la feuille 13
Merci beaucoup.
Patrick.
Déclaration de la variable dans le haut du module :
Public AvantDernièreFeuilleSelect As Integer
Et la macro à appeler par un bouton ... ou raccourci '------------------------------ Sub AvantDernièreFeuilleS() If AvantDernièreFeuilleSelect <> 0 Then Sheets(AvantDernièreFeuilleSelect).Select End If End Sub '------------------------------
Dans le ThisWorkbook, tu copies ceci : '----------------------------- Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) AvantDernièreFeuilleSelect = Sh.Index End Sub '-----------------------------
Salutations!
"Crel" a écrit dans le message de news:%
Bonjour à toutes et tous. J'ai un tableau contenant plusieurs feuilles, et je souhaite créer un bouton
macro sur une feuille qui me permette de revenir cette fois ci sur l'avant dernière feuille sélectionnée. Ex: si je passe de la feuille 13 à 18, le fait de cliquer sur le bouton se trouvant sur la feuille 18 me renvoit sur la feuille 13 Merci beaucoup. Patrick.
