ElseIf bug dans une macro qui permet de selectionner un onglet

  • Initiateur de la discussion Initiateur de la discussion timon
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

timon

XLDnaute Nouveau
Bonjour,

J'ai un fichier avec beaucoup d'onglet et pour faciliter la navigation j'ai fait un menu dans lequel il y a 4 boutons (chaque bouton renvoi à un onglet spécifique) mais là où cela se gâte c'est qu'en plus des 4 boutons j'ai ajouter une liste déroulante avec une vingtaine de choix qui doit elle aussi renvoyer vers un onglet. J'ai écris mon code avec une fonction If et des ElseIf mais cela ne fonctionne pas, peu importe mon choix cela me renvoi à chaque fois sur le même onglet.

voici mon code :

Code:
Private Sub ComboBox1_Change()
 If Combox1 = Balkans Then
 Sheets("Balkans").Select
 ElseIf Combox1 = Biélorussie Then
 Sheets("BIE").Select
 ElseIf Combox1 = Bosnie Then
 Sheets("BOS").Select
 End If
End Sub

Si quelqu'un sait d'où vient l'erreur je suis preneur.

Merci d'avance!!
 
Re : ElseIf bug dans une macro qui permet de selectionner un onglet

Bonjour,

Juste comme ça, et avant d'aller plus loin, si Biélorussie ou Bosnie sont des chaînes de caractères, il convient de les encadrer par des guillemets !!!!!
Code:
ElseIf Combox1 = "Bosnie" Then

Caillou
 
Re : ElseIf bug dans une macro qui permet de selectionner un onglet

Bonjour,

Biélorussie et Bosnie correspondent au texte choisi dans la liste déroulante, avec guillemet il ne les reconnait plus.
En mettant uniquement :

Code:
Private Sub ComboBox1_Change()
  If Combox1 = Balkans Then
  Sheets("Balkans").Select
   End If
 End Sub

la macro fonctionne.
 
Re : ElseIf bug dans une macro qui permet de selectionner un onglet

Bonjour Timon, bonjour le forum,

ComboBox1... ou ComBox1

[Édition]
Pourquoi pas alors :
Code:
Sheets(ComboBox1.value).Select


[E
??
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
587
Retour