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