Faire la synthese d'un tableau (VBA)

[nougitch]

Bonjour,

J'ai un tableau avec des donnes qui apparaissent plusieurs fois.
J'aimerais avoir un second tableau qui synthetise les sommes associees a ces donnees.

Le fichier joint parle de lui-meme.

Je vous remercie par avance pour votre aide.
Je continue a travailler dessus meme si je n'ai pas vraiment d'idees.

Cdt,

 

[suistrop]

Re : Faire la synthese d'un tableau (VBA)

hello,

Sub cartman()
Dim tab_pays()
c = 5

nb_pays_max = Range("B65536").End(xlUp).Row
ReDim tab_pays(nb_pays_max + 5)

For i = 5 To Range("B65536").End(xlUp).Row
pays = Cells(i, 2)
present = False

    'pour savoir si on a deja fais le pays en question
    For z = 0 To UBound(tab_pays)
        If tab_pays(z) = pays Then
            present = True
        End If
    Next z
    
        For y = 5 To Range("B65536").End(xlUp).Row
            If Cells(y, 2) = pays And present = False Then
                total = total + Cells(y, 3)
            End If
        Next y
If present = False And total <> 0 Then
    tab_pays(c) = pays
    Cells(c, 5) = pays
    Cells(c, 6) = total
    c = c + 1
End If
total = 0
Next i

End Sub

 

[nougitch]

Re : Faire la synthese d'un tableau (VBA)

Excellent Cartman !!! Merci beaucoup pour ce precieux code !!!

 

[suistrop]

Re : Faire la synthese d'un tableau (VBA)

Excellent Cartman !!! Merci beaucoup pour ce precieux code !!!

Mon precieuxuuuuuuuuuux !!!

😀😀

ps : si tu ne comprend pas tout le code demande je peux expliquer ou mettre des commentaires car c est pas tres intuitifs !

 

[nougitch]

Re : Faire la synthese d'un tableau (VBA)

Non ca va, je le comprends.
Maintenant j'ai une autre petite question.

Si je veux partir du tableau initial, et supprimer les lignes pour lesquelles il y a du doublon, tout en mettant la bonne somme, c'est bcp plus complexe ?
En gros, arriver au meme resultat mais en supprimant les lignes du seul et unique tableau initial ?
Merci mille fois !

 

[suistrop]

Re : Faire la synthese d'un tableau (VBA)

une fois que tu l as comme ca , tu supprime le tableau initial et le remplace par celui la 🙂

c est plus simple sinon faut refaire une macro !

 

[nougitch]

Re : Faire la synthese d'un tableau (VBA)

Et pourquoi faire un +5 dans ton Redim ?
ReDim tab_pays(nb_pays_max + 5)

Merci

 

[suistrop]

Re : Faire la synthese d'un tableau (VBA)

refaire la macro en faite ca va s avéré dur car le pbl de lisbonne qui fais 0 o final et dois pas apparaitre ca va pas etre evident a gérer ...

le +5 je l avais mis o cas ou mais en effet il ne sert à rien 🙂 bien vu !( je l avais mis en pensant que ca pouvait déborder à cause de la variable c )
en faite on pourrait meme mettre pas +5 mais -5 mais bon ca sert a rien de se prendre la tete la dessus du moment que notre tableau est assez grand mais pas trop ca passe 🙂 surtout que ici on a pas besoin de trop economiser la mémoire ^-^

 

[nougitch]

Re : Faire la synthese d'un tableau (VBA)

Ok, parfait !
Je te remercie encore.
Reste a l'adapter a mon vrai tableau.
Bonne journee !