Choisir un mois et donner le premier et le dernier jour

[lodam]

Bonjour à tous et à toutes

Je vous fais part de mes recherches.
On peut choisir par un combobox le mois (pas très dur...)
Et normalement on voit s'afficher le premier jour de ce mois choisi et le dernier jour de ce mois.

Bon pour le moment, ça coince..
Mais je ne désespère pas.
Toutes les idées sont les bienvenues !
bon apétit

lodam

 

[Staple1600]

Re : Choisir un mois et donner le premier et le dernier jour

Bonjour

Premier jour du mois
=DATE(ANNEE(A1);MOIS(A1);1)

Dernier jour du mois
=DATE(ANNEE(A1);MOIS(A1)+1;0)

 

[Pierrot93]

Re : Choisir un mois et donner le premier et le dernier jour

Re Lodam, Bonjour Stapple

regarde si cela te convient, j'ai un peu changé l'alimentation de ta combo...

bon après midi
@+

 

[Staple1600]

Re : Choisir un mois et donner le premier et le dernier jour

Re

Je suppose que ca ressemble à ce qu'a fait Pierrot93
(mais chez lui le code doit etre propre 🙄)

Je n'ai pas regardé son fichier

Private Sub UserForm_Initialize()
'il faudrait afficher le mois en cours par défaut
Dim mois As Integer
mois = Month(Date)
Dim i As Integer
For i = 1 To 12
ComboBox1.AddItem Format(DateSerial(Year(Date), i, 1), "mmmm")
Next i
ComboBox1.ListIndex = mois - 1
End Sub

edit: je viens de regarder le classeur de Pierrot93
C'est bien ce que j'avais préssenti

Net et précis, sans bavure, du code VBA comme on l'aime dans les alpages 🙂

 

[lodam]

Re : Choisir un mois et donner le premier et le dernier jour

Excel...lentissime !
ça me convient parfaitement
ça fait du bien d'apprendre comme ça !
bonne fin d'am

lodam

 

[lodam]

Re : Choisir un mois et donner le premier et le dernier jour

voici la version finale avec la validation de l'année (au cas où)

merci encore à Pierrot93 et à Staple1600

Bonne fin d'am