Test sur l'égalité des valeurs d'un tableau

Question

Salut tout le monde,

Je cherche une manière simple de tester l'égalité des valeurs d'un tableau. Je précise que le tableau peut être très grand ( > 100 000 lignes), par conséquent, les boucles sont à éviter... 
Je ne connais pas non plus la valeur en question qui doit être égale, je veux juste que tous les éléments de mon tableau soit égaux à une même valeur.

Le tableau en question est un tableau dynamique défini comme ceci :
Dim TabNbCol() As Integer

Merci d'avance.

Arcanis

econs · Answer

POurquoi exclure les boucles ?? Y'a pas d'autre moyen pour parcourir un tableau !!

100 000 lignes, c'est pas insurmontable pour une boucle !

Regarde un peu la vitesse d'execution de cette super boucle avec un test à l'intérieur !!


Dim i As Long
Dim k As Long
For i = 0 To 100000
If k < 10000000 Then
k = k + 1
End If
Next i
MsgBox k


Manu

cs_neria · Answer

Salut !

Un petit conseil : pour gagner en rapidité arrête la boucle dès qu'il y a une case qui ne correspond pas !

@+ Neria

cs_Arcanis · Answer

Merci à vous 2 !!!
J'ai appliqué la 2e méthode et effectivement, ça marche.
C'est simple, et très efficace, je n'y avais pas pensé...

Merci encore

Arcanis

Test sur l'égalité des valeurs d'un tableau

3 réponses

Discussions similaires