Récupérer date/heure sous condition

Jefekoi

XLDnaute Junior
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
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
Bonjour.
Essayez :
VB:
Mini = WorksheetFunction.Max(Range("Time").Offset(4).Resize(Range("Time").Rows.Count - 4))
 

Jefekoi

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

job75

XLDnaute Barbatruc
Bonjour jefekoi, Bernard,
Code:
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

XLDnaute Barbatruc
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.
 

Discussions similaires


Haut Bas