Problème filtration date

pierrejean

XLDnaute Barbatruc

• 14 Octobre 2008

• #2

Re : Problème filtration date

bonjour lanoe

A tester

Remplacer

Code:

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

par

Code:

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

 

Vote positif 0 Vote négatif

L

lanoe

XLDnaute Occasionnel

• 15 Octobre 2008

• #3

Re : Problème filtration date

Bonjour,

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

lanoe

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Octobre 2008

• #4

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

Code:

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

 

Pièces jointes

• Validation automatique.zip

  22.9 KB · Affichages: 23
• Validation automatique.zip

  22.9 KB · Affichages: 24
• Validation automatique.zip

  22.9 KB · Affichages: 20

Vote positif 0 Vote négatif

L

lanoe

XLDnaute Occasionnel

• 15 Octobre 2008

• #5

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

 

Vote positif 0 Vote négatif

L

lanoe

XLDnaute Occasionnel

• 15 Octobre 2008

• #6

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Octobre 2008

• #7

Re : Problème filtration date

Re

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

 

Vote positif 0 Vote négatif

L

lanoe

XLDnaute Occasionnel

• 15 Octobre 2008

• #8

Re : Problème filtration date

Re,

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

cordialement,

lanoe

 

Pièces jointes

• Problemefiltre.zip

  22.5 KB · Affichages: 21

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Octobre 2008

• #9

Re : Problème filtration date

Re

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

modifie:

Code:

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

en

Code:

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

 

Vote positif 0 Vote négatif

L

lanoe

XLDnaute Occasionnel

• 15 Octobre 2008

• #10

Re : Problème filtration date

Re,

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

Grand merci...
Lanoé

 

Vote positif 0 Vote négatif