Format Combobox

[apdf1]

Bonjour,

Voila j'ai USF avec une combobox auquel il me donne un nombre de 1 a 12

Y a t-il un code plus simple que celui ci ?

Private Sub UserForm_Initialize()
 With ComboBox2
        .AddItem "1"
        .AddItem "2"
        .AddItem "3"
        .AddItem "4"
        .AddItem "5"
        .AddItem "6"
        .AddItem "7"
        .AddItem "8"
         ect..
    End With
End Sub

Je vous remercie d'avance et vous souhaite une bonne journée

Cordialement

Max

 

[Pierrot93]

Re : Format Combobox

Bonjour,

peut être comme ceci :

Option Explicit
Private Sub UserForm_Initialize()
Dim i As Byte
With ComboBox2
    For i = 1 To 12
        .AddItem i
    Next i
End With
End Sub

bonne journée
@+

 

[apdf1]

Re : Format Combobox

Bonjour Pierrot,

Je te remercie beaucoup et te souhaite une bonne journée.

Max