Bonjour,

J'essaie de créer un code pour trier un tableau.

J'ai un tableau rempli avec 5 champs dedant
Le nom, le prénom, la date,un emploi, et un chiffre

mon but est de supprimer les noms en doublon tout en additionnant les chiffres associés

exemple
le tableau ci dessous :

tonton jacques 1968 charcutier 5
tata Ginette 1970 poissonnière 10
tonton jacques 1968 charcutier 20
tata Ginette 1970 poissonnière 15

Doit donner

tonton jacques 1968 charcutier 25
tata Ginette 1970 poissonnière 25


Pour le faire je compare ligne par ligne mon tableau et j'envoie dans un autre tableau le résultat

j'ai un code mais ca ne fonctionne pas et je ne sais pas comment m'en sortir
Pouvez vous m'aider a trouver le ou les erreurs

nomdemontableau est mon tableau avec les données
nomdemontableau2 est mon tableau ou je dois avoir le résultat

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
30
31
32
33
34
   For k = 0 To w
           For l = 0 To w
 
           ' je compare le nom de la personne et son métier
           If nomdemontableau(k, 0) = nomdemontableau(l, 0) And nomdemontableau(k, 3) = nomdemontableau(l, 3) Then
 
 
           nomdemontableau2(k, 0) = nomdemontableau(k, 0)
           nomdemontableau2(k, 1) = nomdemontableau(k, 1)
           nomdemontableau2(k, 2) = nomdemontableau(k, 2)
           nomdemontableau2(k, 3) = nomdemontableau(k, 3)
           ' si le nom et le métier correspondent alors j'additionne les chiffres
           Nbheure1 = Val(nomdemontableau2(k, 4))
 
           Nbheure2 = Val(nomdemontableau(k, 4))
           Nbheure3 = Val(Nbheure1 + Nbheure2)
 
           nomdemontableau2(k, 4) = Nbheure3
 
           ' je supprime les lignes traitées car sinon le prg va créer des doublons
           If l > k Then
 
           nomdemontableau(k, 0) = ""
           nomdemontableau(k, 1) = ""
           nomdemontableau(k, 2) = ""
           nomdemontableau(k, 3) = ""
           nomdemontableau(k, 4) = ""
 
            End If
 
           End If
 
           Next
        Next
Le résultat n'est pas top pour le moment

Merci d'avance de votre aide