InputBox, inserer une date de debut et fin de periode

Résolu/Fermé

Ljonnier Messages postés 31 Date d'inscription lundi 15 août 2016 Statut Membre Dernière intervention 23 novembre 2016 - 16 août 2016 à 17:46
Ljonnier Messages postés 31 Date d'inscription lundi 15 août 2016 Statut Membre Dernière intervention 23 novembre 2016 - 16 août 2016 à 18:22

Bonjour a tous,

me revoila mais j'ai une derniere question pour vous, je suis en train de bosser sur les inputs box.

J'aimerais que lorsque je clicque sur un bouton definis une fenetre apparaisse et me demande ma date de debut et ma date de fin de periode, puis une fois que ces dernieres sont rentrees, que les cases correspondant a ces dates se modifient et s'adaptent en fonction des reponses.

j'ai ce debut de code, mais ca ne fonctionne pas totalement :

Sub DATES()

Application.ScreenUpdating = False
ActiveSheet.Select

Dim Date_debut As Date
Dim Date_fin As Date

Date_debut = InputBox("Entrer la date ", " Date de debut d'intervalle ", "01/01/2013 ")

Date_fin = InputBox("Entrer la date ", " Date de fin d'intervalle ", "01/01/2013 ")

Date_debut = Cells(1, 1)
Date_fin = Cells(2, 1)

End Sub

Est-ce que vous pourriez m'aider ?

D'avance merci.

A voir également:

InputBox, inserer une date de debut et fin de periode
Insérer signature word - Guide
Insérer une vidéo dans powerpoint - Guide
Insérer liste déroulante excel - Guide
Insérer sommaire word - Guide
Whatsapp date incorrecte ✓ - Forum Mobile

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
16 août 2016 à 18:03

Bonjour,

Essaie comme cela :

Sub DATES()
Dim Date_debut
Dim Date_fin
    Application.ScreenUpdating = False
    Date_debut = InputBox("Entrer la date ", " Date de debut d'intervalle ", Date)
    If IsDate(Date_debut) Then Cells(1, 1) = CDate(Date_debut)
    Date_fin = InputBox("Entrer la date ", " Date de fin d'intervalle ", Date)
    If IsDate(Date_fin) Then Cells(2, 1) = CDate(Date_fin)
End Sub

A+

Ljonnier Messages postés 31 Date d'inscription lundi 15 août 2016 Statut Membre Dernière intervention 23 novembre 2016
16 août 2016 à 18:13

J'ai encore un sacre bout de chemin a faire avant de passer du cote des gens qui aident ! Ca marche parfaitement, merci beaucoup

Réponse 2 / 2

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
16 août 2016 à 18:11

Bonjour Ljonnier

Pour répercuter les données dans la feuilles les dernières lignes doivent être :
Cells(1, 1) = Date_debut
Cells(2, 1) = Date_fin

et avant la fin de la Sub il faut remettre Application.ScreenUpdating à True

Cdlmnt
Via

Ljonnier Messages postés 31 Date d'inscription lundi 15 août 2016 Statut Membre Dernière intervention 23 novembre 2016
16 août 2016 à 18:22

Merci beaucoup ;)

Discussions similaires

EXCEL - Calcul automatique de Fin de contrat et période d'essai

Pix

fin du film chambre 1408

je cherche la date et le lieu de naissance d une personne

Prélèvement JM Jacquie et Michel date.

Discussions similaires

Newsletters