Sujet Précédent Sujet Suivant

Excel : invite à l'ouverture

Résolu/Fermé
PdU Messages postés 2 Date d'inscription vendredi 29 janvier 2010 Statut Membre Dernière intervention 29 janvier 2010 - 29 janv. 2010 à 12:34
PdU Messages postés 2 Date d'inscription vendredi 29 janvier 2010 Statut Membre Dernière intervention 29 janvier 2010 - 29 janv. 2010 à 14:26
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
A voir également:

1 réponse

Réponse 1 / 1
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
29 janv. 2010 à 12:55
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
1
PdU Messages postés 2 Date d'inscription vendredi 29 janvier 2010 Statut Membre Dernière intervention 29 janvier 2010
29 janv. 2010 à 14:26
ça marche !!
Merci beaucoup de ta réponse et surtout de la rapidité !
0