Discussion :

[christel1982]

Bonjour,

J'ai un tableau tab_can() que je remplis avec des valeurs numériques.
Avant d'ajouter une valeur, j'iamerai vérifier qu'elle n'existe pas dans le tableau.

Existe-t-il une fonction qui permet de rechercher une valeur dans un tableau?

Merci

[Mateache]

C'est une fonction que j'ai fait pour savoir si une valeur est dans un tableau

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function Intab(valeur,tableau,longueurtab)
    Dim i
    Dim bo
    bo=false
    For i=1 to longueurtab
        If tableau(i)=valeur then
             bo=true
        End if
    Next
    Intab=bo
End Function

[Immobilis]

J'ajouterai ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function Intab(valeur,tableau,longueurtab)
    Dim i
    Dim bo
    bo=false
    For i=0 to UBOUND(tableau) 'le premier indice d'un tableau est 0
        If tableau(i)=valeur then
             bo=true
             EXIT FOR
        End if
    Next
    Intab=bo
End Function

Ce code ne marche que pour un tableau à une dimension

A+

[christel1982]

voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
u=0
Dim tabcan(500)
while not rsCan.eof
	'numero
	can_num=rsCan("can_num")
 
	if not inTab(can_num, tabcan, 500) then
           tabcan(u)=can_num
        end if
        u=u+1
Wend

Erreur: Erreur d'exécution Microsoft VBScript (0x800A000D)
Type incompatible ...

[Matth_S]

essaye en ajoutant can_num=CInt(rsCan("can_num")), c'est peut être parce que ton recordset te renvoit une chaine et que ton tableau contient des valeurs numériques.

Edit : n'oublie pas rsCan.MoveNext, sinon tu pars dans une boucle infinie

[christel1982]

merci