[XL-2007] Erreur exécution avec combobox

Erreur exécution avec combobox

Bonjour le forum

Je souhaiterai un peu d'aide, j'ai comme un p'tit pb 8-) ou j'ai flanché toute l'après-midi dessus à chercher sur le net, envin!!

Sur mon fichier j'ai crée un USF1 avec textbox et combobox, j'arrive à charger les textbox avec des heures (ça marche) de ma feuil1 mais avec la Combobox1 je n'arrive pas à la charger (en heures hh:mm) correspondant à la liste (List_hrs) de ma feuil2.

Ma liste en feuil2
A1 01:00
A2 02:00
A3 03:00
ect....

Mon code
Code:

1 2 3 4 5 Private Sub UserForm_Initialize() UserForm1.TextBox3.Value = Format(Feuil1.Range("C9").Value, "hh:mm") UserForm1.TextBox4.Value = Format(Feuil1.Range("AX9").Value, "hh:mm") 'UserForm1.ComboBox1.Value = Format(Feuil2.Range("List_hrs").Value, "hh:mm") End Sub
dés lors que j'active la ligne de formule pour la ComboBox1 celà me fais une ERREUR d'execution 13 en clickan sur le bouton qui ouvre USF1.

Certainement une erreur dans ma formule mais là je ne vois plus quoi changer.

bouton ouvre USF1
Code:

1 2 3 Private Sub CommandButton6_Click() UserForm1.Show End Sub
Donc, je cherche juste à remplir la ComboBox1 avec la liste (List_hrs) de la Feuil2.

Merçi

Cordialment

Bonjour,

Essaie comme cela

Code:

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim Cel As Range
    With Worksheets("Feuil2")
        For Each Cel In .Range("List_hrs")
            Me.ComboBox1.AddItem Format(Cel, "hh:mm")
        Next Cel
    End With
End Sub

Cordialement.

Bonjour gFZT82

Encore une fois merçi d'avoir répondu aussi rapidement :ccool:

Ton code marche trés bien et c'est tout comme je voulais, j'en suis tré contant je vais pouvoir avancer dans mes projets.

A bientôt certainement

Cordialement