Encore moi et mon tableau

Sub essai()
Dim a()
n = 100000
ReDim a(1 To n)
For i = LBound(a) To UBound(a)
a(i) = Int(Rnd * 100000)
Next i
MsgBox ChercheTableau(4, a(), 100, 10000)
End Sub

Function ChercheTableau(element, a(), début, fin)
ChercheTableau = False
For i = début To fin
If element = a(i) Then ChercheTableau = True
Next i
End Function

JB

Je sais que l'on peut demander beaucoup à excel.

En VBA, dans un tableau de 60 000 données, peut ton vérifier la pré sence
d'un élément sur une partie du tableau seulement

Exemple: 4 est il présent dans la partie du tableau comprise entre le n uméro
100 et le numéro 10 000 ??

Merci de votre patience

Bonjour,

Pourrais-tu préciser ce que tu entends par "dans la partie du tableau
comprise entre le numéro 100 et le numéro 10 000" ?

Est-ce entre la ligne 100 et la ligne 10000 ? Si oui, non testé et à
adapter :
set x = sheets("Feuil1").range("A100:A10000").entirerow.find(4, , , xlWhole)
if not x Is Nothing Then msgbox "ici -> " & x.address

Si non , ré-expliquer avec des mots simples voire un exemple ... :o)

@+
FxM

Je sais que l'on peut demander beaucoup à excel.

En VBA, dans un tableau de 60 000 données, peut ton vérifier la présence
d'un élément sur une partie du tableau seulement

Exemple: 4 est il présent dans la partie du tableau comprise entre le numéro
100 et le numéro 10 000 ??

Merci de votre patience

Et ReBonjour,
il serait assez sympa pour les contributeurs de savoir quid
du fil précédent

déjà savoir si tu l'as lu.?§..
ce qui convient ou non...

Car à l'évidence
For i = 1 to ubound...
peut le faire alors pourquoi pas
de 10000 à 60000


Cdlt.

lSteph

g.bezamat a couché sur son écran :

Je sais que l'on peut demander beaucoup à excel.

En VBA, dans un tableau de 60 000 données, peut ton vérifier la présence d'un
élément sur une partie du tableau seulement

Exemple: 4 est il présent dans la partie du tableau comprise entre le numéro
100 et le numéro 10 000 ??

Merci de votre patience

--
- -