Wooooooooooooooooooooo
Merci
Super macro!
Je vais tenter de l'appliquer.
Mais c'est exactement mon problème en effet!
Bon....je ne suis vraiment pas douer. J'ai tenter d'adapter tant bien que mal la macro (marcos dont je ne connais pour le coup vraiment vraiment rien ) Et j'ai obetnu l'erreur suivante Tabol= Vide
Voici ma tentative d'adaptation, avec H étant ma colonne avec les doublons (qui sont des "étapes" à conserver) et I la colonne avec les valeurs uniques, plus des intrus et des informations supplémentaires attachées, de la colonne A à F.....
Sub NlleListe()
tabloA = Range("I2:I" & Range("I" & Rows.Count).End(xlUp).Row)
tabloB = Range(Cells(2, 3), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column))
Set dicoA = CreateObject("Scripting.Dictionary")
Set dicoB = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tabloI, 1)
dicoA(tabloI(i, 1)) = ""
Next i
k = 0
For i = 1 To UBound(tabloH, 1)
If dicoA.exists(tabloH(i, 1)) Then
dicoB(tabloH(i, 1)) = ""
ReDim Preserve tabloP(UBound(tabloH, 2), k + 1)
For j = 0 To UBound(tabloH, 2) - 1
tabloP(j, k) = tabloH(i, j + 1)
Next j
k = k + 1
End If
Next i
ReDim tabloR(UBound(tabloI), UBound(tabloP, 1))
For i = 1 To UBound(tabloI, 1)
For k = 0 To UBound(tabloP, 2) - 1
If tabloA(i, 1) = tabloP(0, k) Then
For j = 1 To UBound(tabloP, 1)
tabloR(i - 1, j - 1) = tabloP(j - 1, k)
Next j
Exit For
End If
Next k
Next i
Je sais que ça ne colle pas....je vais me pencher sur cette macro demain dans le train.
Merci beaucoup pour cet aide!
C'est avec regret que je constate qu'il aut (déjà) passer à VBA dans excel...j'imaginais pouvoir me tirer d'affaire plus simplement!