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 :
Avez vous des idées ? Merci d'avance
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
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
Partager