renvoie date min en fonction de la ref article

geoff007 · 13 Août 2010

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 · 13 Août 2010

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.

Code:

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 · 16 Août 2010

Re : renvoie date min en fonction de la ref article

Merci ca fonctionne tres bien chapeau bas

renvoie date min en fonction de la ref article

geoff007

Guest

Pièces jointes

skoobi

XLDnaute Barbatruc

geoff007

Guest

Discussions similaires

renvoie date min en fonction de la ref article

geoff007

Guest

Pièces jointes

skoobi

XLDnaute Barbatruc

geoff007

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency