72 valeurs minimales consécutives

[relena]

Bonjour,

J'ai besoin sur 300 valeurs minimum d'extraire les 72 valeurs les plus petites consécutives le tout en vba sur excel. Mon soucis c'est que je connais seulement les bases du vba.

J'ai vraiment besoin d'aide ! Merci d'avance !

 

[Hervé]

Bonjour

une proposition en pièce jointe :

Sub Bouton1_QuandClic()
Dim i As Integer
Dim j As Integer
Dim temp
Dim tablo As Variant

Range('c1:c72').ClearContents
tablo = Range('a1:a' & Range('a65536').End(xlUp).Row)

For i = 1 To UBound(tablo)
    For j = 1 To UBound(tablo, 1)
        If tablo(i, 1) < tablo(j, 1) Then
            temp = tablo(j, 1)
            tablo(j, 1) = tablo(i, 1)
            tablo(i, 1) = temp
        End If
    Next j
Next i

For i = 1 To 72
Range('c' & i) = tablo(i, 1)
Next i

End Sub

Salut
[file name=Classeur7.zip size=10358]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur7.zip[/file]