Astuces Excel
  1. Astuces Excel
  3. VBA EXCEL – Trouver la date la plus ancienne dans une colonne
Intereting Posts
Excel VBA – fonction d'appel sans passer tous les arguments Imprimer les dates au format approprié Vlookup renvoie faux comme valeur Pass .Range en tant que paramètre VBA Contenu des cellules Excel au HTML Macro Excel à la comparaison de lignes Comment append des variables (provenant d'une cellule) dans des requêtes Web dans MS Excel 2010? Tout en ouvrant Oracle From Excel, il affiche l'erreur "Le DSN spécifié contient une inadéquation d'architecture entre le pilote et l'application" Déterminer l'année d'études de l'élève, ou s'ils ont obtenu leur diplôme Manier les zéros principaux avec command de transfert (ABAP) Localisation de "(vide)" Créez une table en utilisant datatables existantes via VBA, en utilisant la fonction CURRENTREGION comment exporter le tableau de la database dans la feuille xl dans codeignitor à l'aide du button export click la vue application.worksheetfunction.vlookup error 1004? Erreur 1004 Méthode de suppression de la class Range échoué

VBA EXCEL – Trouver la date la plus ancienne dans une colonne

Actuellement, sur une fonction, et en tant que partie, je dois find la date la plus ancienne dans une colonne dans VBA. J'ai passé un moment à chercher des solutions mais je ne peux pas find beaucoup. J'ai trouvé une ligne mais elle ne fonctionne pas réellement. Je publierai l'extrait de code que j'ai, mais des suggestions ou des solutions seraient grandement appréciées! 

Public Function SetSOWDates() As Ssortingng Dim wsCRC As Worksheet Set wsCRC = Worksheets("CRC") Dim LastRowInCRC As Long LastRowInCRC = CRC.LastRowInCRC() LatestDate = Format(wsCRC.Max(Range("K8:K" & LastRowInCRC)), "dd/mm/yyyy") Debug.Print LatestDate End Function

Vous voulez Min , pas Max pour la date la plus ancienne, et il est membre de WorksheetFunction plutôt que de la Worksheet : 

 LatestDate = Format(Worksheetfunction.Min(wsCRC.Range("K8:K" & LastRowInCRC)), "dd/mm/yyyy")

Vous mélangez les appels de la feuille de travail avec la feuille de calcul et essayez d'intégrer du text qui ressemble à une date dans un integer long. 

 Public Function SetSOWDates() As Ssortingng Dim wsCRC As Worksheet Dim LastRowInCRC As Long Set wsCRC = Worksheets("CRC") LastRowInCRC = wsCRC.LastRowInCRC() LatestDate = application.Min(wsCRC.Range("K8:K" & LastRowInCRC)) Debug.Print Format(LatestDate, "dd/mm/yyyy") End Function

Il y avait aussi une erreur de frappe dans CRC.LastRowInCRC() au lieu de wsCRC.LastRowInCRC() .