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 :

ListBox en fonction du choix d'une combobox [XL-2007]


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
    Inscrit en
    Décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 343
    Par défaut ListBox en fonction du choix d'une combobox
    Bonsoir à tous,

    Voila j'ai un USF avec 1 combobox et une Listbox je recherche avec ma combobox dans la colonne "B" les code postaux et j'aimerais que les noms ville se trouvant dans la colonnes "K" correspondant aux code s"affiche dans la listbox.
    En sachant que la liste des Code postaux et des villes font environ 38000 lignes.

    Merci d'avance

    Cordialement

    Max
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    le principe est le meme que sur ta dernière demande, tu devrais pouvoir l'adapter ou tu n'as pas compris les codes que je t'ai fournis
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 343
    Par défaut
    Re,

    Oui j'ai ajouté quelques supplément mais je n'ai pas un niveau assez haut donc j'avance doucement.

    @+

    Max

    Re,

    J'ai ajouter ceci:

    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
    Private Sub ComboBox_ville_cp2_Change()
    Dim CP As Range, Lg As Long
     
    If ComboBox_ville_cp2 = "" Then Exit Sub
    With Feuil1
      Set CP = .Range("B:B").Find(ComboBox_ville_cp2.Value, LookIn:=xlValues, lookat:=xlWhole)
      If Not CP Is Nothing Then
        Lg = CP.Row
        ListBox1.Clear
        While .Range("B" & Lg) = CP
          ListBox1.AddItem .Range("K" & Lg)
          Lg = Lg + 1
        Wend
      End If
    End With
    End Sub

    Quand pense tu ?

    @+

    Max

  4. #4
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    le fichier est-il toujours le même (même disposition, mêmes colonnes) ?
    Si c'est le cas, il faut déjà que tu élimines les doublons dans la combobox,
    Je viens de voir que tu n'utilises pas de variable tableau, en conséquence le traitement risque d'être long, surtout pour plus de 38000 lignes.
    Je vais essayer, si j'ai le temps (et si le fichier est le même) , de te préparer quelque chose avec les explications, mais pas sur pour ce soir.

    Voilà,
    je te rends l'ancien fichier avec le second USF et des explications, prends ton temps et analyses, il n'est certainement pas parfait mais des corrections pourront être apportées par les membres intéressé(e)s ou par d'autres observations.

    Bonne nuit
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  5. #5
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 343
    Par défaut
    Bonjour Dom,

    Je te remercie c'est nickel, je te souhaite une bonne journée

    @+

    Max

  6. #6
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 343
    Par défaut
    Bonjour

    Voila j'ai un USF pour faire la recherche CP, Ville, Arrondissement, Cantons ect... Qui m'a été réaliser par Dom "Casefayere" que je remercie beaucoup et que je salut au passage et si tu passe par ici et que tu as quelques minutes à m'accorder. J'aimerais finaliser mon code, j'ai associé les deux code ensemble.
    Il marche très bien mais que dans un sens si je cherche le CP a l'aide de la Checkbox pas de problème si je cherche par la ville sa plante. J'ai du oublier quelque chose

    Je vous remercie de l'aide que vous m'accorder

    Cordialement
    Max
    Fichiers attachés Fichiers attachés

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

Discussions similaires

  1. [XL-2003] Remplir des Textbox fonction du choix d'une Combobox dans un USF - Newbie
    Par Vrancky dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 06/06/2014, 08h30
  2. affectation des valeurs de texbox en fonction du choix d'une combobox
    Par iallex dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/05/2010, 20h38
  3. [XL-2003] faire apparaitre un label en fonction d'un choix d'une combobox
    Par revemane dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 11/06/2009, 20h00
  4. Réponses: 11
    Dernier message: 10/06/2008, 10h31
  5. Réponses: 4
    Dernier message: 28/03/2006, 19h51

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