Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Boite dialogue sur saisie dates

Boite dialogue sur saisie dates

4 réponses
Avatar
Freedo
Bonjour =E0 Toutes et =E0 Tous,
Comment r=E9aliser un boite de dialogue en vba qui me=20
poserait la question de choisir une date de d=E9part et une=20
date de fin.
Avec l'enregistreur de macro j'ai ceci :
Selection.AutoFilter Field:=3D1, Criteria1:=3D">30/09/2003",=20
Operator:=3DxlAnd _
, Criteria2:=3D"<1/11/2003"
j'aimerais qu'a l'emplacement les dates soient issues=20
d'une boite de dialogue.
merci de suivre,
Freedo
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Dédé
Salut Freedo !

Dans la FAQ tu trouvera tout plein de classeurs d'exemple pour la saisie de
dates ...

Fais-y un saut et tu trouvera très certainement ton bonheur ...

Si tu trouves pas, reviens par là et je t'enverrais un classeur en exemple
dans ta BAL mais fais tes recherches avant ;-))

Salutations
Dédé
PS: Pour la plupars des exemple, il faut avoir Access d'installer ...;-)
est-ce que tu a Access ?
--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Freedo" a écrit dans le message de
news:02c301c3a8fe$0641c900$
Bonjour à Toutes et à Tous,
Comment réaliser un boite de dialogue en vba qui me
poserait la question de choisir une date de départ et une
date de fin.
Avec l'enregistreur de macro j'ai ceci :
Selection.AutoFilter Field:=1, Criteria1:=">30/09/2003",
Operator:=xlAnd _
, Criteria2:="<1/11/2003"
j'aimerais qu'a l'emplacement les dates soient issues
d'une boite de dialogue.
merci de suivre,
Freedo
Avatar
Ellimac
Bonjour,

Avec InputBox et en utilisat des variables numériques
(sinon pb de date au format GB) :

Sub toto()
Dim deb As Long
Dim fin As Long
deb = CDate(InputBox("début"))
fin = CDate(InputBox("fin"))
Range("a1").AutoFilter field:=1, Criteria1:=">=" &
(deb), _
Operator:=xlAnd, Criteria2:="<=" & fin
End Sub

Camille

-----Message d'origine-----
Bonjour à Toutes et à Tous,
Comment réaliser un boite de dialogue en vba qui me
poserait la question de choisir une date de départ et une
date de fin.
Avec l'enregistreur de macro j'ai ceci :
Selection.AutoFilter Field:=1, Criteria1:=">30/09/2003",
Operator:=xlAnd _
, Criteria2:="<1/11/2003"
j'aimerais qu'a l'emplacement les dates soient issues
d'une boite de dialogue.
merci de suivre,
Freedo
.



Avatar
Freedo
Bonjour Ellimac,
merci beaucoup pour ta solution, je viens de l'essayer et
cela fonction bien.
Voci ce que j'avais préparé suite au message de Dédé
Sub DatesFitrés()
Dim DateDebut As String
Dim DateFin As String
Dim DerLigne As Range
DateDebut = InputBox("Entrez la date de début au format
JJ/MM/AAAA")
If DateDebut = "" Then Exit Sub
On Error Resume Next
DateFin = InputBox("Entrez la date de fin au format
JJ/MM/AAAA")
If DateFin = "" Then Exit Sub
DerLigne = Range("a1").End(xlDown).Row
Range("A1:b" & "derligne").Select
Selection.AutoFilter field:=1,
Criteria1:="=>DateDebut", Operator:=xlAnd _
' , Criteria2:="=<DateFin"
Range("a2").Select
End Sub
bien que la saisie des dates fonctionne , la plage nest
filtrée comme je l'espérais et le curseur se place sur la
première cellule vide de la col A.
Il doit y avoir un stuut mais où?
Cordialement,
Freedo
----Message d'origine-----
Bonjour,

Avec InputBox et en utilisat des variables numériques
(sinon pb de date au format GB) :

Sub toto()
Dim deb As Long
Dim fin As Long
deb = CDate(InputBox("début"))
fin = CDate(InputBox("fin"))
Range("a1").AutoFilter field:=1, Criteria1:=">=" &
(deb), _
Operator:=xlAnd, Criteria2:="<=" & fin
End Sub

Camille

-----Message d'origine-----
Bonjour à Toutes et à Tous,
Comment réaliser un boite de dialogue en vba qui me
poserait la question de choisir une date de départ et
une


date de fin.
Avec l'enregistreur de macro j'ai ceci :
Selection.AutoFilter Field:=1,
Criteria1:=">30/09/2003",


Operator:=xlAnd _
, Criteria2:="<1/11/2003"
j'aimerais qu'a l'emplacement les dates soient issues
d'une boite de dialogue.
merci de suivre,
Freedo
.

.





Avatar
freedo
Salut Dédé,
j'avais déjà recherché sur la faq mais il n'y avait pas
ce que je voulais, néanmoins j'ai quand rassemblé ceci
mais ne fonctionne pas au niveau du filtre.
Sub DatesFitrés()
Dim DateDebut As String
Dim DateFin As String
Dim DerLigne As Range
DateDebut = InputBox("Entrez la date de début au format
JJ/MM/AAAA")
If DateDebut = "" Then Exit Sub
On Error Resume Next
DateFin = InputBox("Entrez la date de fin au format
JJ/MM/AAAA")
If DateFin = "" Then Exit Sub
DerLigne = Range("a1").End(xlDown).Row
Range("A1:b" & "derligne").Select
Selection.AutoFilter field:=1,
Criteria1:="=>DateDebut", Operator:=xlAnd _
, Criteria2:="=<DateFin"
Range("a2").Select
End Sub
cordialement,
freedo
-----Message d'origine-----
Salut Freedo !

Dans la FAQ tu trouvera tout plein de classeurs
d'exemple pour la saisie de

dates ...

Fais-y un saut et tu trouvera très certainement ton
bonheur ...


Si tu trouves pas, reviens par là et je t'enverrais un
classeur en exemple

dans ta BAL mais fais tes recherches avant ;-))

Salutations
Dédé
PS: Pour la plupars des exemple, il faut avoir Access
d'installer ...;-)

est-ce que tu a Access ?
--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_re
ponses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_x
l

http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Freedo" a écrit
dans le message de

news:02c301c3a8fe$0641c900$
Bonjour à Toutes et à Tous,
Comment réaliser un boite de dialogue en vba qui me
poserait la question de choisir une date de départ et une
date de fin.
Avec l'enregistreur de macro j'ai ceci :
Selection.AutoFilter Field:=1, Criteria1:=">30/09/2003",
Operator:=xlAnd _
, Criteria2:="<1/11/2003"
j'aimerais qu'a l'emplacement les dates soient issues
d'une boite de dialogue.
merci de suivre,
Freedo


.