Excel : invite à l'ouverture Résolu

Question

Bonjour,

Mon fichier excel (2007) se compose de 7 feuilles (nommées lundi, mardi,mercredi...). Je souhaite mettre en place une invite à l'ouverture qui emmène l'utilisateur directement à la feuille désirée : "Quel jour souhaitez-vous étudier" ?

Merci d'avance pour votre aide

Bidouilleu_R · Answer

Bonjour dans visual basic editor ( Alt F11) aller dans Thisworbook
copier / coller ce code

Private Sub Workbook_Open()
Dim Sht As Variant
Dim S as String
S = InputBox("Quel jour souhaitez-vous étudier ?", "Sélection du jour", "LUNDI")
S = UCase(S)
For Each Sht In Worksheets
    If UCase(Sht.Name) = S Then
        Sht.Select
        Exit For
    End If
Next

End Sub

Excel : invite à l'ouverture

1 réponse

Newsletters