rechercher date superieur a aujourd'hui

[RLOUIS]

Comment faire pour rechercher une date superieur à la plus proche d'aujourd'hui dans une colonne de X date

 

[LMA]

Set ligne = ActiveSheet.Cells(6, 14) 'par exemple : debut de la colonne ou
' il les dates
datos = ligne
inc = 6
dates = date 'date te donne la date d'aujourd'huit

While (datos <> "") ' si il trouve un vide ça veut dire que c la fin de la
' colonne
liaison = ligne
If (datos < date) and (datos>olddate) Then 'tu verifie si la date de la
'cellule actuel et plus proche que celle qui etait avant
olddate=datos
end if
inc = inc + 1
Set ligne = ActiveSheet.Cells(inc, 14)
datos = ligne
Wend
'a la fin la variable "olddate" contiendra la date la plus proche
' d'aujourd'huit


j'espere que ça resoud ton probleme sinon tu envoi un exemple de ton probleme comme attachement j'essaiyerai de le voir

 

[RLOUIS]

Bonjour, j'ai une erreur sur "set ligne = ActiveSheet.Cells"
je ne vois pas pourquoi
peut tu me le dire
merci