Discussion :

[SwissEngineer]

Bonjour,

je cherche a comparer des tableaux de meme taille sans passer par des comparaisons de cellule a cellule.
J'ai deja regarder des posts pour eliminer les doublons mais j'ai rien trouve pour des arrays.

D'avance merci

Pour info voici un bout de mon code:
'Verifier que le precedent Get Fullstatus ne contient pas dejà l'information

Code :

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

1
2
3
4
5
6
7
For j = 0 To WorksheetFunction.Min(MaxNmot - 1, tabelL(2, TempErr.NMot))
     If TTErr() = tabelL(tabelL(2, TempErr.NMot) - j + 3, TempErr.NMot) Then GoTo dejala
Next j
'Si l'erreur n'est pas connue, l'enregistrer et implementer le nombre d'erreurs
 
     tabelL(2, TempErr.NMot) = tabelL(2, TempErr.NMot) + 1
     tabelL(tabelL(2, TempErr.NMot) + 2, TempErr.NMot) = TTErr()

Dans ce code TTErr est un tableau à une ligne et 5 colonnes

[ouskel'n'or]

Supprimer les doublons dans un tableau revient à créer un tableau intermédiaire (Temp) dans lequel les données du tableau d'origine (A) sont recopiées sans doublon.
Pour ça, tu prends chaque donnée de A et tu vérifies qu'elle n'est pas déjà dans Temp. Si elle n'y est pas, tu renseignes ton tableau Temp en incrémentant son index.
Une fois A traité, tu fais A = Temp et tu passes à ton tableau B
Un fois A et B traités, tu as deux solutions :
soit tu les traites de la même manière en comparant chaque donnée de A à toutes les données de B
soit tu utilises Join(Tableau "A") et Instr(B(i) dans une boucle
ok = true

Code :

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

1
2
3
4
5
6
7
8
For i = 0 to Ubound(B)
     ok = ok and instr(Join(A), B(i))<>0
Next
If ok then
     msgbox "C'est tout bon"
   else
     msgbox "C'est pas bon"
Endif

Tu adaptes et tu nous dis si tu as des difficultés
A+
NB - Pense aux balises code

PS - Si au départ tes données étaient classées de la même manière, tu pouvais dans la deuxième partie comparer de tableau à tableau sans boucle

[SwissEngineer]

Merci pour la reponse.

Entre temps, j'ai un autre probleme, c'est que je ne peux pas placer mes types dans le tableau et il faudrait que je declare mes types de variables je ne sais où.

Je vais regarder ces fonctions instr et join que je n'utilise pas. Merci pour le tuyau.

Mais en fait ma question n'etait pas tout a fait sur le comment trier des doublons mais surtout sur la possibilite de comparer directement des tableaux entre eux, sans les comparer cellule apres cellule.

Voili voilou.

[ouskel'n'or]

Bêtement, si tu es sûr de ne pas avoir de doublon dans l'un ou (exclusif) l'autre tableau, en comparant les chaînes que représente chaque tableau. Ex:

Code :

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

1
2
3
4
Dim Liste, Truc
    Liste = Array("NomBook1.xls", "NomBook1.xls", "NomBook1.xls", "NomBook1.xls")
    Truc = Array("NomBook1.xls", "NomBook1.xls", "NomBook1.xls", "NomBook1.xls")
    MsgBox Join(Liste) = Join(Truc) ' => Vrai

A+