XL 2010 filtre avancé avec date debut date fin

nabilexcel2007

XLDnaute Occasionnel
Bonjour
svp le filtre marchais normal quand j'ai rajouter la colonne N° dossier ça ne fonctionne pas !!!! et j'aimerais aussi mettre un filtre date debut date fin de la colonne G aidez moi svp
Merci
 

Pièces jointes

  • AdvancedFilterLE BONBON.xlsb
    66.5 KB · Affichages: 20

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Nabilexcel,
J'ai pas tout compris, mais en modifiant tbl_raw[#A11] par tbl_raw, cela semble marcher.
Que vouliez vous faire avec tbl_raw[#A11] ?
VB:
      'Use advance filter ( avant tbl_raw[#A11] )
170   sh_raw.Range("tbl_raw").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=critRange, _
          copyToRange:=copyToRng, Unique:=False
 

Pièces jointes

  • Copie de AdvancedFilterLE BONBON.xlsb
    33.5 KB · Affichages: 8

nabilexcel2007

XLDnaute Occasionnel
Sans titre.png
 

soan

XLDnaute Barbatruc
Inactif
@ChTi160

Bonjour Jean-marie,

T'en as, d'la chance, d'être un pingouin impérial ! t'es bien outillé contre le froid ;
tu as un plumage épais d'environ 12 plumes par centimètre carré, tu es toujours
en mouvement, tu arrives à supporter le froid même en marchant pieds nus sur
la glace, et en plus, t'as forcément d'la compagnie pour pouvoir te blottir contre
tous tes copains ; si, si, j'invente rien, c'est écrit là :

Comment les pingouins peuvent-ils survivre à -40° C ? (c'est sur-titré : « Le froid de l'Antarctique »)

Au début de l'article, c'est noté qu'en Antarctique, la température peut frôler -90° C,
avec des vents de plus de 300 km/h ; mais ils ont oublié de dire comment tu fais
pour y résister ; j'suppose que l'explorateur-reporter qui a été enquêter sur place
est mort de froid avant d'le découvrir... mais j'crois pouvoir y répondre :

ben c'est tout simple : les pingouins impériaux ont bien observé les mœurs et
coutumes des esquimaux inuits, alors ils font comme eux : ils se construisent
un bel igloo ! :) comment ils font pour prendre des blocs de glace et les
assembler, avec leur petites ailes ? ah, ben là, j'dois avouer qu'j'en sais rien !
mais comme t'es un pingouin impérial, je suis sûr que t'as la réponse ! ;)
soan
 

cp4

XLDnaute Barbatruc
Bonjour Nabile:), Jean Marie;), Sylvanu;),

Jean Marie a de suite repéré ton erreur. J'ai corrigé les offset, code ci-dessous à toi d'ajuster l'ordre et la largeur des colonnes.
Je te suggère d'utiliser pour les textboxs date un calendrier pour éviter les éventuelles erreurs de saisies qui feront plantés le code. Tu en trouveras sur le forum.
VB:
Private Sub CommandButton1_Click()
   Dim ara As Range, LastRow As Long
   Dim tarih1, tarih2 As Date
   Dim s1 As Worksheet
   Application.Calculation = xlCalculationManual
   Application.ScreenUpdating = False
   Application.EnableEvents = False

   Set s1 = Worksheets("filtered")
   If TextBox1.Value = "" Or TextBox2.Value = "" Then
      MsgBox "You need to add the beginning and end dates", vbCritical, ""
      Exit Sub
   End If
   If ComboBox1.Value = "" Then
      MsgBox "Please choose a product from drop-down list", vbDefaultButton1, ""
      Exit Sub
   End If

   Call uzat
   tarih1 = CDate(TextBox1.Value)
   tarih2 = CDate(TextBox2.Value)


   ListBox1.Clear
   ListBox1.ColumnCount = 8
   ListBox1.ColumnWidths = "100;70;50;50;50;50;50;50"

   LastRow = s1.Range("G" & Rows.Count).End(xlUp).Row
   For Each ara In s1.Range("g18:g" & LastRow)
      If CLng(CDate(ara.Value)) >= CLng(CDate(tarih1)) And _
         CLng(CDate(ara.Value)) <= CLng(CDate(tarih2)) And _
         CStr(ara.Offset(0, -6).Value) = CStr(ComboBox1.Text) Then
         ListBox1.AddItem ara.Offset(0, -6)
         ListBox1.List(ListBox1.ListCount - 1, 1) = ara.Offset(0, -5)
         ListBox1.List(ListBox1.ListCount - 1, 2) = ara.Offset(0, -4)
         ListBox1.List(ListBox1.ListCount - 1, 3) = Format(ara.Offset(0, -3), "#,##0.00")
         ListBox1.List(ListBox1.ListCount - 1, 4) = Format(ara.Offset(0, -2), "#,##0.00")
         ListBox1.List(ListBox1.ListCount - 1, 5) = Format(ara.Offset(0, -1), "#,##0.00")
         ListBox1.List(ListBox1.ListCount - 1, 6) = VBA.Format(ara, "dd.mm.yyyy")
         ListBox1.List(ListBox1.ListCount - 1, 7) = ara.Offset(0, 1)

      End If
   Next ara


   Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True
   Application.EnableEvents = True
End Sub
Bonne journée.
 

cp4

XLDnaute Barbatruc
Bonjour,
D’après ce que j'ai compris, c'est bien des boutons d'option qu’il faut utiliser.
voir remarques feuilles RawData et supplementary. Ainsi que code userform.
Bonne journée.

ps: pour le calendrier tu peux utiliser celui de PatrickToulon
 

Pièces jointes

  • Copie de AdvancedFilterLE BONBON1.xlsm
    205.7 KB · Affichages: 10
Dernière édition:

Discussions similaires

Réponses
7
Affichages
283
Réponses
1
Affichages
259

Statistiques des forums

Discussions
311 720
Messages
2 081 904
Membres
101 834
dernier inscrit
Jeremy06510