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
Bonjour,
Comment faire pour alimenter une combobox a partir des donnees qui se trouvent dans une feuille nomée "heures_alpha" dans un fichier excel "liste affectation" j'ai rédigé ce code il marchait bien dés que j'ai changé l'emplacement du fichier source "liste affectation" le code ne fonctionne plus. Le fichier source ne doit pas changer d'emplacement et je ne peux pas le mettre avec mon fichier cible.

'Code de ma feuille cible
Private Sub CommandButton1_Click()
Dim ws_Liste_affect As Worksheet, Fin_Liste_affect As Long, arr As Variant
Set ws_Liste_affect = Workbooks("liste affectation").Worksheets("heures_alpha") ' extraire les données de la feuille source du classeur source
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
'-----Afficher le userform
UserForm_SDE.Show
End Sub
 

Discussions similaires

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