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

Résolu/Fermé
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023 - 5 déc. 2018 à 17:00
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023 - 8 déc. 2018 à 22:40
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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 6 déc. 2018 à 11:49
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
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
6 déc. 2018 à 12:15
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
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
6 déc. 2018 à 19:05
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