Discussion :

[Invité]

Saut tout le monde,

J'ai un tableau 2D ressemblant à :

cle1 4
cle2 3
cle3 7
cle2 1
cle4 10
cle4 6

J'aimerais faire en sorte d'avoir :

cle1 4
cle2 4
cle3 7
cle4 16

Donc supprimer les lignes avec une clé doublon mais additionner sa valeur avec la première... Je sais que c'est pas dur, que je devrais trouver mais ce n'est pas le cas.

Pour l'instant j'ai ceci :

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
 
Dim cle()
Redim cle(Ubound(Tab3,1))
m=0
ok=0
n=0
For i=0 to Ubound(Tab3,1)
	Do While cle(m) <> Tab3(i,0) AND m < Ubound(Tab3,1)
				m=m+1
	Loop
 
	If	cle(m) = Tab3(i,0) Then
		For a=m to Ubound(Tab3,1)-1
			For b=0 to Ubound(Tab3,2)
				Tab3(a,b)=Tab3(a+1,b)
			Next
		Next
		ok=1
	End If
 
	If ok=0 Then
		cle(n)=Tab3(i,0)
		n=n+1
	End If
 
	m=0
	ok=0
Next

Avez vous des idées ? Merci d'avance

Edit : ce code m'affiche une liste sans doublon mais supprime certaines valeurs, sur 2200 lignes originales, dont 1550 sans doublons, il m'en affiche que 1422

[Cachlab]

Bonjour Stalex,

Je pense que la problématique des doublons appelle l'utilisation de dictionnaires.
Je n'ai pas trop de temps pour me pencher sur ta question mais j'espère que ça t'aidera.
++

[pitchalov]

Bonjour,

Comme le dit CachLab, l'utilisation de dictionnaire parait toute indiquée pour répondre à la problématique.
Implémentation possible :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set objKeysDictionnary = CreateObject("Scripting.Dictionary") 'Création du dictionnaire contenant les clés
objKeysDictionnary.CompareMode = 1 'Mode de comparaison : texte
For i=0 to Ubound(Tab3,1) ' Pour chaque occurence du tableau Tab3
	If objKeysDictionnary.Exists(Tab3(i,0)) Then
		objKeysDictionnary.Item(Tab3(i,0)) = objKeysDictionnary.Item(Tab3(i,0)) + Tab3(i,1) 'Si la clé a déjà été trouvée, ajout des valeurs
	Else
		objKeysDictionnary.Add(Tab3(i,0), Tab3(i,1)) 'Sinon ajout de la clé au dictionnaire
	End If
Next
For Each strKey In objKeysDictionnary.Keys 'Pour chaque clé contenue dans le dictionnaire
	WScript.Echo strKey & ";" & objKeysDictionnary.Item(strKey) 'Affichage de la clé et de la valeur
Next

Bonne continuation

[Invité]

Merci à vous deux, je vais me pencher sur les dictionnaires.

Concernant ton code pitchalov, j'ai malheureusement une erreur :

L'appel d'une fonction Sub n'admet pas de parenthèses
objobjKeysDictionnary.Add(Tab3(i,0), Tab3(i,1)) 'Sinon ajout de la clé au dictionnaire

Hmm

[pitchalov]

Bonjour,

Possibilité de coquilles, je n'ai pas testé le code. C'était juste pour donner un exemple "dans l'esprit" de la problématique.
Essaie donc sans les parenthèses :

Code :

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

objKeysDictionnary.Add Tab3(i,0), Tab3(i,1)

Bonne continuation

[Invité]

Merci beaucoup pitchalov, j'ai comme résultat :
4HREX699500CZZZZZPZZZZZ 00

Où 4HREX699500CZZZZZPZZZZZ est la clé et 0 et 0 les valeurs de la clé qui existe en 2 exemplaires.

Me reste donc à les additionner au lieu de les ajouter

Je regarde ça