ElseIf bug dans une macro qui permet de selectionner un onglet

[timon]

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 :

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!!

 

[Caillou]

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 !!!!!

ElseIf Combox1 = "Bosnie" Then

Caillou

 

[timon]

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 :

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

la macro fonctionne.

 

[Robert]

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

Bonjour Timon, bonjour le forum,

ComboBox1... ou ComBox1

[Édition]
Pourquoi pas alors :

Sheets(ComboBox1.value).Select

[E
??

 

[timon]

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

Ahhhh Merci Robert en effet c'est bien ComboBox1.....

Merci

 

[Caillou]

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

alors essayes de remplacer Combox1 par ComboBox1 ....

 

[timon]

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

Car pour la pluspart des onglets la valeur de la combobox est différente du nom de l'onglet.

Merci Robert
Merci Caillou