XL 2016 Réglage date début et date de fin

[mohaamri]

Bonjour a tous
ya t'il une proposition pour cet exemple

 

[Dranreb]

Bonjour.

Private Sub UserForm_Click()
   With Feuil1.[B2:C2].Offset(CDate(ComboBox2.Text) - Feuil1.[A2].Value) _
      .Resize(CDate(ComboBox3.Text) - CDate(ComboBox2.Text) + 1)
      .Columns(1).Value = TextBox1.Text: .Columns(2).Value = ComboBox1.Text
      End With
   End Sub

 

[David Aubert]

Bonjour à tous,

@mohaamri :
Pour le dire un peu plus avec les formes et comme cela est précisé dans la charte :
Il est important de respecter quelques conditions de forme sur le forum.
Les titres en majuscules sont proscrits et ils doivent être le plus explicite possible.
Ta question doit être aussi la plus explicite possible avec une mise en forme simple (pas de gras sur tout le message).
Se contenter de dire "Bonjour" (ça c'est très bien ;-) ) et demander aux membres d'ouvrir un fichier pour comprendre ta demande n'est pas suffisant et comme tu as pu le voir, certains membres le vivent très mal car c'est une pratique vu comme étant irrespectueuse des membres répondeurs du site.
Tout le monde ne le vois pas ainsi mais afin d'éviter les malaises, merci de respecter ces pratiques.

Merci d'avance de respecter nos usages et de lire la charte à nouveau si tu as des doutes :

Charte et règlement des forums

A lire avant de poster sur nos forums.

www.excel-downloads.com

Bonne journée

 

[mohaamri]

merci tres bon code sans if...