IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Sélection d'un nom de feuille dans un textbox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut Sélection d'un nom de feuille dans un textbox
    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

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464

  3. #3
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    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+

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Oui, ou
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets(Val(TxtChoix)).activate

  5. #5
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Citation Envoyé par ouskel'n'or Voir le message
    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

  6. #6
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    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+

  7. #7
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Citation Envoyé par NEC14
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2013] Nom de feuille dans vba
    Par pubbins dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/05/2014, 09h59
  2. [Toutes versions] Recupérer les noms des feuilles dans Excel
    Par cinfo84 dans le forum Access
    Réponses: 3
    Dernier message: 31/07/2012, 23h10
  3. Interroger le nom des Feuilles dans un Workbook
    Par athos7776 dans le forum Excel
    Réponses: 6
    Dernier message: 01/12/2008, 16h28
  4. Affection d'un nom à une feuille dans une macro
    Par bichouille dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 10/11/2006, 12h25
  5. [VBA E] nom de feuille dans une combobox
    Par zoumzoum59 dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 20/06/2006, 19h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo