Liste déroulante

[David]

Voilà, j'ai crée une liste déroulante via la boite à outil contrôle.
J'ai 6 valeurs dans cette liste.(listfillrange)
Lors d'un clic, cela m'ouvre une feuille
Ex un clic sur "pommes" et ça m'ouvre la feuille2
De retour au menu général, si je veux recliquer sur pomme, alors rien.
Et, c'est pareil pour les autres.
Par contre, si je clique sur "poire" pour m'ouvrir la feuille 3, puis de retour au menu général avec un clic sur pommes, ça marche.Donc la premiere question.
Deuxième question. Comment faire, pour n'avoir aucune valeur dans la liste déroulante si par exemple je choisi "pommes" que ça m'ouvre la feuille en question et, lorsque je reviens, j'ai toujours la valeur "pomme" d'active.
Voici pour info, mon code :
if combobox1.value = "pommes" then
sheets("pommes").select
else if combobox1.value = "poire" then sheets("poire").select
end if
end sub
Je vous remercie "aux grands maîtres d'excel".

 

[Eric C]

Bonjour le forum
Bonjour David

Ce n'est pas un grand Maître du forum, loin de là s'en faut qui prend la parole mais je pense qu'il serait préférable de joindre ton fichier ou une bribe car tu ne dis pas si ton USF est hide ou unload lorsque tu passes à la feuilles désirée ?
Si je te décrypte, tu passes à la feuille "Pomme" donc plus de USF, à l'issue tu reviens à la feuille "Sommaire" et la ton USF t'attendait sans t'avoir suivi ??

Pour ma part & peut être pas uniquement que la mienne, pas très clair ...
@++ Eric C

 

[le CH'TI160]

Salut " David "
Salut " Eric"
Bonjour Le " FORUM"
une premiere réponse pour effacer la valeur ducombobox1
if combobox1.value = "pommes" then
sheets("pommes").select
else if combobox1.value = "poire" then sheets("poire").select
end if
combobox1.Text = ""......>tu rajoutes cela
end sub
A+++
Jean Marie

 

[David]

Un grand merci