XL 2010 Chargement d'un combobox

[sevy1]

Bonjour à tous
J'ai un combobox que j'appelle Cb_BL qui est une zone de recherche qui doit m'afficher les données de la colonne C et D de data mai il ne m'affiche que le titre et une ligne voici le code que j'ai écrit

Option Compare Text
Dim clé()
Dim f As Worksheet

Private Sub UserForm_initialize()
Set f = Data
    Me.Modereglement.List = Array("CHEQUE", "ESPECE", "PERMANENT")
    Me.Typecaution.List = Array("PERMANENTE", "PONCTUELLE", "LETTRE DE GARANTIE")
    Me.Loisirs.List = Array("20'", "40'", "20'Frigo", "40'Frigo")
    Me.Commentaire.List = Array("", "ANNULE", "RETOURNE")
 
    clé = f.Range("C2:D" & [C65000].End(xlUp).Row).Value
    Me.Cb_bl.List = clé
 
Me.Bl.SetFocus

End Sub

Pouvez vous me dire ou se trouve mon erreur?

 

[Lone-wolf]

Bonjour sevy

Ceci est erroné: Set f = Data ; c'est Set f = Sheets("Data")

clé = f.Range("c2:d" & f.Range("c" & Rows.Count).End(xlUp).Row).Value

Dans les propriétés de la combo, colmnscount = 2 - columnswidth = 80;60

 

[sevy1]

Bonjour
voici le nouveau fichier car l'ancien avait un mot de passe.
Pour vos remarques je voulais utiliser le codename (le nom système de la feuille est DATA

 

[Lone-wolf]

Re

@sevy1

voici le nouveau fichier

Cette fois le fichier est XlSheetVeryHidden. Traduction: complètement invisible

 

[sevy1]

Bonjour
Mot de passe classeur : contrat mot de passe vba :sevynitram

 

[Dranreb]

Bonjour.
Mettez :

    Me.Cb_bl.List = Data.Range("C2:D" & Data.[C65000].End(xlUp).Row).Value

(Là il prenait Me.Cb_bl.List = Data.Range("C2" & ActiveSheet.[C65000].End(xlUp).Row).Value
or ActiveSheet est Feuil2 (MENU))

 

[sevy1]

Bonjour
Merci pour ces explications claires; ça marche