Re : Fusion de lignes conditionnelle - macro
Bonjour Pierrejean,
Un grand merci pour ta réponse rapide et efficace. Ta macro me semble très bien faire le job!
Une question: si je souhaite adapter la macro à des données structurées différemment (avec des colonnes différentes, renseignant par ex. des lieux d'activité, mais toujours avec le nom et l'identifiant de chaque individu), faut-il modifier cette macro? Si c'est le cas, comme je le suppose, quels sont les paramètres à changer dans le code ci-dessous?
Merci par avance et bien à toi,
Guillaume
Sub test()
Set dico = CreateObject("Scripting.dictionary")
tablo = Range("A2:L" & Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
x = tablo(n, 1) & "|" & tablo(n, 2)
dico(x) = x
Next
a = dico.keys
ReDim tabres(1 To 12, 0)
For m = LBound(a) To UBound(a)
tabres(1, UBound(tabres, 2)) = Split(a(m), "|")(0)
tabres(2, UBound(tabres, 2)) = Split(a(m), "|")(1)
For n = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(n, 1) & "|" & tablo(n, 2) = a(m) Then
For p = 3 To 12
If tabres(p, UBound(tabres, 2)) = "" Then tabres(p, UBound(tabres, 2)) = tablo(n, p)
Next
End If
Next
ReDim Preserve tabres(1 To 12, UBound(tabres, 2) + 1)
Next
Range("N2:X" & Rows.Count).ClearContents
Range("N2").Resize(UBound(tabres, 2), 12) = Application.Transpose(tabres)
End Sub