Discussion :

[aiss57]

Bonjour tout le monde,

J'ai un tableau Excel avec 2 champs :

Elément Nombre
30000 10
30000 15
30000 20
25000 5
25000 2
12000 3
51000 1
51000 1

Je suis nul en VB :/ J'aimerais une macro qui effectue l'opération suivante :

Supprimer les lignes en doublon (champs "Elément") et additionner les cellules (champ "Nombre") correspondant. Exemple:

Pour le "30000", supprimer 2 lignes en garder une seule et faire 10+15+20, ce qui se traduit par le tableau :

Elément Nombre
30000 45
25000 7
12000 3
51000 2

Merci de votre aide.

[casefayere]

Bonjour,
en suivant ton exemple, essayes ce code sur une feuille d'essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim x, y, lg, total
lg = Range("a" & Rows.Count).End(xlUp).Row
For x = lg To 3 Step -1
For y = x - 1 To 2 Step -1
If Range("a" & y) = Range("a" & x) Then
total = Range("b" & x) + Range("b" & y)
Range("b" & x) = total
Range("a" & y, "b" & y).Delete Shift:=xlUp
End If
Next y
total = 0
Next x
End Sub

bonne journée

[Fvandermeulen]

Salut,
Avec le principe des boucles il te faut un For x To y Step-1
On fait la boucle à l'envers pour ne pas oublier de ligne car:
On est à la ligne 2, elle est supprimée, la boucle passe alors au suivant à savoir 3 MAIS la ligne 3 est devenue la 2 lors de la suppression, elle ne sera donc pas vérifiée par la boucle N°3, c'est en fait l'ancienne 4 qui est devenue 3 qui est ciblée (en espérant avoir été clair ...)
Donc voici le code:

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
Sub SumData()
Dim Ws As Worksheet
Dim DerLig As Long, r As Long, MonTot As Long
 
Set Ws = Sheets("TaFeuille")
DerLig = Ws.Cells(Rows.Count, 1).End(xlUp).Row 'Récupère le N° de la dernière ligne remplie
 
For r = DerLig To 2 Step -1 'Boucle de la dernière ligne à la 2ème car titre
    If Ws.Cells(r, 1) = Ws.Cells(r - 1, 1) Then 'Si la cellule est = à la cellule du "dessus"
        MonTot = MonTot + Ws.Cells(r, 2) 'Incrémente le total via la variable MonTot
        Rows(r).Delete 'Supprime la ligne
    Else 'Si la cellule est <> de celle du "dessus"
        MonTot = MonTot + Ws.Cells(r, 2) 'Incrémente le total
        Ws.Cells(r, 2) = MonTot 'Renseigne le total dans la ligne équivalente à la cellule colonne B
        MonTot = 0 'Réinitialise la variable pour le total
    End If
Next r
End Sub

A+

Edit: désolé pour le doublon (enfin presque) pas rafraichi...

[aiss57]

Merci de ton aide

Cordialement