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 :

Problème de remplissage de combobox [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Gérant d'entreprise
    Inscrit en
    Janvier 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Belgique

    Informations professionnelles :
    Activité : Gérant d'entreprise
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2017
    Messages : 2
    Par défaut Problème de remplissage de combobox
    Bonsoir à tous,


    Je me permet de venir demander un petit coup de main. Bien que je sois débutant en vba (je suis en mode auto-apprentissage grâce au net), je me suis lancé dans la création d'un fichier excel de facturation pour mon entreprise.

    Ce fichier comprend une feuille pour faire les factures, une feuille de listing des clients, une feuille de listing des factures et une feuille de détails de facture, le tout me permettant de garder une trace de chaque facture (je préfère décrire le projet on ne sait jamais ).

    Pour pouvoir rechercher et insérer les coordonnées du client sur la facture, après plusieurs essais partant dans différentes directions mais aucun n'aboutissant à un résultat utilisable, j'ai trouvé un code sur http://boisgontierjacques.free.fr/pa...s2colonnes.htm qui pouvait tout à fait convenir.

    J'ai changer les infos pour indiquer les bonnes feuilles, combobox et textbox mais je n'ai aucune liste qui apparaît dans la combobox.

    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
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    Dim f, choix(), Rng, Ncol
    Private Sub Recherche_Client_Initialize()
       Set f = Sheets("Listing clients")
       Set Rng = f.Range("B2:I" & f.[a65000].End(xlUp).Row)
       TblTmp = Rng.Value
       Ncol = Rng.Columns.Count
       For i = LBound(TblTmp) To UBound(TblTmp)
         ReDim Preserve choix(1 To i)
         For k = LBound(TblTmp) To UBound(TblTmp, 2)
           choix(i) = choix(i) & TblTmp(i, k) & " * "
         Next k
       Next i
       Me.Zone_recherche.List = Rng.Value
    End Sub
     
    Private Sub Zone_recherche_Change()
      If Me.Zone_recherche <> "" Then
       If Me.Zone_recherche.ListIndex = -1 Then
           mots = Split(Trim(Me.Zone_recherche), " ")
           Tbl = choix
           For i = LBound(mots) To UBound(mots)
             Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
           Next i
           n = 0: Dim b()
           For i = LBound(Tbl) To UBound(Tbl)
             a = Split(Tbl(i), "*")
             n = n + 1: ReDim Preserve b(1 To Ncol, 1 To n)
             For k = 1 To Ncol
               b(k, i + 1) = a(k - 1)
             Next k
           Next i
           If n > 0 Then
             ReDim Preserve b(1 To Ncol, 1 To n + 1)
             Me.Zone_recherche.List = Application.Transpose(b)
             Me.Zone_recherche.RemoveItem n
           End If
           Me.Zone_recherche.DropDown
       Else
        For k = 0 To Ncol - 1
          Me("textBox" & k + 2) = Me.Zone_recherche.Column(k)
        Next k
       End If
     End If
    End Sub

    Pour tester j'ai simplifier, simplifier et simplifier pour voir si j'arrivais a faire apparaître les données de mes clients dans la combobox.

    Si je mets le range 'Listing client'!B2:I100 dans le champ RowSource de la fenêtre Propriétés de ma combobox, les infos apparaissent.

    Si je mets:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Recherche_Client_Initialize()
     
        Zone_recherche.RowSource = "'Listing client'!B2:I100"
     
    End Sub
    ou encore:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Recherche_Client_Initialize()
     
    	Zone_recherche.List() = Sheets("Listing clients").Range("B2:I100").Value
     
    End Sub

    Rien n’apparaît. Et je ne comprends pas pourquoi.

    J'ai remplis les champs ColumnCount et ColumnWidths de base mais même en les vidant rien ne change.


    Voila, si l'un de vous pouvais m’aiguiller, ça serait vraiment génial.

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    Tu ne dis pas ce qu'est l'objet Recherche_Client
    Si c'est, comme on peut le deviner, un userform et que ce code est dans le module du userform, l'évènement Initialize du Userform n'est pas celui à utiliser (car lors de cet évènement, rien ne t'assure de ce que la combobox est déjà complètement chargée pour en modifier les propriétés !). Utilise l'évènement Activate du UserForm
    Si ce n'est pas un userform et que tu as mis ce code dans le module de code d'une feuille Excel, ce code est complètement ignoré (puisqu'aucun évènement Initialize de feuille de calcul Initialize n'existe)
    Voilà voilà.

    EDIT : le message précédent concerne surtout le second code de tes trois essais. D'autant qu'il est le plus agile des trois.

  3. #3
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    re
    bien que tu utilise plein de va et viens inutile a mon avis il y a un soucis sur ta connaissance de la portée d'une variable

    rien que la variable choix() n'est valable que dans le initialise

    tu cherche a l'utiliser dans l'autre évènement mais a ce niveau elle n'est plus rien forcement ta liste est vide

    donc la ou tu a mis dim choix() tu l'enlève et tu met cela en haut de module pour une portée partout dans le module

    j'ai pas regardé le reste ayant très mal a la tète je n'ai pas envie de me faire du mal sincèrement je pense déjà que tu fait fausse route
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  4. #4
    Candidat au Club
    Homme Profil pro
    Gérant d'entreprise
    Inscrit en
    Janvier 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Belgique

    Informations professionnelles :
    Activité : Gérant d'entreprise
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2017
    Messages : 2
    Par défaut
    @unparia

    Oui, effectivement l'objet Recherche_Client est bien un UserForm lancé depuis un bouton (Rechercher_Client) sur ma feuille Facture avec une instruction

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub Rechercher_Client_Click()
     
        'Ouverture de la fenetre de recherche
     
            Recherche_Client.Show
     
    End Sub
    qui se trouve dans le code de ma feuille Facture du dossier microsoft excel objects.


    J'ai bien essayer de faire

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Recherche_Client_Activate()
     
        Zone_recherche.RowSource = "'Listing client'!B2:I100"
     
    End Sub
    Mais rien n'y fait, j'ai aussi mis un nouveau bouton sur ma feuille, commandé par une macro se trouvant sur le module associé à ma feuille Facture. Et le résultat est le même.


    J'ai l'impression qu'excel ne prend pas en compte le _Initialize ni le _Activate, car la suite du code avec le _Change me donne une erreur d'éxécution 9 en ligne 25 qui si je comprends bien vient du fait qu'il n'y a rien dans la liste.




    @patricktoulon


    J'avoue avoir juste adapté un code de boisgontier jacques, trouvé sur son site. J'ai mis son fichier en pièce jointe.

    La variable Choix() est bien placée dans les déclarations pour être valable sur l’entièreté du code. Mais ça n'explique pas pourquoi les 2 autres codes n'affiche rien dans la combobox.



    Edit: J'ai réussi à contourner le problème en affectant le code à un bouton avec un événement _Click ce qui m'a permis de m'assurer que c'est bien l’événement _Initialize qui posait soucis.

    J'ai finalement trouver la solution en me rendant compte que _Initialize n’était pas dans la liste des événements possible de Zone_recherche, je devais bien mettre userform_initialize et non Zone_recherche_Initialize, bien que Zone_recherche soit mon Userform


    Merci pour le coup de main
    Fichiers attachés Fichiers attachés

  5. #5
    Membre extrêmement actif
    Homme Profil pro
    Inscrit en
    Septembre 2013
    Messages
    1 369
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Septembre 2013
    Messages : 1 369
    Par défaut
    Bonjour,

    Cf PJ

    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
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
     
    Recherche multi-colonnes multi-mots
    les mots peuvent être saisis dans un ordre quelconque
     
    Dim f, choix(), Rng, Ncol
    Private Sub UserForm_Initialize()
       Set f = Sheets("bd")
       Set Rng = f.Range("A3:G" & f.[a65000].End(xlUp).Row)
       Ncol = Rng.Columns.Count
       '---- entêtes ListBox
       x = 15
       Y = Me.ListBox1.Top - 12
       For I = 1 To Ncol
        Set Lab = Me.Controls.Add("Forms.Label.1")
        Lab.Caption = f.Cells(2, I)
        Lab.Top = Y
        Lab.Left = x + 2
        x = x + f.Columns(I).Width * 0.8
        temp = temp & f.Columns(I).Width * 0.8 & ";"
      Next
      Me.ListBox1.ColumnCount = Ncol
      Me.ListBox1.ColumnWidths = temp
      '-- entêtes TextBox
      For I = 1 To Ncol
        Set Lab = Me.Controls.Add("Forms.Label.1")
        Lab.Caption = f.Cells(2, I)
        Lab.Top = Me("textbox" & I + 1).Top - 17
        Lab.Left = Me("textbox" & I + 1).Left
        x = x + f.Columns(I).Width * 0.5
      Next
      '--
      TblTmp = Rng.Value
       For I = LBound(TblTmp) To UBound(TblTmp)
         ReDim Preserve choix(1 To I)
         For k = LBound(TblTmp) To UBound(TblTmp, 2)
           choix(I) = choix(I) & TblTmp(I, k) & " * "
         Next k
       Next I
       Me.ListBox1.List = Rng.Value
    End Sub
     
    Private Sub TextBox1_Change()
       If Me.TextBox1 <> "" Then
         mots = Split(Trim(Me.TextBox1), " ")
         Tbl = choix
         For I = LBound(mots) To UBound(mots)
           Tbl = Filter(Tbl, mots(I), True, vbTextCompare)
         Next I
           n = 0: Dim b()
           For I = LBound(Tbl) To UBound(Tbl)
             a = Split(Tbl(I), "*")
             n = n + 1: ReDim Preserve b(1 To Ncol, 1 To n)
             For k = 1 To Ncol
               b(k, I + 1) = a(k - 1)
             Next k
           Next I
           If n > 0 Then
             ReDim Preserve b(1 To Ncol, 1 To n + 1)
             Me.ListBox1.List = Application.Transpose(b)
             Me.ListBox1.RemoveItem n
           End If
           Me.Label1.Caption = UBound(Tbl) + 1
       Else
        UserForm_Initialize
      End If
    End Sub
     
    Private Sub ListBox1_Click()
        For k = 0 To Ncol - 1
          Me("TextBox" & k + 2) = Me.ListBox1.Column(k)
        Next k
    End Sub
    Boisgontier
    Fichiers attachés Fichiers attachés

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

Discussions similaires

  1. Problème de remplissage dans le comboBox
    Par k750_b dans le forum C#
    Réponses: 1
    Dernier message: 26/02/2008, 01h32
  2. [Tableaux] Problème de remplissage de textarea
    Par Le_tzao dans le forum Langage
    Réponses: 9
    Dernier message: 29/11/2005, 13h41
  3. [C#] Problème de synchronisation de combobox
    Par WwiloO dans le forum Windows Forms
    Réponses: 3
    Dernier message: 20/12/2004, 19h56
  4. Problèmes d'évènements sur ComboBox
    Par bakaneko dans le forum MFC
    Réponses: 3
    Dernier message: 23/02/2004, 08h46

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