[XL-2007] Macro pour fusionner des ligne en gardant la valeur supérieure

[michaeldms]

Bonjour,

Je suis actuellement dans une entreprise de vente par correspondance.

Je souhaite faciliter l'utilisation d'un tableau à partir d'une macro.
Celle-ci s'avère difficile à créer. Je m'explique :

Sur ce tableau est mis à jour quotidiennement. on y injecte des données tous les jours. il y'a 7 colonnes, les trois premières étant la référence de l'article, sa désignation et sa date de première rupture.

Voilà la macro que je souhaiterai créer :

Si les 3 premières colonnes sont identiques alors il faut les fusionner pour ne faire qu'une même ligne. Pour les 4 autres colonnes restantes (colonne 4, 5, 6, 7) il ne faut garder que les valeurs de la ligne où la valeur de la colonne 4 est la plus forte.

Pour résumer en gros, on a plusieurs lignes sur un tableau, si dans ces lignes la colonne 1, 2 et 3 sont identique il ne faut garder que la ligne ou la valeur de la colonne 4 est la plus forte et supprimer les autres.

Je vous joins le document pour plus de visibilité.

En vous remerciant et vous souhaitant un bon week-end!

Michaël

[fring]

Bonjour,

Teste ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
Dim i As Long, j As Long, x As String
 
Application.ScreenUpdating = False
 
With Sheets(1) '<-- nom ou position de la feuille à adapter
    For i = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        x = .Cells(i, 1) & .Cells(i, 2) & .Cells(i, 3)
        For j = i - 1 To 1 Step -1
            If .Cells(j, 1) & .Cells(j, 2) & .Cells(j, 3) = x Then
                If .Cells(j, 4) < .Cells(i, 4) Then
                    .Rows(j).Delete
                Else
                    .Rows(i).Delete
                    Exit For
                End If
            End If
        Next j
    Next i
End With
 
Application.ScreenUpdating = True
 
End Sub

[michaeldms]

c'est parfait ça marche! merci beaucoup pour votre aide

Bonjour,

En fait en m'en servant je me suis rendu compte que ça ne marchait pas car ça supprimer des lignes qui ne devaient pas être supprimer?
Je n'arrive pas à résoudre ce problème. comment faire?

Merci

[fring]

Si ce ne sont pas des données confidentielles, envoie un petit bout de fichier avec ces lignes qui posent problème