InputBox, inserer une date de debut et fin de periode
Résolu
Ljonnier
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
-
Ljonnier Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
Ljonnier Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
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
- Insérer signature word - Guide
- Fin des zfe - 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
31
Date d'inscription
Statut
Membre
Dernière intervention
J'ai encore un sacre bout de chemin a faire avant de passer du cote des gens qui aident ! Ca marche parfaitement, merci beaucoup
