Faire la synthese d'un tableau (VBA)

suistrop

XLDnaute Impliqué

• 17 Juillet 2008

• #2

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

hello,

Code:

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

 

Pièces jointes

• Help_on_Compta_cartman.xls

  25.5 KB · Affichages: 108

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 17 Juillet 2008

• #3

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

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

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 17 Juillet 2008

• #4

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

nougitch à dit:

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

Cliquez pour agrandir...

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 !

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 17 Juillet 2008

• #5

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 !

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 17 Juillet 2008

• #6

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 !

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 17 Juillet 2008

• #7

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

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

Merci

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 17 Juillet 2008

• #8

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 ^-^

 

Dernière édition: 17 Juillet 2008

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 17 Juillet 2008

• #9

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

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

 

Vote positif 0 Vote négatif