MartiFab
XLDnaute Nouveau
Bonjour le forum,
Je dispose d’une liste de dates en colonne. Je dispose d’une date de référence. Je souhaite écrire un bout de code me renvoyant l’indice de ligne de la première cellule contenant une date supérieure ou égale a la date de référence.
Je suis parvenu a un résultat satisfaisant en remplaçant les dates par des entiers longs. Voici le code utilise :
Cependant, lorsque j’essaie de m’attaquer aux dates. Cela ne marche pas. Je suppose qu'il doit y avoir un probleme lors de la comparaison, une question de format sans doute.
De plus cette manière de faire ne me convient pas tellement. Je me demandais si l’utilisation d’un objet range et d’une boucle while ne serait pas plus judicieuse. Malheureusement, mais essais ont été couronnes d’insuccès. Je ne doute pas que certains d’entre vous se montreront plus inspires et brillants que moi !
Pour les bonnes âmes qui souhaiteront m’aider et pour satisfaire les curieux je joint un fichier exemple a ma requête.
Merci a vous !
Je dispose d’une liste de dates en colonne. Je dispose d’une date de référence. Je souhaite écrire un bout de code me renvoyant l’indice de ligne de la première cellule contenant une date supérieure ou égale a la date de référence.
Je suis parvenu a un résultat satisfaisant en remplaçant les dates par des entiers longs. Voici le code utilise :
Code:
Sub Test()
Dim i As Long, ref As Long
Dim sDte As Long
ref = ThisWorkbook.Worksheets(1).Cells(2, 3).Value
sDte = 0 ' ici mon indice de ligne
For i = 1 To 27
If ThisWorkbook.Worksheets(1).Cells(i, 1).Value <= ref Then
sDte = sDte + 1
End If
Next
MsgBox sDte
End Sub
Cependant, lorsque j’essaie de m’attaquer aux dates. Cela ne marche pas. Je suppose qu'il doit y avoir un probleme lors de la comparaison, une question de format sans doute.
De plus cette manière de faire ne me convient pas tellement. Je me demandais si l’utilisation d’un objet range et d’une boucle while ne serait pas plus judicieuse. Malheureusement, mais essais ont été couronnes d’insuccès. Je ne doute pas que certains d’entre vous se montreront plus inspires et brillants que moi !
Pour les bonnes âmes qui souhaiteront m’aider et pour satisfaire les curieux je joint un fichier exemple a ma requête.
Merci a vous !