Valeur par défaut dans 1 combobox

SPEA · 27 Juillet 2007

Bonjour,

Je voudrais simplement savoir s'il est possible d'affecter une valeur par défaut dans un combobox ?

J'ai un USF avec 2 combobox, 1 pour choisir le mois et l'autre pour l'année.
Est il possible que le mois et l'année en cours soient affichés par défaut ?

Merci.

Spitnolan08 · 27 Juillet 2007

Re : Valeur par défaut dans 1 combobox

Bonjour,

Code:

Private sub userform_Initialize()
Combobox1.value= Year(Now)
Combobox2.value = Month(Now)
End sub

Cordialement

SPEA · 27 Juillet 2007

Re : Valeur par défaut dans 1 combobox

Re,

j'ai ajouté les lignes de code mais ca coince (erreur 380, impossible de définir la propriété value).

Code:

Private Sub userform_Initialize()
'remplissage du ComboBox1 (mois)
ComboBox1.AddItem "Janvier"
ComboBox1.AddItem "Février"
ComboBox1.AddItem "Mars"
ComboBox1.AddItem "Avril"
ComboBox1.AddItem "Mai"
ComboBox1.AddItem "Juin"
ComboBox1.AddItem "Juillet"
ComboBox1.AddItem "Août"
ComboBox1.AddItem "Septembre"
ComboBox1.AddItem "Octobre"
ComboBox1.AddItem "Novembre"
ComboBox1.AddItem "Décembre"

'remplissage du ComboBox2 (année)
For x = 2006 To 2007
    ComboBox2.AddItem x
Next x

ComboBox1.Value = Month(Now)
ComboBox2.Value = Year(Now)

End Sub

Chloulou · 27 Juillet 2007

Re : Valeur par défaut dans 1 combobox

essaye peut etre avec

Code:

combobox1.Text

Pierrot93 · 27 Juillet 2007

Re : Valeur par défaut dans 1 combobox

Bonjour Spea, Spitnolan, Chloulou

essaye peut être comme ci dessous :

Code:

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 12
    ComboBox1.AddItem MonthName(i)
Next i
ComboBox1.Value = MonthName(Month(Date))
End Sub

bonne journée
@+

SPEA · 27 Juillet 2007

Re : Valeur par défaut dans 1 combobox

Bonjour Pierrot,

j'ai teste ta solution, ca marche pour les mois. Il faut que je trouve pour l'année et ca sera OK.

@+

Pierrot93 · 27 Juillet 2007

Re : Valeur par défaut dans 1 combobox

Re

avec les années même principe :

Code:

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 12
    ComboBox1.AddItem MonthName(i)
Next i
ComboBox1.Value = MonthName(Month(Date))
For i = 2004 To 2010
    ComboBox2.AddItem i
Next i
ComboBox2.Value = Year(Date)
End Sub

attention type de donnée modifié par rapport a mon précedent post.

@+

Spitnolan08 · 27 Juillet 2007

Re : Valeur par défaut dans 1 combobox

Re,
Bonjour à tous,

Je ne comprends pas, je viens de tester ton code, en y apportant une petite modification pour afficher le mois en lettres et ça fonctionne...(Ca fonctionnait avant aussi)

Code:

Private Sub userform_Initialize()
'remplissage du ComboBox1 (mois)
ComboBox1.AddItem "Janvier"
ComboBox1.AddItem "Février"
ComboBox1.AddItem "Mars"
ComboBox1.AddItem "Avril"
ComboBox1.AddItem "Mai"
ComboBox1.AddItem "Juin"
ComboBox1.AddItem "Juillet"
ComboBox1.AddItem "Août"
ComboBox1.AddItem "Septembre"
ComboBox1.AddItem "Octobre"
ComboBox1.AddItem "Novembre"
ComboBox1.AddItem "Décembre"

'remplissage du ComboBox2 (année)
For x = 2006 To 2007
    ComboBox2.AddItem x
Next x

ComboBox1.Value = ComboBox1.List(Month(Now) - 1)
ComboBox2.Value = Year(Now)

End Sub

Valeur par défaut dans 1 combobox

SPEA

XLDnaute Occasionnel

Spitnolan08

XLDnaute Barbatruc

SPEA

XLDnaute Occasionnel

Chloulou

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

SPEA

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Spitnolan08

XLDnaute Barbatruc

Discussions similaires

Valeur par défaut dans 1 combobox

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency