Saisie semi-automatique avec filtrage

[C60a]

Bonjour à tous,

J'aimerais dans la ligne A2:G2 saisir des mots qui déclenchent successivement un filtrage automatique sur chaque colonne en cours,

Si je saisie en A2, un filtre automatique est appliqué en colonne A selon les lettres saisie en A2.

Si je saisie en B2, un filtre est appliqué sur la colonne B, sur le résultat du premier filtre, selon la valeur saisie en B2.

En C3, un filtre est appliqué sur la colonne C, sur le résultat du deuxième filtre, selon la valeur saisie en C3.

Et ainsi de suite.

A la fin, si tous les valeurs saisies ont 0 enregistrements trouvés (filtrés), alors cette ligne A2:G2 est ajoutée au tableau de données A4:G6.

Merci d’avance,

 

[youky(BJ)]

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

 

[C60a]

Bonsoir youky,

Merci d'avoir répondu à mon sujet.

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

 

[youky(BJ)]

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

 

[youky(BJ)]

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

 

[C60a]

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 !

 

[youky(BJ)]

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

 

[C60a]

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 :

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 :

Sub Macro1()
'
' Macro1 Macro
'

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

 

[youky(BJ)]

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

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

 

[3xceln4ute]

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.

 

[C60a]

Bonsoir youky,

Maintenant la recherche par date fonctionne bien.

J’essaye avec le format de la colonne C.

 

[youky(BJ)]

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

 

[youky(BJ)]

C60a je regarde demain
Bruno

 

[youky(BJ)]

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

 

[C60a]

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 :

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 ?!