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 :

Initialisation de plusieurs combobox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 21
    Par défaut Initialisation de plusieurs combobox
    Bonjour a tous,
    J'ai besoin de plusieur combobox mais qui ont les mm valeurs a l'interieur. En fait dans chaque combobox j'ai 2 valeurs qui sont MC et LC

    Pour en initialiser une je dois faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private sub Userform_initialize() 
    Combobox1.additem "MC" , 0 
    Combobox1.additem "LC" , 1 
    Combobox1.listeindex = 0 
    End sub
    Maintenant je veux pouvoir initialiser tte les combobox dont j'aurais besoin sachant que je ne connais pas le nombres exact de combobox que je dois avoir mais c'est pas un probleme si j'en ai en trop sur ma feuille excel.

    Apparement je dois faire quelqe chose de ce genre

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private sub userform_Initialize() 
     
    dim ctrl as combobox 
     
    For each ctrl in combobox 
    if typeof ctrl is msforms.combobox then 
       combobox.additem "MC", 0 
       combobox.additem "LC", 1 
       combobox.listindex=0 
    end if 
    next ctrl
    Evidement ça marche pas... jfais des tests pour le moment mais bon rien de concluant pb de collection ...
    J'utilise cette page http://silkyroad.developpez.com/VBA/ControlesUserForm/ afin de m'aider car je ne suis pas du tout expérimenté en VB.

    Merci a vous d'avoir lu ce post et merci d'avance aux personnes quiy repondront.

    Cordialement Selune.

  2. #2
    Membre éprouvé
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    117
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2008
    Messages : 117
    Par défaut
    Salut

    et avec ça ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Private sub userform_Initialize() 
     
    dim ctrl as combobox 
     
    For each ctrl in userform.controls
    if typeof ctrl is msforms.combobox then 
    combobox.additem "MC", 0 
    combobox.additem "LC", 1 
    combobox.listindex=0 
    end if 
    next ctrl

  3. #3
    Membre éprouvé
    Inscrit en
    Juillet 2005
    Messages
    121
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 121
    Par défaut
    salut a toi,

    premiere question : tes combo sont sur une feuille ou dans un userform ??

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 21
    Par défaut
    mes combo sont situé sur la feuille excel. J'ai ajouter le userform comme marqué sur la FAQ.

  5. #5
    Membre éprouvé
    Inscrit en
    Juillet 2005
    Messages
    121
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 121
    Par défaut
    je seche un peu mais 2 choses :

    - Si tes combobox sont sur la feuille excel ( et non dans un userform ) ce programme ne fonctionnera pas.

    - Ce programme teste 2 fois si l'objet est un combobox.

    je seche sur le "in" du "for each" mais sinon ceci devrait marcher :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    Sub init()
     
        Dim comb As ComboBox
     
        For Each comb In ***
     
            comb.AddItem "MC"
            comb.AddItem "LC"
     
        Next comb
     
    End Sub
    Tu n'es pas plus avancé... JE SAIS... j'y travaille...

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 21
    Par défaut
    C'est déja gentil d'etre disponible et de répondre.
    Petite question dans ce cas a quoi cela me sert de rajouter un userform?
    J'ai pas trop compris pourquoi on devait l'ajouter... j'en ai peut etre pas besoin.
    RemiT j'utilise ce code car je n'ai pas vraiment de compétence en vb (voir aucune ^^) et qu'il me semblait adapté mais il concerne les textbox a la base le liens que j'ai mis envois a ce tuto/faq. Cependant j'ai supposé que cela devrait marcher aussi sur les combobox , dc si tu comptes utiliser une autre syntaxe j'y vois aucun pb. (que tu t'obliges pas a l'utiliser si tu connais plus simple)

    Trollinou avec le code proposé il me dit erreur '424' objet requis et evidement ça bug sur la ligne du for each

  7. #7
    Membre éprouvé
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    117
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2008
    Messages : 117
    Par défaut


    C'est pas combobox mais Object

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Private sub userform_Initialize() 
     
    dim ctrl as object
     
    For each ctrl in userform.controls
    if typeof ctrl is msforms.combobox then 
    combobox.additem "MC", 0 
    combobox.additem "LC", 1 
    combobox.listindex=0 
    end if 
    next ctrl

  8. #8
    Membre éprouvé
    Inscrit en
    Juillet 2005
    Messages
    121
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 121
    Par défaut
    ajouter un USF ne sert a rien... il est juste utile pour l'exemple.

    Citation Envoyé par trollinou Voir le message


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Private sub userform_Initialize()
    Dans l'exemple, le systeme initialise un userform mais c'est pas ton cas.

    Toi, ta procedure sera dans ThisWorkbook et le nom de la procedure sera :
    Sub Workbook_Open()

    pour initialiser tes combobox à l'ouverture de ton fichier...

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

Discussions similaires

  1. Initialisation d'une ComboBox
    Par Pequinho dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 04/01/2008, 18h20
  2. Remplir plusieurs combobox
    Par SoGood dans le forum VB.NET
    Réponses: 12
    Dernier message: 08/07/2007, 19h46
  3. Récupérer valeurs de plusieurs combobox
    Par NicoO_O dans le forum Servlets/JSP
    Réponses: 2
    Dernier message: 04/05/2007, 15h52
  4. [Débutant(e)] initialisation d'une comboBox
    Par mmarcoboss dans le forum AWT/Swing
    Réponses: 6
    Dernier message: 29/01/2007, 16h18
  5. Réponses: 5
    Dernier message: 29/11/2006, 21h10

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