Userforme remplissage combobox avec une boucle

Bonjour

J'ai plusieurs combobox1, combobox2 etc que je souhaiterai remplir avec les colonnes 1 , 2 etc correspondantes de la feuil1

voici donc ce que j'ai fait

For i = 1 To 9
        lastlig = Sheets("Feuil1").Cells(1, i).End(xlDown).Row
       Me.Controls("ComboBox" & i).RowSource = Sheets("Feuil1").Range(Cells(1, i), Cells(lastlig, i))
    Next i

mais j'arrive à une incompatibilité de type 'erreur 13'

une ame charitable pourrait me dire ce qui cloche car je sèche un peu

merci

Bonjour

Tu devrais joindre ton fichier...

Bye !

voici le fichier

les colonnes A,B, C etc de la feuil1 doivent remplir les liste déroulantes du userform (qui s'appelle formtest)

la numero de colonne correspondant au numero de combobox

merci

Bonjour,

mais j'arrive à une incompatibilité de type 'erreur 13'

une ame charitable pourrait me dire ce qui cloche car je sèche un peu

Tu envoies un plage de valeurs quand une adresse de plage (type string) est attendue !

Soit tu remplaces .RowSource par .List (et ajoute éventuellement .Value à ton expression de plage)

Soit tu ajoutes .Address à ton expression de plage.

La première option pourrait être préférable selon l'utilisation ultérieure...

Cordialement.

ah oui quel cornichon !

merci j'essaie ça de suite

ok merci beaucoup ça fonctionne....

j'ai une autre tite question , si tu pouvais juste me donne une piste après je creuserai

je souhaiterai qu'à l'affichage du form les valeurs des combobox ne soient pas vides mais remplies par une des valeurs de la liste déroulante.....

Tu définis par exemple le .ListIndex = 0 (pour afficher le premier élément de la liste) avant ouverture (après avoir affecté une liste !)

ok merci beaucoup pour ton aide

bye