Extraction en fonction d'une date

[titou_74]

Bonjour le forum,

je suis à la recherche d'un code qui me permettra à partir d'une date renseigné dans une case d'extraires des données d'un listing via un bouton.
Le petit fichier sera surement plus parlant que mes explications

Merci de votre aide

 

[Papou-net]

Re : Extraction en fonction d'une date

Bonjour titou_74,

Voici le code à mettre dans ton bouton :

Private Sub CommandButton1_Click()
Dim Lg As Long
Feuil1.Range("C14:E65536").ClearContents
Lg = Feuil1.Range("C65536").End(xlUp).Row + 1
For Each cel In Feuil2.Range("A10:A" & Feuil2.Range("A65536").End(xlUp).Row)
  If cel.Value = Feuil1.Range("F10") Then
    For cl = 1 To 3
      Feuil1.Cells(Lg, cl + 2) = Feuil2.Cells(cel.Row, cl)
    Next
    Lg = Lg + 1
  End If
Next
End Sub

Espérant t'avoir aidé.

Cordialement.

 

[Staple1600]

Re : Extraction en fonction d'une date

Bonsoir


Une solution avec filtre élaboré

Sub Macro1()
Sheets("recherche").[F10].Name = "FILTRE"
With Sheets("listing")
    .[F9] = "date"
    .[F10].Formula = "=FILTRE"
    .Range("A9:C23").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("F9:F10"), Unique:=False
    .Range("A9").CurrentRegion.Copy
        With Sheets("recherche").Range("C13")
            .PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            .Range("C13").CurrentRegion.Borders.LineStyle = xlContinuous
        End With
    .[F9:F10] = ""
    .ShowAllData
End With
End Sub

 

[CISCO]

Re : Extraction en fonction d'une date

Bonjour

Et sans macro ?

@ plus

 

[Staple1600]

Re : Extraction en fonction d'une date

Bonjour CISCO

je suis à la recherche d'un code

Alors bêtement je propose une solution VBA

Mais bravo pour ta solution par formules 😉

 

[CISCO]

Re : Extraction en fonction d'une date

Bonjour à tous, bonjour Staple1600

Tu as raison ("Je suis à la recherche d'un code"), mais, des fois, je trouve la solution avec des formules "tellement" facile... Et puis, cela servira peut être à d'autres.

@ plus

 

[titou_74]

Re : Extraction en fonction d'une date

Bravo pour votre réactivitée.

Par contre, je n'arrive pas à le transposé dans mon fichier car il me parle de cellules fusionnées. en piéce joint la partie du fichier concerné

Merci de votre aide

 

[Papou-net]

Re : Extraction en fonction d'une date

Bravo pour votre réactivitée.

Par contre, je n'arrive pas à le transposé dans mon fichier car il me parle de cellules fusionnées. en piéce joint la partie du fichier concerné

Merci de votre aide

Bonsoir titou_74,

Regardes si le fichier joint te convient.

Cordialement.

 

[titou_74]

Re : Extraction en fonction d'une date

Bonjour le forum

Merçi Papou-net, cela fonctionne parfaitement.
Merçi a tous pour votre aide

Je vous souhaite de bonnes fêtes de fin d'année

Salutations