#include <aaa.au3>
#include <array.au3>

$case = 0
$saut = 0
Dim $array[1][2] ;Tableau d'une ligne et de deux colonnes, le nb de lignes change
$array[0][0] = 0 ;U0 = 0

For $i=1 To 100
        ReDim $array[$i+1][2]
        $array[$i][1] = $case

        $saut = $saut+1
        $case = $case+$saut
        If $case < 99 Then
                ;Les légendes disent que cette ligne servira un jour
        Else
                $case = Mod($case, 100)
        EndIf
        $array[$i][0] = $case
        $array[$i][1] = $array[$i][1]&"+"&$saut
Next

_ArrayDisplay($array) ; Affiche ça http://puu.sh/cEwyd/5073cf9ed0.png

Dim $frequence
For $i=0 To UBound($array)-1
    $frequence = _ArrayFindAll($array, $array[$i][0])
    ConsoleWrite("Recherche de "&$array[$i][0]&". Trouvés: "&UBound($frequence)&@CRLF)
    $array[$i][1] = UBound($frequence)
Next
_ArrayDisplay($array, "array") ;Affiche ça http://puu.sh/cEwzg/814ac7f40a.png

Dim $pressePapier[UBound($array)]
For $i=0 To UBound($array)-1
    $pressePapier[$i] = $array[$i][0]
Next
_ArrayToClip($pressePapier) ;Met la première colonne dans le presse papier pour exporter sous excel
_ArrayDisplay($pressePapier)

Dim $pressePapier[UBound($array)]
For $i=0 To UBound($array)-1
    $pressePapier[$i] = $array[$i][1]
Next
_ArrayToClip($pressePapier) ;Met la deuxième colonne dans le presse papier pour exporter sous excel
_ArrayDisplay($pressePapier)