XL 2010 VBA : comparer dates et heures et afficher j+1

[Marcelo Brazzer]

Bonjour,

Je suis débutant en VBA et je bloque sur un sujet.

Je possède un tableau avec des dates et des heures dans une colonne.

J'aimerais via une macro, comparer ces dates, trouver la plus récente pour afficher dans la dernière cellule non vide du tableau, la journée suivante à partir de minuit.

J'espère que vous pourrez m'aider...

Merci

 

[pierrejean]

Bonjour Marcelo

Vois si cela te convient
NB: La date la plus récente semble différente de celle que tu crois

 

[Paf]

Bonjour Marcelo, pierrejean ,

une autre façon à tester:

Sub MaxDate()
Dim Derlig As Long
With Worksheets("Feuil1") 'à adapter
  Derlig = .Range("A" & Rows.Count).End(xlUp).Row
  .Range("A" & Derlig + 1) = Int(Application.WorksheetFunction.Max(.Range("A1:A" & Derlig))) + 1
End With
End Sub

A+

 

[Marcelo Brazzer]

Merci à tous les deux,

ça fonctionne parfaitement !!!