Identifier dans colonnes la date la plus petite et la copier dans cellule

Salut

La macro suivante trouve la date la plus petite dans les colonnes F et G ainsi que la date la plus grande.

Et à la fin montre le résultat dans un message.

Je cherche à la modifier afin qu'à la place du message, la valeur de la date la plus petite trouvée soit inscrite dans la cellule R1 et la valeur de la date la plus grande soit inscrite dans la cellule S1

Je n'arrive pas à trouver comment faire pour transférer la valeur de "LaPlusPetite" et "LaPlusGrande" dans les cellules R1 & S1... (en gras ci-dessous l'idée que j'ai eu mais bien sûr elle ne fonctionne pas...)

Sub PetiteEtGrandeDate()

Dim LaplusPetite As Date

Dim LaPlusGrande As Date

Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("general")

Dim mesDates As Range: Set mesDates = sht.Range("F3:G300")

With Application.WorksheetFunction

LaplusPetite = .Min(mesDates)

LaPlusGrande = .Max(mesDates)

End With

ActiveSheet.Cells("R1").Value = LaplusPetite

ActiveSheet.Cells("S1").Value = LaPlusGrande

'MsgBox LaplusPetite & vbTab & LaPlusGrande

End Sub

Bonjour,

Pourquoi ne tapez-vous pas simplement dans la cellule R1 :

=MIN(F:G)

Et dans la cellule S1 :

=MAX(F:G)

?

Cindy

Sinon, vous avez un problème de syntaxe.

C'est soit :

ActiveSheet.Range("S1").Value

soit :

ActiveSheet.Cells(1,19).Value

pour ligne 1 et colonne 19.

Cindy

ah!! oui en effet! La solution était toute bête et simple et sans macro!!

Merci pour y avoir pensé!!