Remplir un ComboBox VBA

Bonjour,

j’essaie de mettre en place un userform basic, pour cela je souhaiterai que mon ComboBox soit prérempli avec des valeurs représentant des heures, par exemple "08:00" , "09:00"...

est il possible d'affecter ces valeurs directement dans le code, pas besoin qu'il aille les copier sur une feuille excel?

Merci beaucoup

bonjour awa123

tu mets ceci dans le code de l'initialisation de l'userform

Private Sub UserForm_Initialize()
 Dim heure As Variant
    heure = Array("08:00", "08:30", "09:00", "09:30")

    For I = 0 To UBound(heure)
        ComboBox1.AddItem heure(I)
    Next I
End Sub

et tu peut ajouter autant de données que tu veux en respectant les signes

pascal

Bonjour,

2 autres propositions.

Cdlt.

Private Sub UserForm_Initialize()
Dim i As Byte
    ' par 30 minutes
    For i = 0 To 23 * 2 + 1
        Me.ComboBox1.AddItem Format(i / 48, "hh:mm")
    Next
End Sub

Private Sub UserForm_Initialize()
Dim i As Byte
    ' par heure
    For i = 0 To 23
        Me.ComboBox1.AddItem Format(i / 24, "hh:mm")
    Next
End Sub