Discussion :

[NEC14]

Bonjour à tous,

Voici mon problème. J'ai un fichier avec 52 onglets.
A l'ouverture du fichier, un formulaire (FrmChoix) s'affiche. Dans ce formulaire une zone de texte (TxtChoix) dans laquelle on tape un numéro de 1 à 52.
Si on tape "1" alors l'onglet 1 s'affiche, 2 etc.
Comment encode t'on cela en Vba sous Excel ?
Je vous remercie par avance de votre aide

[ouskel'n'or]

Code :

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

Sheets(Index).activate

[Gorfael]

salut

Code :

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

sheets(TxtChoix.value).select

ou peut-être

Code :

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

sheets(Cint(TxtChoix.value)).select

J'ai pas testé, et si tu entres "01", je suis pas sur qu'il accepte
A+

[ouskel'n'or]

Oui, ou

Code :

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

Sheets(Val(TxtChoix)).activate

[NEC14]

Oui, ou

Code :

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

Sheets(Val(TxtChoix)).activate

Bonjour,

Super ça marche. Par contre j'ai un autre problème dans cette même application.
Comment cacher toutes les feuilles sauf la 1 sans être obligée de taper une litanie de texte du genre
Sheets("2").visible=false
Sheets("3") etc...
Merci par avance

[Gorfael]

Salut

Code :

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

1
2
3
4
5
6
7
8
 
Sub test()
Dim X As Integer
 Sheets(1).Visible = True
For X = 2 To Sheets.Count
    Sheets(X).Visible = False
Next X
End Sub

A+

[ouskel'n'or]

Dans ce formulaire une zone de texte (TxtChoix) dans laquelle on tape un numéro de 1 à 52.
Si on tape "1" alors l'onglet 1 s'affiche, 2 etc.

Le code qu'on t'a passé (aussi bien Gorfael que moi) ne fonctionne "correctement" que si tu n'as déplacé aucune de tes feuilles de calculs. Ex : Si tu déplaces "feuil1" pour la placer en troisième position, Sheets(3).Activate ou Sheets(3).visible = False concernera "feuil1".
Juste pour indication.
Si tu as déplacé tes feuilles, tu dis, il y a une solution simple.