Modification macros recherche doublons et fusion lignes

Bonjour,

J'ai besoin d'ajouter à la macros ci-joint une condition, et comme je ne sais pas le faire. je m'en remets à vous.

Cette macros me sert à simplifier un tableau d'analyses mensuelles en rassemblant des lignes aux données communes et en additionnant la quantité inscrite en K.

Actuellement, la recherche de doublons se fait sur la colonne I.

Quand 2, 3, 4... cellules de cette colonne I ont la même valeur, on ramène toutes les lignes concernées en une seule ligne, et on met en K la somme des quantités trouvés sur ces lignes, en K.

Cette macros s'avère incomplète.

J'aimerai qu'il y soit ajouté:

Si la valeur de cellule H ET la valeur de cellule I se retrouvent en même temps sur d'autres lignes, alors, regrouper et additionner K.

J'insiste sur le ET. Car si ce n'est que l'un, ou que l'autre, il ne faut rien toucher.

Voilà,

Si ce n'est pas clair, me le dire.

Merci de m'aider

Bien cordialement

Bonjour

Essaie ce code :

Sub ess()
    Dim i&, Cell, Rng As Range
    Dim Ligne As Long
    On Error Resume Next
    If IsEmpty(Range("I18:I" & Range("I65536").End(xlUp).Row)) Then Exit Sub
    Application.ScreenUpdating = False ' écran(faux)
    For Each Cell In Range("I18:I" & Range("I65536").End(xlUp).Row)
        For i = 1 To Range("I65536").End(xlUp).Row
            Set Rng = Cell.Offset(i, 0)
            If Rng <> "" And Rng = Cell And Rng.Offset(0, -1) = Cell.Offset(0, -1) Then
                Range("I" & Cell.Row).Select
                Ligne = Cell.Row
                ' ajout des valeurs de la colonne K lors d'une détection de doublons
                Cells(Ligne, 11).Value = Cells(Ligne, 11).Value + Cells(Ligne + i, 11).Value
                ' suppression de la ligne en doublons
                Range(Cells(Ligne + i, 1), Cells(Ligne + i, 12)).Delete
                i = i - 1
            End If
        Next i
    Next Cell
End Sub

Bye !

Bonjour,

J'essaye et je vous tiens informé.

Merci pour la réponse.

Votre macros est bien celle que je voulais.

Merci beaucoup!

Bon réveillon et bonne année 2014