[Jam]

Re à tous,

Module BuildingAnacode:
Tu crées des tableaux à partir de 2 autres tableaux, le tout en Variant (beurk, beurk, beurk )
Je te propose d'en supprimer un GROS bout avec plutôt:

Function ArrayGROUP() As Variant
Const sString As String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
Dim x As Long
Dim i As Integer, J As Integer
Dim myArray(0 to 937) as String
For i = 1 To Len(sString) - 10
    For j = 1 To Len(sString)
        myArray(x)=Mid$(sString, i, 1) & Mid$(sString, j, 1)
        x=x+1
    Next
Next
ArrayGROUP=myArray()
End Function

Testé et cela fonctionne très bien.
PS./ La constante peut-être mise en entête de module.
PS2./ Testé sous XL2K...or je crois ne pas me tromper en disant que le passage de tableau a été modifié avec XLXP.

Bon weekend
Jam

Message édité par: jam, à: 30/10/2005 01:51