Bonjour
Si je veux appliquer la même chose mais pour les années. Dois-je refaire un nouveau post vu que celui-ci est résolu ??
Non ce n'est pas nécessaire de créer un nouveau post. Faites ceci dans votre userform :
- Créez une combobox pour les années
- Vérifiez qu'elle a bien le nom Combobox2
- Si vous avez utilisé le code proposé avant, remplacez le par celui ci-dessous
Private Sub UserForm_Initialize()
Dim Mois(1 To 12) As String
Dim Annee
Dim i As Integer
Annee = Year(Now())
For i = 1 To 12
Mois(i) = Format(DateSerial(1, i, 1), "mmmm")
ComboBox1.AddItem Mois(i)
ComboBox2.AddItem Annee + i - 1
Next i
End Sub
Il faudra adapter les autres codes bien sûr. Notamment
- Supprimer le code Textbox1_change
- modifier le code Combobox1_change ci-dessous
Private Sub ComboBox1_Change()
UserForm1.Label9.Caption = UserForm1.ComboBox1.Value
Call maj
End Sub
- Ajouter le code pour la combobox2 ci-dessous
Private Sub ComboBox2_Change()
UserForm1.Label9.Caption = UserForm1.ComboBox1.Value & " " & UserForm1.ComboBox2.Value
End Sub
Cordialement