Discussion :

[vanhoa]

Salut a tous!

Je viens de remarquer quelque chose d'etrange a propos de worksheetfunction.match.
Quand on utilise une variable tableau en tant qu'array de recherche, la fonction semble avoir une limite.
Exemple simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
option explicit
Sub TestMatchFctTab()
Dim i As Long
Dim tb(200000) As String
Dim xyz As Single
 
 
    For i = 0 To 200000
        tb(i) = i & "x"
    Next i
 
    xyz = fcttestmtb(tb)
    Debug.Print xyz
 
End Sub
 
Function fcttestmtb(tbx() As String) As Single
 
    fcttestmtb = WorksheetFunction.Match(3392 & "x", tbx, 0)
 
End Function

Pas d'erreur, le debug.print nous donne bien une valeur, ok.
Maintenant si on met 3393 dans la fonction a la place de 3392, cela ne marche plus et pour toutes les valeurs >3392 on obtient l'erreur 1004.

Je n'arrive absolument pas a comprendre pourquoi cela s'arrete a 3392.
Le pire est que si je mets ces valeurs dans les cellules d'un worksheet et que je remplace dans ma fonction Match ma variable tableau tbx par la colonne ou j'ai mis les valeurs, et bien la ca marche...

Si vous avez une explication a ceci, je serais tres interesse!
Merci!

[Marc-L]

Bonjour,

le souci vient de la taille de la variable tableau car comme beaucoup de fonctions internes d'Excel, il y a une limite !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Demo()
    Dim L&, TB$(1 To 65536)
    For L = LBound(TB) To UBound(TB):  TB(L) = L & "x":  Next
    Debug.Print Application.Match("3393x", TB, 0)
End Sub

En augmentant la borne supérieure de 1, cela ne passe plus …

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

[patricktoulon]

bonjour
pour mes object arraylist et sortedlist de Scripting runtime j'avais fait une fonction match qui n'avais pas de limite tout du moins autant qu'une cellule a en terme de string

des que je rentre ce soir je te la donne adaptée a une variable tableau

re voila
juste avant de repartir

un exemple avec un tableau de 100 000 item
sub de test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
Dim tablo(100000), i, M
For i = 0 To UBound(tablo)
tablo(i) = Round(Rnd * 100050)
Next
M = matche(tablo, 1563)
'M = matche(tablo, 1563, 3) 'si tu veux le 3 eme etc....... le 3 eme argument est optional
If M <> False Then MsgBox M
End Sub

fonction matche perso

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function matche(T As Variant, it, Optional nbit As Long = 1) 'As Variant
'Debug.Print Join(T, ",")
On Error GoTo fin
matche = UBound(Split(Split(Join(T, ","), it)(nbit - 1), ",")) + 1
Exit Function
fin:
matche = False
End Function

on pourrait même sortir match en tableau d'occurrence si tu veux
je peux te faire ca y a pas de soucis

[patricktoulon]

re
je viens de me rendre compte qu'elle manquait de précision surtout pour les numériques
je l'ai donc blindée au niveau de la distinction de la chaine complete demandée

exemple sur un tableau de 100000 item

la ligne 10 prouve bien si c'est exact
sub de test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim tablo(100000), i, M
For i = 0 To UBound(tablo)
tablo(i) = Round(Rnd * 102000)
Next
M = matche(tablo, "32124")
'M = matche(tablo, 1563, 3) 'si tu veux le 3 eme etc....... le 3 eme argument est optional
If M <> False Then
MsgBox M
MsgBox tablo(M) 'pour verifier !!!!!!!!!!!
End If
'Cells(1, 1).Resize(65000, 1) = Application.Transpose(tablo)'j'ai bloqué on peut bien évidemment pas coller ce tableau dans un sheets 
End Sub

la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function matche(T As Variant, it, Optional nbit As Long = 1) As Variant
'Debug.Print Join(T, ",")
On Error GoTo fin
j = Join(T, ","): reste = Split(j, "," & it & ",")(nbit - 1)
matche = UBound(Split(reste, ",")) + 1
If matche > UBound(T) Then matche = False
Exit Function
fin:
matche = False
End Function

[vanhoa]

Comme un mal poli j'ai oublie de repondre.
Merci beaucoup a vous 2!

Ca resout mon probleme

Effectivement, entre temps j'avais remarque quelque chose, ca marche par tranche de 2^16 (donc 65536).
On peut chercher seulement jusqu'au reste de la division euclidienne de la dimension par 65536
si ma dimension est de n*65536-1 je peux aller jusque 65535
si ma dimension est de n*65536 (par exemple 196608 qui est egal a 3*65536) ca fera tout le temps erreur, comme si le tableau etait vide!!

Si je declare mon tableau avec une dimension de 200000 comme dans mon exemple je peux chercher seulement jusque 3392, car si je divise 200000 par 65536, le reste est de 3392.

Super ta fonction Patrick, je n'avais pas du tout penser a tenter de trouver une solution de cette facon!!