Discussion :

[damsmut]

Bonjour,

--> EXCEL VBA

Est-il possible via une Iinputbox (ou autre) de demander à l'utilisateur de sélectionner une feuille du classeur en cliquant dessus ?
Ce nom de feuille sera récupérer dans une variable.

Merci d'avance.

[SilkyRoad]

bonsoir

tu peux tester

Code :

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

1
2
3
4
 
Dim X As String
Application.CommandBars("Workbook tabs").ShowPopup 400, 300
X = ActiveSheet.Name

bonne soiree
michel

[conconbrr]

Je te mets le code de ce que je ferais à ta place :

Dans un module à part :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
Public Page_Initiale, PageAGarder, Test As String
Sub Principal()
 
    Page_Initiale = ActiveSheet.Name
    Test = Page_Initiale
 
    MsgBox "Veuillez cliquer sur la page voulue", vbInformation
 
End Sub
 
Sub Test_Page()
 
    If Test <> "" Then
 
        Test = ""
 
        PageAGarder = ActiveSheet.Name
 
        MsgBox "La page sélectionnée est : " & PageAGarder
 
        Worksheets(Page_Initiale).Activate
 
    End If
 
End Sub

Dans toutes tes pages :
(je sais c'est un peu lourd mais je vois pas d'autre manière)

Code :

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

1
2
3
4
5
Private Sub Worksheet_Activate()
 
    Call Test_Page
 
End Sub

Quand tu exécutes Principal tu peux alors cliquer sur une page et excel la garde en mémoire tout en faisant revenir à la page initiale.
C'est un peu brut de décoffrage mais bon ça doit facilement être améliorable, c'est l'idée qui compte

[damsmut]

Merci c'est super