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 :

[VBA E] Recupérer le numero d'un textbox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    En reconversion
    Inscrit en
    Mai 2006
    Messages
    510
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : En reconversion

    Informations forums :
    Inscription : Mai 2006
    Messages : 510
    Par défaut [VBA E] Recupérer le numero d'un textbox
    Bonjour à tous

    Je cherche comment je pourrais recupérer le ou les derniers caracteres du nom d'un textbox pour l'incorporer dans une variable.

    Mes textbox porte le nom "textbox1,textbox2, textbox3,...,textbox39,textbox40", et je voudrais recupérer les chiffres.

    Je pensait utiliser la commande "right(LeControl.Name, 2) " mais il n'y a pas toujours deux chiffres.

    Si Quelqu'un a une idée!

    Merci

  2. #2
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonjour

    tu peux tester

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox Right(leControl.Name, Len(leControl.Name) - 7)

    bonne journée
    michel

  3. #3
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    Essaye (entre mille et une autres façons) :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Command1_Click()
      toto = "textbox2"
      If Val(Right(toto, 2)) > 0 Then titi = 2 Else titi = 1
      MsgBox Right(toto, titi)
    End Sub
    ou encore, si tu connais la logueur de ce qui se trouve avant (ici 7) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox mid(leControl.Name, 8)

  4. #4
    Membre éclairé
    Homme Profil pro
    En reconversion
    Inscrit en
    Mai 2006
    Messages
    510
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : En reconversion

    Informations forums :
    Inscription : Mai 2006
    Messages : 510
    Par défaut
    Merci à vous deux

    Je me doutais bien que ça devait pas etre hyper compliqué mais je piétinais

  5. #5
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Nommer les textbox avec 01, 02, ..., 10, 11, ... n'aurait pas été une mauvaise idée, non plus.
    Permettait de toujours prendre les 2 derniers caractères.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

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

Discussions similaires

  1. Récupérer l'adresse d'une zone de sélection
    Par belfaigore dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 15/07/2020, 15h18
  2. [VBA Excel] Recupérer le répertoire du fichier .xls courrant
    Par greg2 dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 16/02/2015, 17h58
  3. [VBA-E] Récupérer le numéro de ligne où se trouve un bouton
    Par Freiya dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 28/01/2011, 23h06
  4. [VBA-E] recupérer tout mes charts
    Par amel95140 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 31/12/2005, 15h24
  5. Réponses: 11
    Dernier message: 19/12/2005, 11h02

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