Discussion :

[NEC14]

Bonjour à tous,

Dans un fichier, j'ai 39 feuilles dont 36 correspondent à des noms d'écoles.
J'ai mis en place un formulaire avec une Combo et 2 boutons (Ok et Fermer)
Dans la Combo, l'utilisateur a la possibilité de choisir un nom d'école.

Chaque onglet correspond exactement aux noms proposés dans la Combo.

Quel code me permettrait d'ouvrir la feuille correspondant au nom choisi dans la Combo ?
Merci par avance

[Gorfael]

Salut NEC14 et le forum

Quel code me permettrait d'ouvrir la feuille correspondant au nom choisi dans la Combo ?

Sheets(Combo).activate
A+

[NEC14]

Merci Gorfael

Il doit y avoir correspondance entre le choix fait dans la Combo et le nom de l'onglet (si je choisi EP PIGACIERE dans la Combo, seule la feuille EP PIGACIERE doit être ouverte (j'ai écrit en majuscules car le nom est écrit en majuscule))
Je n'ai pas envie d'écrire 36 fois le même code, je recherche donc une procédure raccourcie

[casefayere]

Bonjour Nec14,

Peut-etre t'inspirer de ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ListBoxARCHIVES_Click()
Dim nom As String
 
    nom = ListBoxARCHIVES 'represente le chemin complet intégré dans une listbox
    Shell "cmd /c start acrord32.exe """ & nom & """"""
 
End Sub

Ps : je viens de relire le post, et autant pour moi (je dis "autant" et pas "au temps", je n'ai pas fait l'armée, comprend qui veux ), j'ai mal lu la question ma propo n'est pas valable, mais je vais encore regarder

adaptes plutot le code à Gorfael

[NEC14]

Désolé casefayere mais je ne vois pas le rapport avec mon sujet. Ton code permet de retrouver un répertoire, est-ce bien cela ?

Je ne suis pas un expert, peux-tu m'expliquer comment activer la feuille correspondant au choix fait dans la Combo ?

Je suis perdu, je n'arrive pas à trouver.

Oups! on s'est croisé

[Didier Gonard]

Bonjour

je ne vois pas le pb vu la première réponse ?

Alimente ta combo direct à partir des feuilles, soit comme plus bas, soit cf l'aide vba à Sheets, collection d'objet (utilisation d'un Array), comme ça tu n'as pas de soucis à te faire au niveau correspondance des noms.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim wksPass As Worksheet
For Each wksPass In ThisWorkbook.Worksheets
   cboChoice.AddItem wksPass.Name
Next wksPass
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub cboChoice_Change()
Dim str As String
    str = cboChoice
    Worksheets(str).Activate
End Sub

cordialement,

Didier

[casefayere]

oui on s'est croisé, excuses-moi pour ma propo non adéquate mais Gorfael t'a mis sur la piste, si ta combobox se nomme au hasard combo1

dans l'évènement click de celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets(combo1.value).activate

à moins que je ne sois encore à coté de la plaque

[NEC14]

Merci Casefayere, je n'avais pas bien compris le code proposé.
C'est plus clair et ça marche.
Merci à tous et toutes mes excuses à Gorfael de ne pas avoir compris sa proposition (pourtant claire)

[NEC14]

Ma combo a été mise dans un formulaire. J'ai fait ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub CommandButton1_Click()
Sheets(Cb1.Value).Visible = True
Sheets(Cb1.Value).Activate
End Sub

Mais comment fermer les autres feuilles ?

[casefayere]

ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
for x = 1 to sheets.count
if sheets(x).name <> Cb1.Value
sheets(x).visible = false
next x

pas essayé mais ça doit etre ça

[NEC14]

Super ça marche.
Merci beaucoup

[casefayere]

Re gorfael,
dans ma propo j'imagine bien que la feuille sheets(Cb1.Value) est visible, vu les questions

Bonne soirée