Discussion :

[c.piette]

Bonjour à tous,

Comme indiqué dans le titre, j'essaie de récupérer la position relative d'une date dans un de mes tableaux/ListObject..

J'ai cherché un peu sur internet et j'ai trouvé 2 trucs que j'ai testé mais que je n'ai pas réussi à faire fonctionné :/

Le premier, venant de ce site a proposé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Ligne = WorksheetFunction.Match(CLng(YItem.ListSubItems(2).Value), _
TblIntAgent.ListColumns("Date").DataBodyRange.SpecialCells(xlCellTypeVisible), 0)

Qui n'a malheureusement pas fonctionné.

Ce site a proposé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
                Ligne = TblIntAgent.ListColumns("Date").DataBodyRange.SpecialCells(xlCellTypeVisible). _
                Find(CDate(YItem.ListSubItems(2).Value), , , xlWhole).Row - TblIntAgent.DataBodyRange.Row + 1

Mais que je n'ai pas non plus sur faire fonctionner ...


Quelqu'un aurait-il une idée ?


je vous remercie d'avance :-D

[c.piette]

Au cas où certain cherche la solution je l'ai !


Ma date dans mon ListView était en format texte... j'ai du donc le convertir en format date avant ... Voici la solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Ligne = WorksheetFunction.Match(CLng(DateValue(YItem.ListSubItems(2))), _
TblIntAgent.ListColumns("Date").DataBodyRange.SpecialCells(xlCellTypeVisible), 0)

Bonne journée à vous !