Récupérer date/heure sous condition

[Jefekoi]

Bonjour et mes meilleurs vœux 2019 à tous

J'ai une colonne qui se nomme "Time" elle se présente comme ci dessous

Je voudrais récupérer la plus ancienne et la plus récente (date / Heure)

J'ai fais comme ceci :

Maxi =WorksheetFunction.Max(Range("Time"))
Mini = WorksheetFunction.Max(Range("Time"))

Ça marche très bien sauf que ... Comme vous pouvez le voir pour le Min il me donne 0/1/00 0 :00

A savoir c'est un résultat qui vient d'un logiciel (importation d'un fichier excel avec divers informations , je ne peux pas modifier les 4 premières lignes ni le Nom "Time"

Il y a -il un moyen de lui demander de sélectionner la colonne Time en commençant par la quatrième ligne ?


Merci pour votre aide


Eric


0/1/00 0:00
0/1/00 0:00
0/1/00 0:00
Time
20/11/18 8:07
20/11/18 8:07
20/11/18 8:07
20/11/18 8:07
20/11/18 8:08
20/11/18 8:08
20/11/18 8:18
20/11/18 8:18
20/11/18 8:19
20/11/18 8:21

 

[Dranreb]

Bonjour.
Essayez :

Mini = WorksheetFunction.Max(Range("Time").Offset(4).Resize(Range("Time").Rows.Count - 4))

 

[Jefekoi]

Merci Dranreb, je vais tester dés que possible et je reviendrais vers vous 🙂

 

[Jefekoi]

Il me fait une erreur :
Erreur d'exécution "1004":
La méthode "Offset" de l'Objet " Range" a échoué

 

[job75]

Bonjour jefekoi, Bernard,

Maxi = WorksheetFunction.Max(Range("Time").Resize(Range("Time").Rows.Count - 4).Offset(4))
Mini = WorksheetFunction.Min(Range("Time").Resize(Range("Time").Rows.Count - 4).Offset(4))

A+

 

[Dranreb]

Oui, ça peut mieux marcher comme ça si "Time" se réfère à une colonne entière au lieu d'une plage verticale limitée en nombre de lighes, ce que je ne pouvais deviner sans voir le classeur.

 

[Jefekoi]

Effectivement là ça marche merci beaucoup pour votre aide