InputBox, inserer une date de debut et fin de periode
Résolu
Ljonnier
Messages postés
33
Statut
Membre
-
Ljonnier Messages postés 33 Statut Membre -
Ljonnier Messages postés 33 Statut Membre -
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.
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 une vidéo dans powerpoint - Guide
- Fin des zfe - Guide
- Insérer signature word - Guide
- Comment insérer des points de suite sur word - Guide
- Insérer liste déroulante excel - Guide
2 réponses
Bonjour,
Essaie comme cela :
A+
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
33
Statut
Membre
J'ai encore un sacre bout de chemin a faire avant de passer du cote des gens qui aident ! Ca marche parfaitement, merci beaucoup
