Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

mohaamri

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

Pièces jointes

  • test.xlsm
    19.8 KB · Affichages: 17

Dranreb

XLDnaute Barbatruc
Bonjour.
VB:
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

XLDnaute Barbatruc
Administrateur
Modérateur
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 :

Bonne journée
 

Discussions similaires

Réponses
4
Affichages
429
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…