InputBox, inserer une date de debut et fin de periode [Résolu/Fermé]

Signaler
Messages postés
31
Date d'inscription
lundi 15 août 2016
Statut
Membre
Dernière intervention
23 novembre 2016
-
Messages postés
31
Date d'inscription
lundi 15 août 2016
Statut
Membre
Dernière intervention
23 novembre 2016
-
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.

2 réponses

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
527
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+
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
31
Date d'inscription
lundi 15 août 2016
Statut
Membre
Dernière intervention
23 novembre 2016

J'ai encore un sacre bout de chemin a faire avant de passer du cote des gens qui aident ! Ca marche parfaitement, merci beaucoup
Messages postés
13035
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
23 juin 2021
2 203
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
31
Date d'inscription
lundi 15 août 2016
Statut
Membre
Dernière intervention
23 novembre 2016

Merci beaucoup ;)