Valeur par défaut dans 1 combobox

[SPEA]

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]

Re : Valeur par défaut dans 1 combobox

Bonjour,

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

Cordialement

 

[SPEA]

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).

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]

Re : Valeur par défaut dans 1 combobox

essaye peut etre avec

combobox1.Text

 

[Pierrot93]

Re : Valeur par défaut dans 1 combobox

Bonjour Spea, Spitnolan, Chloulou

essaye peut être comme ci dessous :

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]

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]

Re : Valeur par défaut dans 1 combobox

Re

avec les années même principe :

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]

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)

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