Menu deroulant et redirection

Menu deroulant et redirection - VB/VBA/VBS - Programmation

Marsh Posté le 18-01-2006 à 13:50:22    

Salut à tous!
 
Bon voilà mon problème: sous excel j ai crée un menu deroulant (assez mediocre d'ailleurs car les seuls choix proposés doivent être dans la même feuille :( )  Y a cinq choix et pour chaque choix je souhaite modifier la page affichée.
 
Pour me simplifier la vie, j'ai créé cinq feuilles dans le meme classeur excel et je cherche donc à rediriger l'utilisateur vers la feuille portant le meme nom que la case du menu deroulant.
 
Je suis pas tres clair donc je vais donner un exemple
ex: le menu deroulant affiche "joe", on redirige vers la feuille "joe"
 
Evidemment je vais faire un if then etc... (c'est bien lourd mais bon au moins ca marche)
mais mais mais je ne connais pas la fonction pour rediriger vers une feuille  ni l'appelation d'une feuille excel sous vb.
 
Merci d'avance pour votre aide ;)
:jap:
 

Reply

Marsh Posté le 18-01-2006 à 13:50:22   

Reply

Marsh Posté le 18-01-2006 à 14:07:25    

salut,  
 
select case combobox1.text
case "joe"
sheets"joe".Select
case .....
 
end select
 
sinon ca marche aussi avec les if

Reply

Marsh Posté le 18-01-2006 à 17:12:38    

Salut,
 
il me semble que ça marche mieux avec des parenthèses et puis pour afficher la page, préfère activate à select.
 
sheets("joe" ).activate
 
ça donne donc
 
private sub combobox1_change()
on error resume next
sheets(combobox1.text).activate
end sub
 

Reply

Marsh Posté le 18-01-2006 à 20:14:40    

J ai fait du if then et.. en effet il faut des parentheses!
 
et pis j ai fait un ptit userform pour que l'ergonomie du truc soit plus evidente :)
 
merci pour votre aide ;)

Reply

Marsh Posté le 06-02-2006 à 09:31:07    

Bonjour
J'ai longtemps chercher comme toi à ce probleme.
maintenant heureux d'avoir trouver je te fait part de ma solution "tres simple":

  • Dans une endroit de la feuille ou tu met ton Menu Déroulant et hors impression inscrit les noms de tes feuille par exemple de J1àJ19.
  • Créer le menu deroulant puis clic droit propriéte dans listfillrange met comme dans l'ex :  J1:J19
  • Reclicdroit sur le MD et visualiser le code met le prog :


Private Sub ComboBox1_Change()
X = ComboBox1.Value
Sheets(X).Select
End Sub
 
J'espére été assez clair :D  

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed