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 tjts pb textbox/date...

tjts pb textbox/date...

7 réponses
Avatar
massonlafayette
bonsoir,
je vous avais contactés il y a qq jours pour 1 prob de date et de textbox et de
filtre auto mais aucune solution donnée n'a marché. je m'étais débrouillé avec
des numéros de série mais là, pour ce que je demande c'est pas possible:
j'ai fait 1 userform avec 2 textbox 1 pour date de début et 1 autre pr date de
fin.
j'ai en colonne "A" 7000 dates à trier. Je souhaite faire 1 filtre auto pour la
fourchette de dates selectionnées. j'ai essayé avec dateval, avec cdate, en
convertissant en texte, bref à peu près tout mais rien ne marche, je n'ai que
des lignes vides et qd, manuellement, après la macro, je clique sur l'ascenceur
du filtre auto de la colonne "A" puis sur personnalisé, je trouve bien dans les
critères les bonnes dates que la macro a apportées et si je clique sur ok, ça
marche!
alors si 1 génie de l'informatique peut m'aider, ça serait vraiment super super
sympa!
merci.
Signaler un problème avec ce contenu

7 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
David T.
Bonsoir lionel

Tout de suite je ne suite pas un pro d'excel mais...(haaaa) je pense avoir
en "stock" ce qu'il te faut
car j'ai eu le meme problème.

A savoir : En C1 ta date de début
En C2 ta date de fin
Colonne A : tes données "les dates" à partir de la ligne 8
Ligne 7 les entètes

Sub Filtre_Dates()
Dim Rg As Range, Rg1 As Range
Dim Ddéb As String
Dim Dfin As String


Sheets("essai").Select

Range("A7").Select
Application.ScreenUpdating = False

Ddéb = .[C1] * 1
Dfin = .[C2] * 1
.[A5:J65536] = ""

derL = .[A65536].End(3).Row
.[A7].AutoFilter Field:=1, Criteria1:=">=" & Ddéb, Operator:=xlAnd,
Criteria2:="<=" & Dfin
On Error Resume Next

Range("A7:C7").Select 'Le C "7" A modifier comme tu veux
Selection.AutoFilter
Range("A7").Select

End Sub

En espèrant que cette réponse te conviennes

Salutations

David
Avatar
bonsoir David et merci pour ton prog mais il doit être
incomplet car j'ai plein de messages d'erreurs.
d'autre part, le prob ne vient pas du filtre mais de ce
que le filtre n'accepte pas les données du textbox.
merci quand même et bonne soirée
lionel
-----Message d'origine-----
Bonsoir lionel

Tout de suite je ne suite pas un pro d'excel mais...
(haaaa) je pense avoir

en "stock" ce qu'il te faut
car j'ai eu le meme problème.

A savoir : En C1 ta date de début
En C2 ta date de fin
Colonne A : tes données "les dates" à
partir de la ligne 8

Ligne 7 les entètes

Sub Filtre_Dates()
Dim Rg As Range, Rg1 As Range
Dim Ddéb As String
Dim Dfin As String


Sheets("essai").Select

Range("A7").Select
Application.ScreenUpdating = False

Ddéb = .[C1] * 1
Dfin = .[C2] * 1
.[A5:J65536] = ""

derL = .[A65536].End(3).Row
.[A7].AutoFilter Field:=1, Criteria1:=">=" & Ddéb,
Operator:=xlAnd,

Criteria2:="<=" & Dfin
On Error Resume Next

Range("A7:C7").Select 'Le C "7" A modifier
comme tu veux

Selection.AutoFilter
Range("A7").Select

End Sub

En espèrant que cette réponse te conviennes

Salutations

David


.



Avatar
FxM
Bonsoir Lionel,

As-tu essayé ladate = CDate(TextBox1.Value) ?

http://www.google.fr/groups?as_q=textbox%20date&ie=UTF-8&oe=UTF-8&as_ugroup=*fr.excel&as_scoring=d&lr=&num0&hl=fr
Google te renvoit 702 réponse sur le groupe pour les critères
"textbox" "date" et "criteria"

@+
FxM



wrote:

bonsoir David et merci pour ton prog mais il doit être
incomplet car j'ai plein de messages d'erreurs.
d'autre part, le prob ne vient pas du filtre mais de ce
que le filtre n'accepte pas les données du textbox.
merci quand même et bonne soirée
lionel

-----Message d'origine-----
Bonsoir lionel

Tout de suite je ne suite pas un pro d'excel mais...


(haaaa) je pense avoir

en "stock" ce qu'il te faut
car j'ai eu le meme problème.

A savoir : En C1 ta date de début
En C2 ta date de fin
Colonne A : tes données "les dates" à


partir de la ligne 8

Ligne 7 les entètes

Sub Filtre_Dates()
Dim Rg As Range, Rg1 As Range
Dim Ddéb As String
Dim Dfin As String


Sheets("essai").Select

Range("A7").Select
Application.ScreenUpdating = False

Ddéb = .[C1] * 1
Dfin = .[C2] * 1
.[A5:J65536] = ""

derL = .[A65536].End(3).Row
.[A7].AutoFilter Field:=1, Criteria1:=">=" & Ddéb,


Operator:=xlAnd,

Criteria2:="<=" & Dfin
On Error Resume Next

Range("A7:C7").Select 'Le C "7" A modifier


comme tu veux

Selection.AutoFilter
Range("A7").Select

End Sub

En espèrant que cette réponse te conviennes

Salutations

David


.






Avatar
FxM
Google te renvoit 702 réponseS
A partir de 2, un S est bienvenu (j'en ai aperçu d'autre qui manquent)


@+
FxM

Avatar
sabatier
si, comme le lointain et disparu nicolas slatine, tu étais russe,
françois-xavier, tu serais obligé de dire "à partir de 4"
jps

FxM a écrit:
Google te renvoit 702 réponseS
A partir de 2, un S est bienvenu (j'en ai aperçu d'autre qui manquent)


@+
FxM



Avatar
merci, FxM, pour ton adresse de recherche, j'y ai trouvé
la solution, ( j'avais essayé Cdate mais ça ne marchait
pas), il faut: datevalue(textbox.value) et là, Mirâcle,
ça marche!!!!!!!!!!
bonne journée
lionel
-----Message d'origine-----
Google te renvoit 702 réponseS
A partir de 2, un S est bienvenu (j'en ai aperçu d'autre

qui manquent)


@+
FxM
.




Avatar
FxM
Bonsoir anonymous ;o)

Merci du retour que je note précisement.
Cdate est cité x fois pour ce genre de question. Je comprendrai sûrement
le jour où j'essaierai vraiment les usf.

@+
FxM




wrote:

merci, FxM, pour ton adresse de recherche, j'y ai trouvé
la solution, ( j'avais essayé Cdate mais ça ne marchait
pas), il faut: datevalue(textbox.value) et là, Mirâcle,
ça marche!!!!!!!!!!
bonne journée
lionel

-----Message d'origine-----

Google te renvoit 702 réponseS


A partir de 2, un S est bienvenu (j'en ai aperçu d'autre


qui manquent)

@+
FxM
.