XL 2013 [Résolu]premier et dernier jour d'un mois en fonction d'une liste

[guillaum]

Bonjour le forum!

je bloque sur un code en vba qui permettrai de définir le premier jour et le dernier jour d'un mois en fonction d'une sélection d'un mois dans une liste de validation.

Je joins un fichier pour que cela soit clair, sachant que c'est un petit bout d'un projet que je met en place.

Je vous vous remercie par avance pour votre aide et/ou indications pour me débloquer.

Guillaume

 

[vgendron]

hello
pas besoin de vba
deux formules simples
en B5:
=DATE(2017;EQUIV(B4;mois;0);1)

et en B6:
=FIN.MOIS(B5;0)

 

[guillaum]

bonjour Vgendron,

Merci pour ta réponse qui correspond à ce que je recherche.

J'aimerai quand même savoir comment coder cela en vba!

 

[vgendron]

en vba. un truc dans le genre
formule="=DATE(2017,match(B4,mois,0),1)"

range("B5").formula=formule

 

[guillaum]

re-mercie Vgendron,

Je met en place la formule qui fonctionne à la perfection et testerai le vba (je ne suis pas l'utilisateur final donc je préfère éviter que quelqu'un efface une formule qui ne faut pas et que je revienne dessus!)

Guillaume.

 

[Dranreb]

Bonsoir.
En VBA pur on peut faire comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DatDéb As Date, An%
If Target.Address = "$B$4" Then
   An = Year(Date)
   DatDéb = CDate("1 " & Target.Value & " " & An)
   [B5].Value = DatDéb
   [B6].Value = DateSerial(An, Month(DatDéb) + 1, 0)
   End If
End Sub

 

[guillaum]

Bonjour Dranreb,

Merci pour ton code il fonctionne parfaitement.

Guillaum