Discussion :

[Pompaero]

Bonjour le forum

Je souhaiterai un peu d'aide, j'ai comme un p'tit pb 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gFZT82]

Bonjour,

Essaie comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pompaero]

Bonjour gFZT82

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

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