soustration - différence par dico

[gosselien]

Bonjour à tous,

Je cherche à obtenir par tableau ou dico ( dico de préférence si c'est possible dans ce cas - je ne maitrise toujours pas la bête ), la liste des occurences uniques de la colonne A avec à côté, la différence entre le max et une autre valeur pour cette même personne ex: patrick 1000 et 900 , ce qui donnera donc dans mon exemple:
patrick: 100 - jacques: 1200 - etc etc...

Il n'y a à chaque fois que 2 données pour ou même personne et je cherche donc à trouver la différence.

Ceci pour le faire dans un très grand nombre de données et éviter une formule gourmande en ressource

Merci

 

[thebenoit59]

Re : soustration - différence par dico

Bonjour gosselien.

Une méthode sur le tableau joint, avec dictionary comme tu préférais.
J'espère répondre à ta demande.

 

[jpb388]

Re : soustration - différence par dico

Bonjour à tous,thebenoit59

avec dictionary mais différent de thebenoit59

 

[gosselien]

Re : soustration - différence par dico

Super !

Je tournais encore autour comme à chaque fois et c'est très intéressant d'avoir 2 approches.
Un jour peut être , je comprendrai tout seul comme un grand, même si ça m'arrive parfois d'y arriver sur base d'exemples que je garde !

Grand(s) merci(s) à vous !

P.

 

[laetitia90]

Re : soustration - différence par dico

bonjour gosselien thebenoit59 jpb388

encore une autre facon d'ecrire

Sub es()
  Dim t(), i As Long, m As Object
   Set m = CreateObject("Scripting.Dictionary")
    t = Range("c2:d" & Cells(Rows.Count, 3).End(3).Row)
    For i = 1 To UBound(t)
    If m.Exists(t(i, 1)) Then
    t(m(t(i, 1)), 2) = t(m(t(i, 1)), 2) - t(i, 2)
    Else
    x = x + 1: t(x, 1) = t(i, 1): t(x, 2) = t(i, 2):  m(t(i, 1)) = x
    End If
    Next i
    [i2].Resize(x, 2) = t
End Sub

 

[gosselien]

Re : soustration - différence par dico

Bonjour à toi Laetitia90,

Je suis toujours étonné de la diversité des codes pour arriver au même et bon résultat

Merci

P.

 

[laetitia90]

Re : soustration - différence par dico

re

c'est l'avantage du vba beaucoup de methode pour arriver a un resultat

 

[Dranreb]

Re : soustration - différence par dico

Bonjour.

La version avec GroupOrg :

Sub Test()
Dim Données As Collection, T(), Nom As SsGroup, L As Long
Set Données = GroupOrg(ColUti(Feuil1.[C2:D2]), 1, 2)
ReDim T(1 To Données.Count, 1 To 2)
For Each Nom In Données
   L = L + 1
   T(L, 1) = Nom.Id
   T(L, 2) = Nom.Contenu(Nom.Contenu.Count).Id - Nom.Contenu(1).Id
   Next Nom
Feuil1.[I2].Resize(L, 2).Value = T
End Sub

Ou bien comme ça, ça marche aussi :

Sub Test()
Dim Données As Collection, T(), Nom As SsGroup, L As Long
Set Données = GroupOrg(ColUti(Feuil1.[C2:D2]), 1, Null, 2)
ReDim T(1 To Données.Count, 1 To 2)
For Each Nom In Données
   L = L + 1
   T(L, 1) = Nom.Id
   T(L, 2) = Nom.Contenu(Nom.Contenu.Count)(2) - Nom.Contenu(1)(2)
   Next Nom
Feuil1.[I2].Resize(L, 2).Value = T
End Sub

 

[Paf]

Re : soustration - différence par dico

Bonsoir à tous

une autre version Dico

Private Sub CommandButton1_Click()
 Dim Tablo, TabTmp, i As Long, Maxi As Long, Mini As Long, Dico
 Set Dico = CreateObject("Scripting.Dictionary")
 Tablo = Range("C1").CurrentRegion
 For i = LBound(Tablo) + 1 To UBound(Tablo)
    Dico(Tablo(i, 1)) = IIf(Dico.exists(Tablo(i, 1)), Dico(Tablo(i, 1)) - Tablo(i, 2), Tablo(i, 2))
 Next
 Erase Tablo
 Tablo = Application.Transpose(Array(Dico.keys, Dico.Items))
 Range("G1").Resize(Dico.Count, 2) = Tablo
End Sub

A+

 

[gosselien]

Re : soustration - différence par dico

Bonjour et Merci à tous

Je pense que personnellement, c'est ma version de PAF que je comprends le plus facilement mais j'ai gardé toutes les autres


P.

 

[Paf]

Re : soustration - différence par dico

Re gosselien,

ma version est pratiquement celle de jpb388 à quelques broutilles près

A+