Pour le filtre, je passerais par un Array() et .List
Bonjour mon ami et merci d'être passé par là :
C'est bien ce que j'ai fait dans le fichier suivant :
Ce qui ne provoque pas d'erreur sur 2016...
mais avec 2010 et 2007 notre ami Licaon à une erreur 13 sur cette ligne :
b = Application.Transpose(Application.Transpose(D.items)) 'on charge un Array avec le contenu du Dico
Voici la macro en question :
Private Sub Galopin() 'Remplace le filtre automatique dans le usfChercheDate
Dim a, b, D, i&, Y
a = rng.Value
Set D = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(a) 'On charge le Dico
Y = a(i, 1) >= iDeb And a(i, 1) <= iFin
If Y Then
D.Item(i) = Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4))
End If
Next
b = Application.Transpose(Application.Transpose(D.items)) 'on charge un Array avec le contenu du Dico
Me.LbData.List = b 'Recharge le ListBox
Me.LbData.ListIndex = 0 'Force la sélection du premier enregistrement
End Sub
As-tu une idée pour contourner ce problème ?
Merci