Microsoft 365 atteindre la 1ère date égale ou supérieure à aujourd'hui

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
J'espère que vous allez bien :)

J'ai besoin dans mon fichier d'atteindre la cellule qui contient la 1ère date égale ou supérieure à aujourd’hui.

J'ai fait pas mal de tests sans succès ... bcp de recherches et j'ai trouvé un code sur le forum :
#Post de CBernardT en 2006 que je remercie au passage :)

J'ai modifié le code pour qu'il corresponde au besoin de mon fichier.
ça fonctionne mais c'est très long et je ne sais pas comment l'améliorer.
J'ai joint un fichier qui contient une douzaine de milliers de lignes .... dans mon fichier de travail c'est 60.000 lignes et +++ et ce serait c'est très très très long
Auriez-vous une solution pour ce que soit plus rapide ?
Avec mes remerciements,
Je vous souhaite une belle journée,
Amicalement,
lionel,
 

Pièces jointes

  • TrouveDate_ProcheCLng(Date)2.xlsm
    279.7 KB · Affichages: 15
Dernière édition:
Solution
Je trouve cette solution plus élégante :
VB:
Sub ChercheDate()
Dim c As Range, dat As Date
On Error Resume Next 'si aucune SpecialCell
With [J:J].SpecialCells(xlCellTypeVisible)
    For dat = Int(Application.Min(Date, Application.Max(.Cells))) To Int(Application.Min(.Cells)) Step -1
        Set c = .Find(dat, , xlFormulas, xlPart, , IIf(dat = Date, xlNext, xlPrevious))
        If Not c Is Nothing Then
            c.Select 'pour tester
            Exit For
        End If
    Next
End With
End Sub

job75

XLDnaute Barbatruc
Quand il n'y a pas de dates égales à aujourdh'hui il est très probable qu'existent des dates inférieures.

Beaucoup moins probable qu'existent des dates supérieures.

Donc il est plus logique d'utiliser la 1ère méthode, celle du post #43.
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 229
Messages
2 086 426
Membres
103 206
dernier inscrit
diambote