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]Combobox et code trop long!! (debutante)


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Mai 2005
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 15
    Points : 10
    Points
    10
    Par défaut [VBA-E]Combobox et code trop long!! (debutante)
    Bonjour,
    Voilà mon soucis, j ai creer un code qui va chercher une données dans une feuille de calcul et la rentre dans un combobox. cette valeur là quand elle change elle va changer les textboxs correspondant!
    voilà mon code ca sera plus simple:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    if combobox.text=sheets("mafeuille").range("").text then
         textbox.text= sheets("mafeuille").range("").text
    et dans private sub userform_initialize()
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
         with combobox
              .additem.sheets("mafeuille").range("").value
         end with
    end sub
    Comment faire pour pas retapez ce code sachant qu il doit faire la même chose sur toute les lignes...
    Je ne sais pas si je suis trés clair dite le moi si c'est pas le cas.

    Edit
    Au seizième message, tu n'as pas encore lu les règles du forum ?
    Et les balises, alors ? Tu sélectionnes ton code et tu fais un clic sur le bouton Code en haut de la fenêtre d'édition, et pi cé tou !
    Balises et indentation généreusement offertes par ouskel'n'or

  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
    Points : 15 543
    Points
    15 543
    Par défaut
    Un peu plus de code nous aiderait à mieux comprendre ta question.
    Par exemple :
    with combobox
    .additem.sheets("mafeuille").range("").value
    end with
    est-il dans une boucle ?
    Veux-tu placer dans ton combo une seule ligne de données ?
    Quel rapport avec
    if combobox.text=sheets("mafeuille").range("").text then
    textbox.text= sheets("mafeuille").range("").text
    ?
    Enfin, que veux-tu faire ? (en français, pas en code... )

    A+

  3. #3
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 040
    Points
    20 040
    Par défaut
    oui tu nous as pas tous dit ...

    ne marche pas il faut quelque chose entre les "" !!

  4. #4
    Membre à l'essai
    Profil pro
    Inscrit en
    Mai 2005
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 15
    Points : 10
    Points
    10
    Par défaut
    Désolé je suis pas trés clair!
    J ai un userform avec un combobox qui prend une ligne donnée dans un tableau excel soit la base de données.
    Mon combobox ce sont des dates!
    quand je clique sur la date ca me change des textbox dans le userform.
    Ca c'est ok ca marche dans une ligne avec range("A") et une feuille donnée mais il faut que je recrive ca pour 500 ligne moi je voudrait faire une boucle mais je m en sort pas.
    J ai essayer plusieurs chose sans succés et comme je débute il doit me manquer quelques chose pour que ca refasse la bouble
    j avais essaye ca:
    dim ligne as integer
    ligne =3
    ligne= ligne +1
    et ja vais rajouter dans mon code à combobox.text=sheets("mafeuille").range("A"&ligne).text mais il me le prend pas! suis je claire?

Discussions similaires

  1. Firefox affiche mal si code trop long
    Par Bibicmoi dans le forum Balisage (X)HTML et validation W3C
    Réponses: 5
    Dernier message: 13/10/2009, 13h48
  2. Code trop long
    Par Chris 81 dans le forum VBA Access
    Réponses: 13
    Dernier message: 02/06/2008, 13h15
  3. code trop long
    Par popi182 dans le forum Langage
    Réponses: 4
    Dernier message: 04/09/2006, 07h58

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