Recherche sur Date

[Aladin]

Bonjour le forum
J' ai un userform avec une txtbox et une Listebox. Cette textbox ne recoit que la date au format jj/mm/aaaa. Un bouton de commande qui apres validation doit me remonter toutes les infos concernant la date rentre dans le TextBox. Normalement sur la feuille la date ext en colonne A et les données de la colonne B jusqu' a la colonne I
J' ai déja éssayé de creer un bout de code mais ca ne marche pas.
Merci d' avance pour toute aide
Aladin

 

[Aladin]

Re : Recherche sur Date

Bonsoir le forum
J' ai trouvé ce code qui avait été fait sur le forum, qui fait une recherche de texte, est il possible de le modifie afin qu' il fasse une recherche par date et afficher toutes lesresultats trouvé dans la listebox

Dim C As Range
Dim Tablo() As String
Dim Text As String
Dim S As Byte
Dim Firstaddress As String
Dim i As Integer, X As Integer, L As Integer


Text = Me.TextBox1
If Text = "" Then Exit Sub

For S = 1 To Worksheets.Count
If Worksheets(S).Name <> "HOME" And Worksheets(S).Name <> "CodeBarres" And Worksheets(S).Name <> "History" Then
With Sheets(S).UsedRange
Set C = .Find(Text, LookIn:=xlValues, LookAt:=xlPart)
If Not C Is Nothing Then
Firstaddress = C.Address
Do
ReDim Preserve Tablo(8, i)
For X = 1 To 6
Tablo(X - 1, i) = C.Offset(0, X - C.Column).Text
Next X
Tablo(6, i) = Sheets(S).Name
Tablo(7, i) = C.Address(0, 0)
i = i + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Firstaddress
End If
End With
End If
Next S
If i = 0 Then
MsgBox "Le Texte " & Text & " n'a pas été trouvé" & vbCrLf & "Faites un essai sur une partie du nom", vbCritical, Sign
Exit Sub
End If
Me.ListBox1.Column() = Tablo()

Merci d'a avnce de votre aide
Aladin

 

[Aladin]

Re : Recherche sur Date

Bonjour le forum
J' ai fait une modification en remplacant la recherche texte par la date et j' ai une erreur d' incomptibilité de type

Dim DateD As Date
DateD = Me.TextBox1
If DateD = "" Then Exit Sub

sur la ligne suivante

If DateD = "" Then Exit Sub[

Merci d' avance pour votre aide
Aladin

 

[Bebere]

Re : Recherche sur Date

bonjour Aladin
avec un bout de fichier plus facile de répondre
essaye DateD = cdate(Me.TextBox1)
Set C = .Find(dated, LookIn:=xlValues, LookAt:=xlPart)
changer xlpart par xlwhole
si dated pas trouvé tu peux essayer cdbl(dated)
qui donne le n° de série date excel

un code à adapter

Sub FindDate()
Dim strdate As String
Dim rCell As Range
Dim lReply As Long

strdate = Application.InputBox(Prompt:="Enter a Date to Locate on This Worksheet", _
Title:="DATE FIND", Default:=Format(Date, "Short Date"), Type:=1)

'Cancelled
If strdate = "False" Then Exit Sub

strdate = Format(strdate, "Short Date")

On Error Resume Next
Set rCell = Cells.Find(What:=CDate(strdate), After:=Range("A1"), LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
On Error GoTo 0

If rCell Is Nothing Then
lReply = MsgBox("Date cannot be found. Try Again", vbYesNo)
If lReply = vbYes Then Run "FindDate":
End If
End Sub

à bientôt

 

[Aladin]

Re : Recherche sur Date

Bonsoir Bebere et le forum
Merci d' être venu à mon secours, j' ai essayé de faire une modif avec le code que tu m' as donné, mais ça ne fonctionne pas, je joins ce fichier
Aladin

 

[Bebere]

Re : Recherche sur Date

bonjour Aladin
enlever le 2 dans userform_initialize
le problème était du côté listbox

Cijoint.fr - Service gratuit de dépôt de fichiers

à bientôt

 

[Aladin]

Re : Recherche sur Date

Bonjour Bebere et le forum
Merci pour ta réponse
Effectivement j' ai enlevé le 2 et la listbox affiche le resultatcorrectement,mais le userform de recherche ne fonctionne que si la feuille est activé, normalement j' aurais voulu que cette recherche se fasse sans que la feuille soit visible à l' écran
Aladin

 

[Bebere]

Re : Recherche sur Date

bonjour Aladin
le code est remanié,la version précédente donne des erreurs
Cijoint.fr - Service gratuit de dépôt de fichiers

à bientôt

 

[Aladin]

Re : Recherche sur Date

Bonsoir Bebere et le forum
Je te remercie pour le temps consacré à mon aide, Le code de recherche est ok
Merci et bonne continuation
Je ne pense pas que j' aurais d' autre post alors je vous souhaite à tous de passer de bonnes fêtes de fin d' année
Aladin