Saisie semi-automatique avec filtrage

youky(BJ)

XLDnaute Barbatruc

• 20 Décembre 2016

• #2

Bonjour un peu tardif, mais c'est mieux que rien.
Donc voici une version
J'ai mis un encart explication dans ce fichier
Il faut quitter le textbox7 pour voir si copy
Bruno

 

Pièces jointes

• SaisieFiltrageAuto_v001.xlsm

  32.5 KB · Affichages: 51

Vote positif 0 Vote négatif

C60a

XLDnaute Junior

• 20 Décembre 2016

• #3

Bonsoir youky,

Merci d'avoir répondu à mon sujet.

Ne peut-on pas rechercher avec un format numérique ou format date ?

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 20 Décembre 2016

• #4

Oui c'est possible mais avec plus de lignes de code
Je regarde cela demain si possible.
Bruno

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 20 Décembre 2016

• #5

Bon c'est plus rapide que prévu
Voici donc.........
Bruno

 

Pièces jointes

• SaisieFiltrageAuto_v001.xlsm

  33.4 KB · Affichages: 46

Vote positif 0 Vote négatif

C60a

XLDnaute Junior

• 20 Décembre 2016

• #6

Re,

J'ai testé avec ces valeurs :

1 - aa - 1233 - aaa - 27/11/2016

Mais pour la date ça na pas fonctionner ?

Pourtant il y a bien la date 27/11/2016 en colonne E !

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 20 Décembre 2016

• #7

Vérifie que l date est bien en format date dans les données
Lorsque l'on prend la date d'un textbox il faut faire Cdate(textbox1) pour convertir en date
Chose qui n'était pas fait avant.
Les chiffres doivent être en format Standard et les dates en format date
Bruno

 

Vote positif 0 Vote négatif

C60a

XLDnaute Junior

• 20 Décembre 2016

• #8

Les données en colonne E sont bien en format date.

j'ai essayé ce test pour obtenir un résultat, mais ça n'a pas encore fonctionner :

VB:

Private Sub TextBox5_Change()
    If TextBox5 = "" Then ActiveSheet.Range("$A$4:$G$4").AutoFilter Field:=5: Exit Sub
    On Error Resume Next
    If TextBox5.TextLength = 10 Then
        ActiveSheet.Range("$A$4:$G$4").AutoFilter Field:=5, Criteria1:="=" & CDate(TextBox5.Value)
        If Err = 0 Then verif_copy
    End If
End Sub

Mais lorsque j'applique un filtre manuel et choisir la date depuis le calendrier proposé dans "égal à", la ligne contenant cette date "27/11/2016" est bien visible :

VB:

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Range("$A$4:$G$7").AutoFilter Field:=5, Criteria1:= _
                                              "=27/11/2016", Operator:=xlAnd
End Sub

 

Dernière édition: 21 Décembre 2016

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 21 Décembre 2016

• #9

RE,
copy cette macro dans module1
fait exécuter en macro
Ensuite efface la macro du module1

Code:

Sub mydate()
Columns("E:E").NumberFormat = "dd/mm/yyyy"
For lig = 5 To [E65000].End(3).Row
Cells(lig, 5) = CDate(Cells(lig, 5))
Next
End Sub

 

Vote positif 0 Vote négatif

3xceln4ute

XLDnaute Occasionnel

• 21 Décembre 2016

• #10

Bonjour tout le monde,

J'ai vu le document de la saisie semi-auto et il s’avérerait qu'il répondrait parfaitement à mon besoin.

Le but est d'avoir une recherche pour toutes les colonnes. Ci-joint le fichier.

Merci d'avance.

 

Pièces jointes

• Projet recherche Classeur.xlsm

  236.7 KB · Affichages: 48

Vote positif 0 Vote négatif

C60a

XLDnaute Junior

• 21 Décembre 2016

• #11

Bonsoir youky,

Maintenant la recherche par date fonctionne bien.

J’essaye avec le format de la colonne C.

 

Pièces jointes

• SaisieFiltrageAuto_v003.xlsm

  30.4 KB · Affichages: 39

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 21 Décembre 2016

• #12

Je poste le fichier que je viens de terminer pour Subirubi,
J'ai mis un userform en cliquant en A1
Vérifier que les dates sont bien filtrées chez toi
Bruno

 

Pièces jointes

• Projet recherche Classeur.xlsm

  213.2 KB · Affichages: 53

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 21 Décembre 2016

• #13

C60a je regarde demain
Bruno

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 22 Décembre 2016

• #14

C60a Bonjour
Voici le fichier mis en format text sauf dates
Attention les chiffres inscrits restent du texte et ne peuvent être additionnés ou triés.
A toi de voir
Bruno

 

Pièces jointes

• SaisieFiltrageAuto_v003.xlsm

  33.1 KB · Affichages: 41

Vote positif 0 Vote négatif

C60a

XLDnaute Junior

• 22 Décembre 2016

• #15

Bonjour youki,

Pour le moment, juste un truc que je ne peux l'expliqué :

Quand je tape une date directement dans le TextBox5 (Colonne E) sans passer par les autres TextBox, le filtre appliqué ne retourne rien, pourtant la date saisie s'y trouve bien dans le tableau des données !?

Je continu les tests !

EDIT :
Le filtre sur date ne fonctionne pas à tout les coups.

Je teste maintenant sur une autre machine, et la saisie n'est pas reconnu comme date dans la colonne E (TextBox5)... Bizzare !

Apres execution du code de la macro en haut :

VB:

Sub mydate()
Columns("E:E").NumberFormat = "dd/mm/yyyy"
For lig = 5 To [E65000].End(3).Row
Cells(lig, 5) = CDate(Cells(lig, 5))
Next
End Sub

La saisie est reconnu comme date ?!

 

Dernière édition: 22 Décembre 2016

Vote positif 0 Vote négatif