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

Question

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.

Configuration: Windows 7 / Mozilla 11.0

Gyrus · Answer

Bonjour,

Essaie comme cela :
Sub DATES()Dim Date_debutDim 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+

via55 · Answer

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

InputBox, inserer une date de debut et fin de periode

2 réponses

Discussions similaires