Problème filtration date

[lanoe]

Bonjour le forum,

J’ai un Combobox et un Textbox qui se colle automatiquement en B1 et C1

Le combobox avec un choix1,2,3
Le Textbox avec une date

J’ai un bouton « afficher la sélection » qui me permet par filtre de voir uniquement les éléments sélectionnés dans le combobox et le textebox.

Sauf que cela fonctionne quand j’ai commande,
Selection.AutoFilter Field:=1, Criteria1:=Range("c1")
(filtre du choix1,2,3…)

mais quand je rajoute
Selection.AutoFilter Field:=2, Criteria1:=Range("b1")
Qui filtre de la date cela ne fonctionne pas.

Pour mieux comprendre, un petit fichier qui ne fonctionne pas correctement.

Merci d’avance

lanoe

 

[pierrejean]

Re : Problème filtration date

bonjour lanoe

A tester

Remplacer

Private Sub CommandButton4_Click()
Selection.AutoFilter Field:=1, Criteria1:=Range("c1")
Selection.AutoFilter Field:=2, Criteria1:=Range("b1")
End Sub

par

Private Sub CommandButton4_Click()
Selection.AutoFilter Field:=1, Criteria1:=Range("c1")
Selection.AutoFilter Field:=2, Criteria1:=[COLOR=blue]Format([/COLOR]Range("b1[COLOR=blue][COLOR=black]")[/COLOR], "dd-mmm")[/COLOR]
End Sub

 

[lanoe]

Re : Problème filtration date

Bonjour,

Je viens de tester le code, mais cela ne fonctionne pas...

lanoe

 

[pierrejean]

Re : Problème filtration date

Re

Tu pourrais etre plus precis sur le non fonctionnement !!

Tu noteras
1) que cela fonctionne lorsque B1 est renseignée
2) que dans la macro

Private Sub ComboBox8_Change()
If ActiveSheet.Name = "Taille Pied Hydro" Or ActiveSheet.Name = "Scarenage" Or ActiveSheet.Name = "Marquage" Then
Range("C1").Value = ComboBox8.Value
End If
End sub

tu restreins la mise a jour de B1 en fonction du nom de la feuille

Alors soit tu autorises sur Feuil1, soit tu changes le nom de cette feuille

 

[lanoe]

Re : Problème filtration date

Re,

Le fichier corriger que tu as fais parvenir, fonctionne parfaitement.

Mais j'ai toujours le même probleme avec la filtration de la date sur mon fichier intiale, alors que l'ensemble du code est identique: le filtre sur le choix fonctionne, mais le filtre de la date ne fonctionne pas: il filtre l'ensemble des cellules et ne tiens pas compte de la date inscrite en b1.

je ne comprend pas...J'ai tenu compte de tes remarques sur le nom de la feuille, apparament cela ne viens pas de la. Si tu as une piste...

cordialement

lanoe

 

[lanoe]

Re : Problème filtration date

Re,

En poursuivant ma recherche sur mon fichier je viens de voir que:

1) le 2eme filtre: filtre correctement la date.
2) mais sur le premier filtre, j'ai (tous) (10 premiers) (personnalisé...) et je n'ai pas la liste de choix qui correspond à la date.

le probleme doit donc venir de la.

Lanoe

 

[pierrejean]

Re : Problème filtration date

Re

Sans le fichier 'initial' je ne vois pas ce que je peux faire !!

 

[lanoe]

Re : Problème filtration date

Re,

Un peu de temps pour le préparer...

cordialement,

lanoe

 

[pierrejean]

Re : Problème filtration date

Re

Ton format de date en colonne B est different de celui du fichier precedent

modifie:

Private Sub CommandButton4_Click()
Selection.AutoFilter Field:=1, Criteria1:=Range("c1")
Selection.AutoFilter Field:=2, Criteria1:=Format(Range("b1"), "dd-mmm")
End Sub

en

Private Sub CommandButton4_Click()
Selection.AutoFilter Field:=1, Criteria1:=Range("c1")
Selection.AutoFilter Field:=2, Criteria1:=Format(Range("b1"), "d/m/yy")
End Sub

 

[lanoe]

Re : Problème filtration date

Re,

J'avais essayé "dd/mm/yy"...mais...

Grand merci...
Lanoé