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