Discussion :

[Bes74]

J'ai un tableau à une dimension où j'y passe des données.

Mais je veux créer une fonction qui me permettra d'aller vérifier si une donnée est déjà existante dans le tableau avant de l'ajouter.

Si elle est existante, il ne l'ajoute pas mais si elle n'existe pas, il l'ajoute au tableau.


Bes

[marot_r]

Salut, tu tiens à un tableau ou une Collection ferait l'affaire ?

L'avantage de la collection c'est qu'elle peut s'agrandir facilement et que tu peux associer une clef à ton élément, le tableau demande un peu plus de travail.

Si tu tiens au tableau, fait une simple boucle qui parcours tes éléments et regarde si il est là, ensuite pour l'ajout voit la commande Redim.

A+

[Bes74]

Je tiens à un tableau.

Comment faire la boucle ???

[random]

pour ce genre là je te conseille d'utiliser les collections regarde cet exemple

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
22
23
24
25
26
27
28
29
 
 
Function gerecoll(x As Variant, tyope As Boolean) As Variant
Static macol As New Collection
Dim parcourt As Long
If tyope Then
    If macol.Count = 0 Then
    macol.Add (x)
    gerecoll = True
    Exit Function
    Else
        For parcourt = macol.Count To 1 Step -1
          If macol(parcourt) = x Then
          gerecoll = False
          Exit Function
          ElseIf macol(parcourt) < x Then
          macol.Add Item:=x, after:=parcourt
          gerecoll = True
          Exit Function
          End If
        Next parcourt
          macol.Add Item:=x, before:=1
          gerecoll = True
          Exit Function
    End If
Else
gerecoll = macol(x)
End If
End Function

[Bes74]

Mais je veux faire un tableau donc comment faire la boucle pour la recherche ??

[marot_r]

Je tiens à un tableau.

Comment faire la boucle ???

Tu débute ? C'est bon de le préciser dans ton message, tu auras des réponses plus détaillée ;-)

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
 
private sub GererDonnees(prmDonneeAAjouter as string, prmTableau as variant)
   dim trouve as boolean:Trouve=false
 
   dim i as integer
   for i=lbound(prmTableau) to ubound(prmTableau)
      if prmTableau(i)=prmDonneesAAJouter then
        trouve = true
        exit for
      end if
   next i
 
   if not trouve then
      redim preserve prmTableau(ubound(prmTableau)+1):'Ajoute une case pour le nouvel élément
      prmTableau(ubound(prmTableau))=prmDonneeAAjouter:'Ajoute le nouvel élément au bout du tableau
   end if
 
end private

Note que ton tableau doit être déclarer comme un variant avant d'appeler la procédure.

Code :

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

1
2
 
Dim monTableau as Variant

A+