XL 2016 Recherche de date a date

[bandimalou]

Bonsoir a tous!!!! j'ai de nouveau besoin de vous que je remercie encore d'ailleurs
j'ai télécharger un fichier qui pourrait me convenir (ici) mais il ne fonctionne pas, si un"expert" pour regarder ce qui se passe. c'est concernant une recherche entre 2 dates
merci encore

 

[JHA]

Bonjour à tous,

Avec un filtre élaboré

JHA

 

[bandimalou]

Bonsoir
merci JHA ton module fonctionne bien mais je souhaiterais mettre tout cela dans un USF que j'ai deja fait, c'est pour ca que la solution avec listbox m'interressait.
en tout cas c'est super gentil
merci encore
bandimalou

 

[bandimalou]

bonjour a tous
je revient sur le sujet concernant la recherche de date a date,
j'ai essaye de modifier le code vba mais je n'y arrive toujours pas.
je souhaiterais que lors de la recherche, le resultat s'affiche dans la listbox
merci a ceux qui me donneront un coup de pouce
bandimalou

 

[job75]

Bonjour bandimalou, JHA,

Private Sub BtnAfficher_Click()
Dim dat1 As Date, dat2 As Date, t, i&, n&, liste(), j%
ListBox1.Clear
If Not IsDate(TextBox1) Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
If Not IsDate(TextBox2) Then TextBox2 = "": TextBox2.SetFocus: Exit Sub
dat1 = CDate(TextBox1): dat2 = CDate(TextBox2)
t = Sheets("Données").[A1].CurrentRegion.Resize(, 5) 'tableau VBA, plus rapide
For i = 2 To UBound(t)
  If t(i, 4) >= dat1 And t(i, 5) <= dat2 Then
    n = n + 1
    ReDim Preserve liste(1 To 5, 1 To n) 'tableau VBA, plus rapide
    For j = 1 To 5
      liste(j, n) = t(i, j)
    Next j
  End If
Next i
If n = 1 Then
  ListBox1.AddItem liste(1, 1)
  For j = 2 To 5
    ListBox1.List(0, j - 1) = liste(j, 1)
  Next j
ElseIf n Then
  ListBox1.List = Application.Transpose(liste) 'Transpose accepte 65536 lignes au maximum
End If
End Sub

A+

 

[job75]

Re,

J'ai testé avec un tableau de 60 000 lignes.

L'effacement (.Clear) des 60000 lignes de la ListBox prend 1,4 seconde, l'affichage 2,6 secondes.

Chez moi sur Win 10 Excel 2013.

A+

 

[bandimalou]

bonsoir job75
c'est parfait!!!! merci beaucoup c'est exactement ce que je cherchais
bandimalou

 

[bandimalou]

re bonsoir job75, j'ai essayer d'adapter ton code a mon fichier final et ça ne fonctionne pas
je ne dois pas rentrer les bonnes références de cellules.
donc je te demande de l'aide, car ton code fonctionne super bien pour ce que je souhaite en faire.
l'USF se lance directement ensuite c'est le bouton préparation semaine
merci par avance
Bandimalou

 

[job75]

Re,

Présenter un fichier très simple pour ensuite en présenter un merdouillard est trop fréquent ici.

Je n'entre pas dans ce jeu-là.

Bonne nuit.

 

[bandimalou]

re job75
c’était un fichier que j'avais pris ici sur le forum mais qui ne fonctionnait pas, et je pensais que j'allais pouvoir l'adapter a mon fichier final
mais merci tout de même du coup de main
bonne nuit
Bandimalou