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

Résolu

Cluses74 -

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

Afficher la suite

3 réponses

Réponse 1 / 3
Patrice33740
Bonjour

Pour activer une feuille d'un classeur :
```
   Workbooks("NomDuClasseur").Activate
   Workbooks("NomDuClasseur").Worksheets("NonDeLaFeuille").Activate
```
Avec VBA, il ne faut utiliser .Activate que lorsque c'est le but final.
Il absolument éviter d'activer inutilement des objets, notamment pour agir sur l'objet actif.
Il est bien plus efficace d'agir directement sur l'objet concerné sans l'activer.
0
1. Cluses74 Auteur
  
  Bonsoir,
  Je ne comprends pas bien votre réponse ma combobox est dans mon userform ce qui me permet de choisir la référence à traiter mais je pense que cette référence soit activée pour pouvoir effectuer des macro VBA sur cette référence choisie.
  Merci
  
  0
2. Patrice33740
  
  @Cluses74Hein ?????
  
  0
3. Cluses74 Auteur
  
  Je sais que je suis pas un ingénieur en programmation mais votre réaction me surprend. Heureusement que nous ne sommes pas comme cela en mécanique.
  Merci quand même de votre réponse.
  
  0
4. Patrice33740
  
  Je ne suis pas informaticien. ce que je ne comprend pas c'est :
  « je pense que cette référence soit activée pour pouvoir effectuer des macro VBA sur cette référence choisie. »
  
  Ma première réponse concerne la question initiale :
  « j'aimerai savoir quel code je dois mettre pour activer la feuille sélectionnée dans ma liste déroulante »
  
  0
5. Cluses74 Auteur
  
  Voilà, d'après cette combobox je choisi une référence représentée par une feuille de calcul. Dans cette feuille je vais chercher une information dans une textBox qui s'affiche dans mon userform. Mais si je change de référence l'information de la première feuille de calcul reste affichée dans la référence suivante. Voilà pourquoi je pensais qu'il fallait activer le choix de chaque feuille de calcul mais je pense que le problème est ailleurs.
  Merci
  
  0
Réponse 2 / 3
cs_Le Pivert Contributeur
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 Auteur
  
  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 Auteur
  
  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
3. cs_Le Pivert Contributeur
  
  Le code que je t'ai donné fonctionne correctement. Il faut voir de ton coté le reste du code. Il se peut que ce soit une variable qui n'est pas déclaré ou avec un nom protégé (faisant partie de vba comme Date, Name etc.) .
  Donc poste la totalité de ton code pour que l'on est une vue d'ensemble de ton problème.
  
  0
4. cs_Le Pivert Contributeur
  
  En cherchant un peu, j'ai trouvé cela. Regarde si cela correspond à ton cas!
  
  https://fr.wikiversity.org/wiki/Macros-commandes_VBA/D%C3%A9bogage#Erreur_d'ex%C3%A9cution_'70':_Acc%C3%A8s_refus%C3%A9
  
  en lisant ces lignes, cela proviendrait de ta ComboBox qui n'est pas vide!
  
  @+
  
  0
5. cs_Le Pivert Contributeur
  
  Ta Combobox est déjà remplie!
  Ce n'est pas nécessaire de la remplir de nouveau.
  
  Tu as 2 fois l'évenement :
  
  Private Sub UserForm_Initialize()
  
  Il suffit de mettre cela:
  
  Private Sub ComboBox1_Change() Sheets(ComboBox1.Text).Select Me.TextBox1.Value = ActiveSheet.Range("N5") Me.TextBox2.Value = ActiveSheet.Range("O5") End Sub 'inscription du stock en cours O5 et adressage depot Private Sub UserForm_Initialize() ComboBox1.ListIndex = 1 End Sub
  
  Dans la feuille Listes à la ligne 6 changer 36 par 33
  
  voilà pour l'instant ce qui te permettra de faire tourner tes macros
  
  0
Réponse 3 / 3
Patrice33740
Bonjour,

Bonjour,

2 jours que ce fil tourne en rond par manque d'information, pour répondre efficacement il serait plus simple de disposer de ton fichier, débarrassé des informations confidentielles s'il y lieu.

Déposes le fichier avec des commentaires explicatifs détaillés sur
https://mon-partage.fr/
et mets le lien obtenu dans ton prochain message.
0
1. Cluses74 Auteur
  
  Bonsoir,
  Je vous ai fait suivre le fichier
  Merci
  
  0
2. Patrice33740
  
  Où ça ???
  
  0
3. Cluses74 Auteur
  
  Voici le lien
  https://mon-partage.fr/admin/fGWCKRjS/QMaxtvoC/
  
  0

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

3 réponses

Discussions similaires

Newsletters