Rassembler valeurs cellules si données identiques

Bonjour,

J'aimerais dans le fichier joint rassembler les valeurs qui sont en colonnes H dans une seule cellule si les valeurs en colonne A, F et G sont identiques pour ne garder qu'une seule ligne.

Merci pour vos retours

GuiGui8731

Bonjour toutes et tous

macro de Job75 merci à lui ^^

macro Job75 url ici

ci-joint ton classeur @tester et @méliorer

merci 3Gb ^^ testé fonctionnel, je me demande comment tu fais à trouver si vite ! ^^

crdlt,

André

Bonjour Andre13,

Merci pour ton retour.

Alors ta macro ne fait pas exactement ce que je souhaite faire.

Exemple:

Dans le fichier, les lignes 6, 7, 8, 9 ont les mêmes valeurs en colonne A, F et G. Je voudrais donc que, si ces critères sont respectés, rassembler les valeurs en colonne H en une seule cellule et ne garder qu'une seule ligne si cela est possible.

Cordialement

GuiGui8731

Salut Guigui, salut André,

Si j'ai bien compris, voici une proposition de code avec concaténation des valeurs en H et retour à la ligne :

Sub test()

Set dico = CreateObject("scripting.dictionary")

With Sheets(1).UsedRange.Offset(3, 0)
    t = .Resize(.Rows.Count - 3).Value
    For i = LBound(t) To UBound(t)
        If Not dico.exists(t(i, 1) & t(i, 6) & t(i, 7)) Then
            n = n + 1
            dico(t(i, 1) & t(i, 6) & t(i, 7)) = n
            For k = LBound(t, 2) To UBound(t, 2)
                t(n, k) = t(i, k)
            Next k
        Else
            pos = dico(t(i, 1) & t(i, 6) & t(i, 7))
            t(pos, 8) = t(pos, 8) & Chr(10) & t(i, 8)
        End If
    Next i
    If n > 0 Then
        .ClearContents
        .Resize(n, UBound(t, 2)).Value = t
    End If
End With

End Sub

Ce code est à tester sur une copie du fichier car il remplace les valeurs pré-existantes.

Cdlt,

Bonjour 3GB,

Je viens d'essayer ton code et celui fonctionne parfaitement pour ce que je veux faire.

Merci beaucoup pour ton aide.

Cordialement

GuiGui8731

Super !

Bonne continuation et à bientôt peut-être,