addition de montants

Version imprimable

1 pièce(s) jointe(s)

Bonjour tout le monde,

voila le code que j'utilise pour supprimer des doublons(nom de pays) et additioner les montants des colonnes correspondantes.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'Recherche de la dernière ligne de la colonne m derli = Columns(13).Find("*", , , , , xlPrevious).Row ' boucle qui commence à la fin à cause des suppression de cellules For i = derli To 8 Step -1 'Si la valeur de la cellule au dessus est égale à la valeur de la cellule (colonne a) alors If Cells(i, 13) = Cells(i - 1, 13) Then 'on additionne les deux montants des cellules b et c au-dessus Cells(i - 1, 14) = Cells(i - 1, 14) + Cells(i, 14) And Cells(i - 1, 15) = Cells(i - 1, 15) + Cells(i, 15) 'on efface les cellules de la colone a b et c Cells(i, 13).Delete Shift:=xlUp Cells(i, 14).Delete Shift:=xlUp Cells(i , 15).Delete Shift:=xlUp End If Next
Mon problème est le suivant. Les montants de la colonne B ne pose pas de problème, l'addition se fait correctement. Par contre pour la colonne C le code me supprime les deux montants que j'ai. Je ne parviens pas à modifier mon code pour que ces deux montants ne soient pas supprimer(je n'ai que deux montants dans cette colonne).

Autre problème, le fait de supprimer les lignes au fur et a mesure que j'additionne les montants et que je supprime les doublons ralentie pas mal l'execution de ma macro. Pour le moment ca va parceque je n'ai que une centaine de ligne a traiter mais lorsque j'en aurais 30000... Pouvez-vous me donner des conseils? J'ai pensé à copier les résultats de mes sommes sur une autre feuille.

Merci d'avance.

07/11/2007, 11h54
Jean-Philippe André

bonjour,
ton choix de suppression me parait louche.
Tu souhaites "deleter" juste la cellule, ou toute la ligne, voire toute la colonne ?
07/11/2007, 12h03
derech

Bonjour jpcheck,

bon ne fais pas attention aux numero de colonnes indiqué dans le code, elle ne correpondent pas à l'exemple que j'ai mis en pièce jointe.

Je pars de la derniere ligne

A chaque fois que je somme mes montants, le montant se déplace d'une cellule ves le haut ( Cells(i - 1, 14) = Cells(i - 1, 14) + Cells(i, 14)). A ce moment je supprime à chaque fois la cellule inférieure( en i; et mon nouveau montant est en i-1). Je supprime le doublon Pays , l'ancien montant en collone B et l'ancien montant en colonne C, a chaque fois en i car en i-1 j'ai mon nouveau montant.

J'espère que je suis assez clair

bon alors, mettre du code et en utiliser un autre pour son exemple, c'est farfelu :aie:
non testé, à l'arrache, mais bon :)

Code:

1
2
3
4
5
6
7
8
9
10
derli = Columns(1).Find("*", , , , , xlPrevious).Row
  ' boucle qui commence à la fin à cause des suppression de cellules
For i = derli To 3 Step -1
if range("A" & i-1).value = range("A" & i).value then
'récupération des valeurs
range("A" & i).value = range("A" & i).value + range("A" & i-1).value
'suppression
range("A" & i).row.delete
end if
Next i

07/11/2007, 14h57
derech

1 pièce(s) jointe(s)

Oui c'est vrai je n'ai pas fais attention. Je te renvois le fichier corrigé avec le code qui fonctionne.
En l'exécutant tu peux t'apercevoir que les données de la colonne c se suppriment.

tu es prié de changer ceci

Code:

Cells(i - 1, 2) = Cells(i - 1, 2) + Cells(i, 2) And Cells(i - 1, 3) = Cells(i - 1, 3) + Cells(i, 3)

par cela
Code:

1 2 3 'on additionne les deux montants des cellules b et c au-dessus Cells(i - 1, 2) = Cells(i - 1, 2) + Cells(i, 2) Cells(i - 1, 3) = Cells(i - 1, 3) + Cells(i, 3)
:king:

07/11/2007, 16h16
derech

Ok je te remercie ça fonctionne.