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

Marcelo Brazzer · 11 Juillet 2016

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 · 11 Juillet 2016

Bonjour Marcelo

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

Paf · 11 Juillet 2016

Bonjour Marcelo, pierrejean ,

une autre façon à tester:

VB:

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 · 12 Juillet 2016

Merci à tous les deux,

ça fonctionne parfaitement !!!

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

Marcelo Brazzer

XLDnaute Nouveau

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Paf

XLDnaute Barbatruc

Marcelo Brazzer

XLDnaute Nouveau

Discussions similaires