Format Combobox

apdf1 · 23 Juin 2011

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 ?

Code:

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 · 23 Juin 2011

Re : Format Combobox

Bonjour,

peut être comme ceci :

Code:

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 · 23 Juin 2011

Re : Format Combobox

Bonjour Pierrot,

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

Max

Format Combobox

apdf1

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

apdf1

XLDnaute Impliqué

Discussions similaires

Format Combobox

apdf1

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

apdf1

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency