renvoie date min en fonction de la ref article

[geoff007]

Bonjour à tous

je fais appel à vous pour m'aider via une macro de me renvoyer la date colonne F la plus petite ou ancienne par rapport à la liste d'article colonne A
Je joins un exemple de ma demande
Merci d'avance

 

[skoobi]

Re : renvoie date min en fonction de la ref article

Bonjour geoff007,

voici un exemple sous réserve que les articles soient triés comme dans ton exemple.

Sub datemin()
  Dim fin As Long, i As Long, nb As Long
  fin = [A65536].End(xlUp).Row
  i = 2
  Do
    nb = Application.CountIf(Columns("A"), Range("A" & i).Value)
    Range("H" & i).Value = CDate(Application.Min(Range("F" & i & ":F" & i + nb - 1)))
    i = i + nb
  Loop Until i > fin
End Sub

 

[geoff007]

Re : renvoie date min en fonction de la ref article

Merci ca fonctionne tres bien chapeau bas