XL 2019 Recherche basée sur critères

L

Lolote83

XLDnaute Barbatruc

• 7 Octobre 2021

• #16

Re bonjour à tous,
Vu que tu souhaites afficher uniquement la colonne WEEK, voici mon fichier corrigé
Même en mettant 2x la même année, cela fonctionne
@+ Lolote83

 

Pièces jointes

• Copie de DUPLALY - Filtre élaboré_V2.xlsm

  38.7 KB · Affichages: 5

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Octobre 2021

• #17

Re bonjour CHTI160,
Chez moi, pour 2021 et JOUR, c'est le n°2 qui sort (ligne 132 du fichier d'origine)
@+ Lolote83

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Octobre 2021

• #18

Idem

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Octobre 2021

• #19

Re bonjour,
Chris, le "Idem" s'adresse à moi ou à CHTI160 ?
Merci
@+ Lolote83

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 7 Octobre 2021

• #20

Re
le problème vient que dans la procédure de duplaly
il a if d.count > 1 j'ai mis If d.count >= 1 et c'est Bon !

VB:

  If d.Count >= 1 Then
        Worksheets("Résultat").Range("A2").Resize(d.Count) = Application.Transpose(d.Items)
    Else
        Worksheets("Résultat").Range("A2").Value = d.Item(1)
    End If

je regarde car il y a un problème avec le Tri ensuite si 1 Ligne
jean marie

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Octobre 2021

• #21

RE
@Lolote83
A toi,
mais la réponse de Jean Marie le confirme

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Octobre 2021

• #22

chris à dit:

RE
@Lolote83
A toi,
mais la réponse de Jean Marie le confirme

Cliquez pour agrandir...

Merci Chris, je viens de voir.
Bonne journée et te tiens au courant pour ce problème de version
@+ Lolote83

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 7 Octobre 2021

• #23

Re
la procédure revue !

VB:

Sub Recherche()
Dim a(), d As New Dictionary, i As Long, an1 As Long, an2 As Long, Periode$
    Application.ScreenUpdating = False
    a = Worksheets("Commande").UsedRange.Value
   With Worksheets("Résultat")
        .Range("A2:A100").ClearContents
     an1 = .Range("B2").Value: an2 = .Range("C2").Value
        Periode$ = .Range("D2").Value
    For i = 2 To UBound(a)
        If Year(a(i, 1)) = an1 And a(i, 11) Like Periode Or Year(a(i, 1)) = an2 And a(i, 11) Like Periode Then   'needed date
            d(a(i, 5)) = a(i, 5)
        End If
    Next
    If d.Count >= 1 Then
        .Range("A2").Resize(d.Count) = Application.Transpose(d.Items)
    Else
        .Range("A2").Value = d.Item(1)
    End If
    .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Sort key1:=.Range("A2"), order1:=xlAscending, Header:=xlYes
    End With
    Application.ScreenUpdating = True
End Sub

jean marie

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Octobre 2021

• #24

RE

Lolote83 à dit:

Merci Chris, je viens de voir.
Bonne journée et te tiens au courant pour ce problème de version
@+ Lolote83

Cliquez pour agrandir...

C'est juste pour nous car outre le multipost sur au moins 3 forums, le demandeur nous ignore totalement...

Seul le code de Jean Marie l'intéressant, il continue dans l'impolitesse...

 

Dernière édition: 7 Octobre 2021

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 7 Octobre 2021

• #25

Merci chris et Lolote83
jean marie

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Octobre 2021

• #26

Re bonsoir.
Afin de terminer cette conversation sur de bonne augure, la version de Chris fonctionne bien à la maison avec Excel 365 Apps for Entreprise.
Bonne soirée à toi Chris et à toi ChTi160.
@+ Lolote83

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Octobre 2021

• #27

Bonsoir

Cool !
Sinon tu as vérifié quelle est la révision de 2016 au bureau ?

Ce qui déc...ne c'est le dédoublonnage : je n'ai jamais vu ce PB avant.

On peut contourner cette anomalie mais je ne pige pas ce qui la provoque sur l'add on...

Bonne nuit les petits

 

Vote positif 0 Vote négatif

D

duplaly

XLDnaute Occasionnel

• 9 Octobre 2021

• #28

Merci tout le monde pour les réponses proposées.
Le code révisé fonctionne à merveille.

 

Vote positif 0 Vote négatif

P

Pierre Fauconnier

XLDnaute Nouveau

• 9 Octobre 2021

• #29

Salut.

Comme déjà répondu sur un autre forum:

• un tableau structuré, évidemment;
• une plage nommée critères (C1:C2 sur l'illustration) avec une cellule formulée par rapport à la première ligne du tableau structuré;
• Une plage Résultat (La cellule A1 de l'illustration)
• Un filtre avancé en VBA...

Une seule ligne de code:

VB:

Sub Recherche1()
  Range("tableau1[#all]").AdvancedFilter xlFilterCopy, Range("critères"), Range("Résultat"), True
End Sub

[EDIT]Code et Image d'écran édités suite aux judicieuses remarques de Jean-Marie




Il y a plein d'avantages à travailler avec les tableaux structurés les plages nommées, notamment le fait que les adresses des cellules et plages ne sont pas en dur dans le code (hard coding) de sorte que si on déplace les tableaux et cellules, le code continue à fonctionner sans soucis.

L'avantage d'utiliser le filtre avancé avec un critère formulé, c'est que l'on ne code pas le critère, de sorte que s'il faut le modifier, on ne touche qu'à la formule, et le code, là aussi, continue à fonctionner...

Règle de base: Lorsque l'on code en VBA pour Excel, on pense Excel avant de penser VBA...

 

Dernière édition: 9 Octobre 2021

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 9 Octobre 2021

• #30

Bonjour Pierre
Bienvenue !
Quelle chance de vous croiser Ici !
Merci
Jean marie

 

Vote positif 0 Vote négatif