Recherche Date sous VBA

[anthony45000]

Bonjour à tous et à toutes j'ai une petite question !

Je m'explique, lors de l'ouverture d'un userform (Bouton : Recherche d'une vente; Feuille : Vente) dans lequel j'ai intégrer un DTpicker j'aimerai qu'il soit possible pour l'utilisateur de choisir une date via le DTpicker et que lorsqu'il cliquera sur Valider l'utilisateur sera redirigé vers une nouvelle feuille (Resultatrecherche) et que sur cette dernière apparaisse la ligne entière (Présente sous la feuille "Archivage") correspondante à la date recherchée.

J'ai longuement essayé mais je bloque... Voici mon fichier en PJ

Merci d'avance

Anthony

 

[jp14]

Re : Recherche Date sous VBA

Bonsoir

Ci dessous la procédure pour rechercher les ventes.

Private Sub Rechercher2_Click()
Dim cellule As Range
With Sheets("Resultatrecherche")

For Each cellule In Sheets("Archivage").Range("a2:a" & Sheets("Archivage").Range("a65536").End(xlUp).Row)

    If Format(cellule, "dd/mm/yyyy") = Format(Calendrier2.Value, "dd/mm/yyyy") Then
        Sheets(cellule.Worksheet.Name).Rows(cellule.Row).Copy _
         Destination:=.Rows(.Range("a65536").End(xlUp).Row + 1)
    End If
Next cellule
End With

End Sub

A tester

JP

 

[anthony45000]

Re : Recherche Date sous VBA

Merci bcp pour votre réactivité et efficacité ! Ce code fonctionne parfaitement. Dernière question est t-il possible de faire disparaitre ce résultat quand l'utilisateur retournera sur la page d'accueil par exemple ?
Ceci afin qu'il puisse effectuer une nouvelle recherche.

Cdmt,

Anthony. 🙂

 

[jp14]

Re : Recherche Date sous VBA

Bonjour

Ci dessous le code qui efface la recherche

Private Sub UserForm_Initialize()
Calendrier2.Value = Now
Sheets("Resultatrecherche").Range("A2:E1000").EntireRow.Delete
End Sub

A tester

JP