Accès direct aux feuilles d'un classeur

Résolu
old29 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
 old29 -
bonjour .. je dispose d'un classeur excel qui comporte 151 feuilles numérotées de 0 à 150 .. je voudrais créer une macro qui me permette en donnant le numéro dans une cellule de la 1ère feuille (la feuille 0) d'accéder directement à la feuille qui correspond au numéro saisi .. ex : je veux atteindre la feuille 29, je saisis dans la cellule de la feuille 0 le nombre 29 puis ENTER et automatiquement la feuille 29 apparaît à l'écran .. MERCI POUR VOTRE AIDE

2 réponses

  1. g Messages postés 1285 Statut Membre 578
     
    Bonjour,

    Dans le module de ta feuille 0 (accessible par Alt+F11) saisir
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("C5") Then
    Worksheets(Target.Value + 1).Activate
    End If
    End Sub

    Code valable pour la saisie du n° de la feuille en cellule C5 Range("C5"), à adapter selon besoin.

    Cordialement.
    1
    1. old29 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
       
      bonsoir merci pour ta réponse rapide
      mais je n'ai pas réussi
      j'ai bien changé le C5 en T2
      puisque la cellule de saisie des numéros dans la feuille 0 est T2
      mais si je rentre 29 dans la cellule T2 rien ne se passe
      je n'ai pas bien compris où il faut inscrire cette procédure
      pourtant j'ai bien fait Alt F11
      je ne suis pas très doué en VBA
      0
  2. old29 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
     
    re bonsoir .... j'ai réussi ... PARFAIT ... g encore merci ... c'est ma première question sur le forum ... résolue en un jour ... c'est GENIAL !
    0
    1. g Messages postés 1285 Statut Membre 578
       
      Très heureux pour toi !
      Bon dimanche.
      0
      1. old29 > g Messages postés 1285 Statut Membre
         
        MERCI idem
        0