Microsoft 365 RowSource d'une Combobox

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 5 Juillet 2021

• #31

eric72 à dit:

Mais c'est déjà ce que je fais

Cliquez pour agrandir...

non, ce n'est pas ce que vous faites avec un rowsource, vous gardez un lien entre la liste de la combobox et la feuille et c'est cela qui pêche.

Bien cordialement, @+

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 5 Juillet 2021

• #32

re,

cela irait 1000 fois plus vite avec une liste de combobox alimentée par un tableau vb filtré par la valeur de la combobox.

mais là, c'est midi, pause déjeuner, à plus tard !

Bien cordialement, @+

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Juillet 2021

• #33

Je suis d'accord mais j'ai aussi essayé en mettant ma liste des communes dans mon classeur et mettant la rowsource avec "List_Commune" et c'est aussi lent, d'ailleurs je ne peux pas joindre ce fichier car il fait 1162ko
Merci

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Juillet 2021

• #34

que voulez vous dire par :
"cela irait 1000 fois plus vite avec une liste de combobox alimentée par un tableau vb filtré par la valeur de la combobox."

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 5 Juillet 2021

• #35

eric72 à dit:

Je suis d'accord mais j'ai aussi essayé en mettant ma liste des communes dans mon classeur et mettant la rowsource avec "List_Commune" et c'est aussi lent

Cliquez pour agrandir...

que le rowsource soit dans le classeur ou hors du classeur ne change rien, c'est le rowsource le problème

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 5 Juillet 2021

• #36

eric72 à dit:

que voulez vous dire par :
"cela irait 1000 fois plus vite avec une liste de combobox alimentée par un tableau vb filtré par la valeur de la combobox."

Cliquez pour agrandir...

je veux dire qu'il y a plusieurs façons d'alimenter une liste de combobox et que la rowsource est loin d'être la meilleure.

 

Dernière édition: 5 Juillet 2021

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Juillet 2021

• #37

j'ai suivi votre conseil et j'ai mis ma liste des communes dans mon classeur j'ai écrit ce code :
Private Sub UserForm_Initialize()
Dim feuille As Worksheet
Dim ligne As Integer
Dim derligne As Integer

Set feuille = ThisWorkbook.Sheets("Feuil1")
With feuille
derligne = .Range("a" & Rows.Count).End(xlUp).Row
For ligne = 2 To derligne
Me.TxtCommuneFacturation.AddItem .Range("a" & ligne).Value
Next ligne
End With

Set feuille = Nothing
End Sub

et là j'ai un message de dépassement de capacité, est ce que c'est limité???
Merci
Eric

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Juillet 2021

• #38

re
bon alors
je te propose de laisser ton fichier list_comune fermé !!!!!
je te propose de virer le inialyse de ton usf client
je te propose d'utiliser le activate
je te propose de récupérer les nom et code postal
tout cà tres tres vite est sans ouvrir le fichier
tu est d'accords avec ça
ben voila
avec mon petit code ado sur tableaux structurés dans fichiers fermé qui va bien

VB:

Private Sub UserForm_Activate()
    Dim Bd$
    Bd = ThisWorkbook.Path & "\Source Communes.xlsm"
    Me.Repaint
    With CreateObject("ADODB.Connection")
        Sql = "select [Nom_commune],[Code_postal] from [Feuil1$]"
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Bd & ";Extended Properties='Excel 12.0;HDR=Yes'"
        tablo = .Execute(Sql).GetRows
        .Close
        With TxtCommuneFacturation
            .ColumnCount = 2
            .Column = tablo
        End With
    End With
End Sub

c'est pas compliqué moins de 1 seconde pour récupérer ta liste de commune dans le fichier list-commune.xlsm

c'est pas beau la vie
ado mon amis est arrivé sans se préssé hehé hé
démonstration


t' a compris ou je casse tout !!!
libre a toi d'ouvrir ou pas ce fichier après mais pour ta combobox tu n'a pas besoins de l'ouvrir

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Juillet 2021

• #39

maintenant si tu veux faire de l'intuitif tu recupere le getrows en le transposant
dans une variable globale module dans ton userform
et au change de la combo tu tri cette variable tableau
ca aussi il faut te montrer ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Juillet 2021

• #40

ben ca met deux minutes par ce que ta liste est longue
on pourrait procéder autrement
ajouter le where in ( le text de la combo.value) dans la requête et la faire a chaque change
@Yeahou sait de quoi je parle
ca serait toujours plus rapide
et toujours le fichier fermé c'est magic!!!

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Juillet 2021

• #41

Waouhhh c'est juste génial, en effet le temps de traitement est immédiat.
Si je peux abuser, peux tu me dire pourquoi dans mon userform "momie" s'affiche en dehors de la combobox "recherche"?
Merci 1000 fois pour cette solution, c'est MAGIQUE.
eRIC

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Juillet 2021

• #42

Merci également à Patricktoulon même si je n'ai pas bien compris, mais vous êtes géniaux!!!
Eric

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Juillet 2021

• #43

magic non pas vraiment en fait
on passe l'etape de l'application et tout son tointoin avec une requete
je vais regarder ta combo momie 3 le retour

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Juillet 2021

• #44

Patricktoulon
est-il également possible de récupérer le code postal juste en sélectionnant la ville avec la même méthode ou faut-il passer par vlookup (mais sans ouvrir le fichier source, ca va être compliqué)!!!
Eric

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Juillet 2021

• #45

re alors deja dans ton usffournisseur il y a une enigme
a acun moment je vois dans le code a l'activate ou initialyse le remplissage de la combo
pourtant ta combo n'est pas vide

 

Vote positif 0 Vote négatif