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 :

Extraire le numérique d'un onglet en VBA


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 Extraire le numérique d'un onglet en VBA
    Bonjour à tous,

    J'ai 52 feuilles de calcul nommées S1, S2,......S52.
    Dans un formulaire et une zone de texte Tx1, je récupére le nom de l'onglet,
    ce qui donne "Statistiques de la semaine : S1", par exemple selon la feuille sur laquelle on est.
    Je souhaiterai que le "S" n'apparaisse pas, et je ne peux pas renommer mes feuilles car cela m'obligerai à reprendre toutes mes macros.

    Pouvez-vous m'apporter votre éclairage? je vous en remercie par avance.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    FrmSit.Tx1 = "Statistiques de la semaine : " & ActiveSheet.Name

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    48
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 48
    Par défaut
    Bonjour




    Essaie ainsi
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     FrmSit.Tx1 = "Statistiques de la semaine : " & Val(Replace(ActiveSheet.Name, "S", ""))
    A+

    J.L

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    191
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 191
    Par défaut
    Bonjour,

    tu peux peut être utiliser la fonction mid() pour faire ce que tu veux.
    Voici un exemple:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    sName = ActiveSheet.Name
    NumeroFeuille = Mid(sName, 2, 2)
    Ce bout de code permet de récupérer juste le numéro de la semaine sans le "S" (variable numerofeuille).
    A adapter au besoin. Pour plus d'infos, recherche dans l'aide (F1) la fonction mid()

    Cordialement,

    Lyonel

  4. #4
    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
    Bonjour à vous deux,

    Les 2 formules fonctionnent très bien.
    Merci beaucoup pour votre aide
    A+

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

Discussions similaires

  1. [WD12] Extraire partie numérique d'une chaine
    Par zouzoukha dans le forum WinDev
    Réponses: 4
    Dernier message: 27/07/2010, 16h45
  2. [AC-2003] Créer des onglets en VBA
    Par stigma dans le forum VBA Access
    Réponses: 6
    Dernier message: 10/05/2010, 10h50
  3. [Toutes versions] Extraire partie numérique d'une chaine
    Par tAKAmAkA dans le forum VBA Access
    Réponses: 2
    Dernier message: 15/11/2009, 22h15
  4. Naviguer dans les onglets en VBA
    Par papaoursold dans le forum IHM
    Réponses: 2
    Dernier message: 30/03/2008, 20h35
  5. Manipulation d'onglets en VBA
    Par mouaa dans le forum VBA Access
    Réponses: 2
    Dernier message: 26/07/2007, 13h10

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