code pour recherche date

[jool]

Bonjour,

J'ai un tableau qui contient des dates jj/mm/aaaa.

J'ai un code, qui me permet de rechercher par le biais d'un textbox, la date entrée dans celui-ci. Mais je souhaiterais entrer dans le Textbox une date au format mm/aaaa pour effectuer une reherche mensuel.

voici le code actuel :

Set c = .Find(CDate(Me.TextBox1), LookIn:=xlValues, LookAt:=xlPart)

Merci

 

[bqtr]

Re : code pour recherche date

Re,

As-tu regardé les réponses à ta dernière question ? la réponse y est.

A+

 

[Hulk]

Re : code pour recherche date

Hello,

Voici une macro qui va chercher la date voulue dans la feuille, si cette date exixte.

Attention le format de tes cellules doit être -> mm.aaa.

Vois ce que tu peux faire avec ça.

A placer dans le code de la feuille avec un CommandButton.

Sub RechercheDate()

    Dim Wb As Workbook
    Dim Ws As Worksheet
    Dim x As Variant
    Dim MaDate As Date

    On Error Resume Next
    
    MaDate = InputBox("Saisissez une date au format mm.aaaa", Title:="Recherche d'une Date")
    If MaDate = 0 Then Exit Sub
    
    For Each Wb In Application.Workbooks
        For Each Ws In Wb.Worksheets
            For Each x In ThisWorkbook
                Set x = Ws.Cells.Find(MaDate)
                    If Not x Is Nothing Then
                        Ws.Select
                        x.Select
                    End If
            Next x
        Next Ws
    Next Wb

End Sub

Et pour le code du CommandButton...

Private Sub CommandButton1_Click()
RechercheDate
End Sub

Cdt, Hulk.

Edit: Slt Bqtr !

 

[jool]

Re : code pour recherche date

Merci,

Si je comprend bien, je ne peux pas effectuer de recherche si mes dates ne sont pas au même format ?

ex : si je mets 05/2009 dans mon textbox de recherche, je ne peux pas trouver : 02/05/2009 ?

 

[JNP]

Re : code pour recherche date

Salut le forum ,
Si j'ai bien compris la question, il te suffit de faire une identité sur Month() et Year(), type

If Year(Cellule) = Year(TextBox) And Month(Cellule) = Month(TextBox)

en décrivant toute la zone de cellules qui t'intéresse au lieu d'utiliser Find.
Bon WE

 

[jool]

Re : code pour recherche date

Là j'avoue ne pas trop comprendre. Voici mon code de recherche si cela peut aider.

Dim c As Range, premier As String, i As Long

With ListBox1
.Clear
.ColumnCount = 4
End With
Text = Me.TextBox1
If Text = "" Then Exit Sub
With Range("A22" & Range("A65536").End(xlUp).Row)
Set c = .Find(CDate(Me.TextBox1), LookIn:=xlValues, LookAt:=xlPart)

If Not c Is Nothing Then
premier = c.Address
Do
Me.ListBox1.AddItem c.Value
Me.ListBox1.Column(1, i) = c.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = c.Offset(0, 2).Value
Me.ListBox1.Column(3, i) = c.Offset(0, 3).Value
Set c = .FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> premier
End If
End With

If i = 0 Then MsgBox "La Date : " & Me.TextBox1 & " n'a pas été trouvée" & vbCrLf & "Modifiez la date", vbCritical, "Erreur :"

End Sub

 

[bqtr]

Re : code pour recherche date

Re, bonjour JNP, Hulk


jool t'as pas l'impression d'abuser un peu , hier soir je t'ai mis un fichier en PJ. Ce fichier fait ce que tu demandes. Tu entres une date sous la forme mm/yyyy dans le textbox et la listbox liste toutes les lignes de la feuille qui correspondent au mois et à l'année saisie.

Dans mon message de 14h06 (aujourd'hui) c'est ce que je te demande de faire, d'aller voir ta demande d'hier et de regarder le fichier.

A+

 

[jool]

Re : code pour recherche date

ah désolé je n'avais pas vu que tu m'avais répondu hier !

par contre je n'ai plus de dézip, s'il serait possible de me coller le code dans la discussion ?

merci

 

[jeanpierre]

Re : code pour recherche date

Bonjour à tous,

Sauf sur des compressions un peu exotiques (Rar, 7-Zip et quelques autres), Windows sait dézipper, il n'y a donc pas besoin de dézip....

Bon WE.

Jean-Pierre

 

[jool]

Re : code pour recherche date

non c'est bon, j'ai trouvé mon bonheur pour dézip. je te retiens au courant.

merci.

 

[Robert]

Re : code pour recherche date

Bonjour le fil, bonjour le forum,

Marrant que tu te mettes en colère bqtr alors que hier... Moins marrant c'est ta désinvolture Jool. À force de prendre les gens pour des c...