Microsoft 365 RowSource d'une Combobox

[eric72]

Bonjour à tous,
Je cherche à faire une recherchev en vba à partir d'une combobox et avec une liste qui se trouve dans "Source Communes.xlsx", voilà le code que j'ai écrit (mais sans succès)

Private Sub TxtCommuneFacturation_Change()
TxtCpFacturation.Value = Application.WorksheetFunction.VLookup(TxtCommuneFacturation.Value, "MaListe", 2, 0)
et
Private Sub UserForm_Initialize()
MaListe = "'[Source Communes.xlsx ]feuil1'!List_Communes"
Me.TxtCommuneFacturation.RowSource = MaListe
End Sub

le message est impossible de définir la propriété RowSource (je ne suis pas très doué!!!)
Je pense que l'erreur va vous sauter aux yeux, mais pas au miens...
Merci beaucoup pour votre aide toujours aussi précieuse.
Eric

 

[eric72]

j'ai mis le code dans cbrecherche_enter (je suis un petit malin, lol!!!)

 

[patricktoulon]

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

le code postal tu l'a déjà puisque je récupère les deux colonne dans le fichier fermé
et en sélectionnant un item dans ta liste tu fait par exemple
with TxtCommuneFacturation
msgbox .list(.listindex,1)
end with
le message t'affichera bien le code postal
voila pas la peine de retourner chercher la donnée tu l'a déja 🤣 🤣
et si par estetique tu ne veux pas voir la colonne des codes postals dans la combo ben a la fin du activate tu fait TxtCommuneFacturation.columnwidths="150;0"

 

[patricktoulon]

regarde

Private Sub TxtCommuneFacturation_Change()
'TxtCpFacturation.Value = Application.WorksheetFunction.VLookup(TxtCommuneFacturation.Value, Workbooks("Source Communes.xlsm").Sheets("Feuil1").Range("List_Communes"), 2, 0)
'TxtCommuneFacturation.Value = Application.Proper(TxtCommuneFacturation.Value)
'Dim objPlageRecherche As Range
'Set objPlageRecherche = Workbooks("Source Communes.xlsm").Worksheets("Feuil1").Range("a2:b37000")
'TxtCpFacturation.Value = Application.WorksheetFunction.VLookup(TxtCommuneFacturation.Value, objPlageRecherche, 2)
With TxtCommuneFacturation
If .ListIndex > -1 Then TxtCpFacturation = .List(.ListIndex, 1)
End With
End Sub

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
            .ColumnWidths = "150;0"

        End With
    End With
End Sub

 

[eric72]

Et si je veux que le code postal se mette dans la textbox d'à côté "code postal facturation"?

 

[patricktoulon]

re
tu veux mes lunnettes ou quoi ?
regarde mon post précédant

 

[eric72]

Super!!!! c'est juste ce que je voulais mais
Désolé j'ai envoyé le dernier message avant de recevoir le tien...

 

[patricktoulon]

si j'ai le temps ce soir je te ferait un exemple de combobox intuitive avec liste issue de tableau structurés dans fichier fermés

 

[eric72]

Je n'ai plus qu'à changer ma méthode pour alimenter ma combobox dans le UsfFournisseur
Merci 1000 fois pour ton dévouement, et ta volonté à venir en aide à des boulets comme moi.
Vous méritez tous beaucoup de reconnaissance.
Eric

 

[patricktoulon]

ouais!!! allégeance, servitude eternelle et tout et tout 🤣 🤣 🤣