Comment activer une feuille de classeur à partir d'une combobox

Résolu
Cluses74 Messages postés 243 Statut Membre -  
Cluses74 Messages postés 243 Statut Membre -
Bonjour,
Je possède un classeur de 15 feuilles qui représentent mes références et j'aimerai savoir quel code je dois mettre pour activer la feuille sélectionnée dans ma liste déroulante combobox. Je possède Excel 2010 . Je n'arrive pas à trouver ce problème sur le forum.
Cordialement

Configuration: Windows / Internet Explorer 11.0

3 réponses

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Une autre manière de procéder au changement de sélection dans la ComboBox.

    Il faut que les valeurs liées aux TextBox soient dans les même cellules de chaque feuille:

    Option Explicit
    Private Sub ComboBox1_Change()
    Sheets(ComboBox1.Value).Activate
    TextBox1.Text = ActiveSheet.Range("A1").Value 'on affiche les valeurs
    TextBox2.Text = ActiveSheet.Range("A2").Value 'on affiche les valeurs
    End Sub
    Private Sub UserForm_Initialize()
    Dim f As Worksheet
    For Each f In ThisWorkbook.Worksheets
    ComboBox1.AddItem (f.Name) 'on rempli la ComboBox
    Next f
    ComboBox1.ListIndex = 0 'on affiche le 1er index de la ComboBox
    End Sub
    


    1
    1. Cluses74 Messages postés 243 Statut Membre
       
      Bonjour,
      Il n'y a pas de problème car toutes les feuilles de mon classeur sont identiques. Je fais l'essai et te confirme.
      Encore merci cela fait au moins une semaine que je cherche une solution
      0
    2. Cluses74 Messages postés 243 Statut Membre
       
      Jai copie ce code et maintenant j'ai le message Erreur d'exécution '70' . Accès refusé
      Ai je fait une mauvaise manip je ne comprends pas. Je recherche pourquoi ce message mais pas de chance
      Merci
      0