Ouvrir feuille Excel en fonction du choix dans combobox

Bonsoir a tous.

Je cherche une solution que je n'arrive pas a trouver malgré mes recherches sur le forum et sur le net.

J'ai bien trouvé des codes mais je n'arrive pas à le comprendre et donc je ne peux pas résoudre mon problème.

Ce que je voudrais réaliser :

=> C'est ouvrir une feuille excel de mon classeur en fonction du choix que je fais dans ma combobox et après validation par le bouton valider.

Je vous joint mon fichier simple.

Merci pour vos explications et vos réponses.

Bonjour,

tu sais qu'avec un clic-droit sur les icones de déplacement entre onglets (en bas à gauche) tu as la liste des feuilles et que tu peux choisir sur laquelle aller ?

eric

Bien sur.

Mais dans ma feuille je voudrais que ce soit en fonction des numéros de la combobox.

Par exemple quand je sélectionne le 8, je voudrais ouvrir l'onglet B. Quand je sélectionne le 22, je voudrais l'onglet À.

Mais merci du rappel

Bonsoir,

Je vois pas trop l'utilité mais tu peux...

Private Sub CommandButton1_Click()
    Dim n%, p%, F$
    If ComboBox1.ListIndex > -1 Then
        p = Worksheets.Count - 1
        n = CInt(ComboBox1.Value) - 1
        F = Chr(n Mod p + 65)
        Worksheets(F).Activate
        Unload Me
    End If
End Sub

Cordialement.

Merci.

Est ce que tu pourrais m'expliquer le fonctionnement de ce code ??

Merci.

Oui !

Si une sélection est faite dans la Combo, on définit 2 paramètres :

n = le nombre sélectionné diminué de 1

p = le nombre de feuilles du classeur diminué de 1 (soit en ôtant la feuille d'accueil, le nb de feuille A B C... ce qui laisse la possibilité d'ajouter des feuilles sans rien changer... mais ne pas dépasser Z ! ). Pour l'instant p =3

Puis on établit le nom de la feuille à partir du modulo p de n : n Mod p va donner soit 0, soit 1, soit 2.

0= A, 1 = B, 2 = C

Les lettres A à Z sont les caractères 65 à 90 de la table de caractères. On ajoute donc 65 à n Mod p pour avoir le nom de la feuille !

Opérations tout à fait simples !

Cordialement.

Merci.

bonjour

ou comme ca

Private Sub UserForm_Initialize()
Feuille = Feuil1.Name
   For Each Feuil In Worksheets
      If Feuil.Name <> Feuille Then
         ComboBox1.AddItem Feuil.Name
      End If
   Next
End Sub

Private Sub CommandButton1_Click()
   Sheets(ComboBox1.Column(0)).Select
Unload Me
End Sub

A+

Maurice

Merci également.