Discussion :

[kikim78]

Re le forum,

Je suis vraiment coincé devant un tableau à faire traiter les données "reclassement, supprimer doublon, additionner"!!! d'où un taux d'erreur frequent.

La colonne A etant reference je vous de voir le fichier ci-joint.

Espoire de faire quelque chose?
Crdt,

[ESVBA]

vu le peu de réponse...

fatigues toi à exprimer clairement le problème et ce que tu veux.
Si tu veux que les autres se fatigue à trouver une réponse.

On ne cherche même pas à voir le fichier.

Sur ce conseil...

[laetitia]

bonjour kikim78 ESVBA le forum j'ai regarde de trés pres ton sujet comment concevoir un algo.... sur le resultat excompte pour moi impossible trop d'incoherences !!!
resultat a atteindre
exemple1 pourquoi
ref1 ref2 somme =6, comment tu la sors cette somme ???
exemple2
en ligne 21
tu reparts sur ref1 du moment que ref1 est déja traite sur les lignes en dessus???
pour moi cela va être trés difficile de construire quelque chose !!!!!

[kikim78]

Bonjour le forum,

Merci ESVBA pour le conseil, merci laetitia,
Cette fois avec plus d'effort et de fatigue je m'exprime avec un fichier plus claire, je comment à realiser qu'il s'agit bien d'un TCD!

Crdt,

[kikim78]

Re Forum,
Solution de Pyrof!!
incroyable mais vrais

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
35
36
37
38
39
40
Sub pyrof()
'-----------------------------------------------------------
'            Analyse des données
'-----------------------------------------------------------
l = 4: c = 1
Dim tab1
Set tab1 = CreateObject("Scripting.dictionary")
While Cells(l, c) <> ""
    cle1 = Cells(l, 1)
    For b = 2 To 4
        If Cells(l, b) <> "" Then
            cle2 = Cells(l, b)
            cle = cle1 & "_" & cle2
            If tab1.exists(cle) = False Then
                c1 = ""
                c2 = ""
                c3 = ""
                If Cells(l, 2) = cle2 Then c1 = cle2
                If Cells(l, 3) = cle2 Then c2 = cle2
                If Cells(l, 4) = cle2 Then c3 = cle2
                tab1(cle) = Array(c1, c2, c3, Cells(l, 5))
            Else
                tmp = tab1(cle)
                tmp(3) = tmp(3) + Cells(l, 5)
                tab1(cle) = tmp
            End If
        End If
    Next
    l = l + 1
Wend
'-----------------------------------------------------------
'                ecriture des résultats
'-----------------------------------------------------------
l = 4: c = 12
For Each cle In tab1
    Cells(l, c) = Split(cle, "_")(0)
    Range(Cells(l, c + 1), Cells(l, c + 4)) = tab1(cle)
    l = l + 1
Next
End Sub

@+