tri tableau

[Hoareau]

Bonjour

Serait il possible de trier My_array avant qu'il ne s'affiche sur la feuille (en mémoire), du plus sorti au moin sorti

Soit 20 chiffres, je vais chercher combien de fois, ils sont sortis (A10:k20) et affiches sur la deuxieme ligne du tableau le résultat


A10:k20 lignes absolues pour l'instant mais seront des lignes relatives par la suite

merci

Sub tab_nb()


Dim My_array(1 To 2, 0 To 19)

For j = 1 To 2
For i = 0 To 19

My_array(1, i) = i + 1

My_array(2, i) = Application.WorksheetFunction.CountIf(Range("a10:K20"), My_array(1, i))

'MsgBox My_array(j, i)


Next
Next


Range("a1:T2").Select
Range("a1:T2").Value = My_array

End Sub

 

[JCGL]

Re : tri tableau

Bonjour à tous,

Peux-tu essayer :

Sub tab_nb()
    Dim My_array(1 To 2, 0 To 19)


    For j = 1 To 2
        For i = 0 To 19
            My_array(1, i) = i + 1
            My_array(2, i) = Application.WorksheetFunction.CountIf(Range("A10:K20"), My_array(1, i))
        Next i
    Next j
    Range("A1:T2").Value = My_array
    Range("A1:T2").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
                        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End Sub

A + à tous

 

[Hoareau]

Re : tri tableau

Impeccable

merci pour la rapidité