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
 

Fichiers joints

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
 

Fichiers joints

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
Comme dit, je n'ai pas tout compris. Mais .... au moins j'ai compris All, dans la police VBA cela ressemble à A onze, et j'étais perdu. :rolleyes:

et de plus sauf erreur, il n'y a plus de macro dans votre fichier.:(
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonjour nabile
Bonjour le Fil ,le Forum
un premier problème !
tu as ara qui est pris en colonne "A" au lieu de "G"
et ensuite tu fais un Offset(0,1) donc Colonne "B" pour trouver la valeur a comparer au ComboBox1!
jean marie
 

soan

XLDnaute Accro
@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 Accro
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 Accro
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
 

Fichiers joints

Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonjour
j'y comprend rien
mais pourquoi des OptionButton pour :
POUR LE CHOIX DU FILTRE D'UN COMBOBOX J'UTILISE CHEKBOX OU OPTIONBOUTON
et ensuite des CheckBox pour gérer les OptionButton , Non ?
Peux tu expliquer ce que tu veux faire et Comment ?
le Tableau Structuré n'a pas besoin d'avoir autant de lignes , puisque l'on peut en ajouter Lol
jean marie
 

cp4

XLDnaute Accro
Bonjour nabilexcel2007, le fil,

Voir la pièce jointe 1081839

non, les boitons d'option de @cp4 ne sont pas des boîtes de dialogue combinées
à des boutons d'option ; c'est juste une variété extrêmement rare et légèrement
claudicante de boutons d'option ; mais t'inquiète pas, c'est quand même très
fonctionnel : si tu cliques dessus, ça marche à tous les coups ! :)


soan
@soan : Tu es agaçant avec ta sinistre manie de te foutre des autres. C'est ton esprit qui est claudicant. Soit tu aides gracieusement, soit tu passes ton chemin. De bon matin ton humour m'irrite sérieusement. Je m'efforce de garder mon calme pour ne pas t'insulter. Car pratiquement, toutes tes interventions sont dans le même style.
 

ChTi160

XLDnaute Barbatruc
Re
Bonjour cp4
tu dis :" ta sinistre manie de te foutre des autres. "
je ne pense pas que ce soit dans la nature de soan de se foute des autres !
il a sa façon à lui d'expliquer les Choses rien de méchant ! mais bon .
Bonne journée
jean marie
 

cp4

XLDnaute Accro
Re
Bonjour cp4
tu dis :" ta sinistre manie de te foutre des autres. "
je ne pense pas que ce soit dans la nature de soan de se foute des autres !
il a sa façon à lui d'expliquer les Choses rien de méchant ! mais bon .
Bonne journée
jean marie
Non, pas d'accord avec toi Jean Marie. Ce matin, ce n'était pas expliquer les choses à sa façon mais plutôt de la moquerie pour une faute de frappe (Boitons au lieu de Boutons, sur un clavier Français le u et le i sont côte à côte).
Il n'est membre que depuis cet été, à peine 2 mois. Comment peux-tu prétendre que ce n'est pas de ses habitudes de se foutre des autres. Il utilise à tout va le spoiler et propose rarement des solutions.
Quand on veut aider on n'ironise pas. C'est ainsi que je l'ai perçu.
Merci à toi Jean Marie, de me remonter le moral. Ce n'est très grave, mais ça m'a vraiment irrité d'autant plus que la veille, je lisais une discussion dans laquelle il a fait presque la même chose (utilisation abusive du spoiler, et sans apporter quelque chose à la discussion).
On fait partie d'une communauté d'entraide, on peut plaisanter mais sans ironie.

Bon dimanche à toutes et à tous.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas