Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remplir combobox a partir d'un autre classeur

FaruSZ

XLDnaute Occasionnel
Je veux alimenter une combobox d'un userform, a partir des donneses d'un autre classeur.
J'ai rédigé ce code:
Private Sub CommandButton1_Click()
Dim ws_Liste_affect As Worksheet, Fin_Liste_affect As Long, arr As Variant
Dim wbFullPath As String, wb As Workbook, boolFound As Boolean

wbFullPath = "C:\Users\seus0013\Desktop\liste_affectation.xlsm"
For Each wb In Workbooks
If wb.FullName = vbfullname Then
Set ws_Liste_affect = wb.Worksheets("heures_alpha")
boolFound = True: Exit For
End If
Next
If Not boolFound Then
Set wb = Workbooks.Open(wbFullPath)
Set ws_Liste_affect = wb.Worksheets("heures_alpha")
End If

Fin_Liste_affect = ws_Liste_affect.Range("A" & Rows.Count).End(xlUp).Row
arr = ws_liste.affect.Range("A2:A" & Fin_Liste_affect).Value
UserForm_SDE.ComboBox_Affect.List = arr

J'ai une erreur dans : arr = ws_liste.affect.Range("A2:A" & Fin_Liste_affect).Value
il me dit objet requis, en sachant que je l'ai défini. qq peut me dire ou est l'erreur.
Merci
 

FaruSZ

XLDnaute Occasionnel
Ah ouais j'avais pas vu l'erreur, ca marche maintenant. merci.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…