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 :

Liste déroulante via code vba


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Architecte de base de données
    Inscrit en
    Mars 2015
    Messages
    123
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Deux Sèvres (Poitou Charente)

    Informations professionnelles :
    Activité : Architecte de base de données

    Informations forums :
    Inscription : Mars 2015
    Messages : 123
    Par défaut Liste déroulante via code vba
    Bonjour à tous,

    Après avoir été voir mon meilleur ami Google.., je n'ai pas trouvé de solution....
    Voici l'histoire, lorsque j'ouvre mon fichier, un user form s'affiche avec une liste déroulante
    Je souhaiterais que lorsque je sélectionne un choix dans la liste déroulante et que je clique sur ok, il renvoie vers un code VBA
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
     
    Private Sub CommandButton1_Click() 'Valider
     
    With Sheets("Listes")
    .Range("B1") = UserForm1.ComboBox1
    End With
     
    If ComboBox1.Value = "text1" Then
    Call Macro1
    ElseIf ComboBox1.Value = "text2" Then
    Call Macro2
    ElseIf ComboBox1.Value = "text3" Then
    Call Macro3
    End If
    End Sub
     
    Private Sub CommandButton2_Click() 'Quitter
     
    Unload Me
     
    End Sub
     
     
    Private Sub cmdAnnuler_Click()
     
    End Sub
     
    Private Sub UserForm_Initialize()
     
    ComboBox1.RowSource = "Listes!B2:B4" 'Récupération des Données
     
    End Sub

  2. #2
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,



    oui ?

    quelle est la question exacte ? Quel est le problème rencontré ?

    car là je vois un code qui me semble correct pour appeler une procédure en fonction de la valeur choisie dans un combobox

  3. #3
    Membre confirmé
    Homme Profil pro
    Architecte de base de données
    Inscrit en
    Mars 2015
    Messages
    123
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Deux Sèvres (Poitou Charente)

    Informations professionnelles :
    Activité : Architecte de base de données

    Informations forums :
    Inscription : Mars 2015
    Messages : 123
    Par défaut
    La question est que cela ne fonctionne pas, lorsque je selectionne un choix dans la liste et que je clique sur ok, rien ne se passe....

  4. #4
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    tu as testé la valeur de Combobox1.Value pour tenter de comprendre ?

    un petit MsgBox ou Debug.Print sur cette valeur ?

    et en mode pas à pas, la procédure atteint bien l'une des trois lignes "Call Macro x" ?

    et ces trois Macro1-2-3, elles existent bien dans ton projet ?

  5. #5
    Membre confirmé
    Homme Profil pro
    Architecte de base de données
    Inscrit en
    Mars 2015
    Messages
    123
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Deux Sèvres (Poitou Charente)

    Informations professionnelles :
    Activité : Architecte de base de données

    Informations forums :
    Inscription : Mars 2015
    Messages : 123
    Par défaut
    J'ai testé le pas à pas mais cela me bloque lorsque je clique sur ok (après avoir selectionné une donnée dans la liste) j'ai beau cliqué 15 fois rien ne se passe...


    Les trois macros existe bien elles sont dans le module 2

  6. #6
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par chito79000 Voir le message
    La question est que cela ne fonctionne pas, lorsque je selectionne un choix dans la liste et que je clique sur ok, rien ne se passe....
    Et qu'est-ce qui devrait se passer ?
    Que contient la liste ?
    Est-ce que Macro1, Macro2 et Macro3 existe ? Si oui, que contiennent-elles ?
    As-tu essayé de comprendre le contenu des macros ?

Discussions similaires

  1. Liste déroulante via vba
    Par dashblade dans le forum IHM
    Réponses: 5
    Dernier message: 29/05/2008, 11h43
  2. Liste déroulante et code postal (Lenteur)
    Par x0249 dans le forum IHM
    Réponses: 11
    Dernier message: 15/05/2007, 18h06
  3. [MySQL] alimenter une liste déroulante via une requête
    Par stefon dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 13/12/2006, 13h32
  4. Réponses: 15
    Dernier message: 21/11/2006, 10h13
  5. Réponses: 5
    Dernier message: 03/08/2006, 16h13

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