Sub deplace()
Dim i As Integer
Sheets('feuil1').select
For i = 1 To Range('a65536').End(xlUp).Row
If Not Cells(i, 1).Value = '-' Then
Sheets('feuil2').Range('A65536').End(xlUp).Offset(1, 0).Value = Cells(i, 1).Value
End If
Next i
End Sub
Bonsoir Pachal, Bernard et Romain
J'avais marqué valeurs uniques mais sur la mauvaise colonne :whistle: .
Voici une nouvelle version de la formule de recherche des références (à voir en colonne F) :
=SI($E2‹›'';INDEX(ColA;PETITE.VALEUR(SI(ColB=$E2;LIGNE(ColB ));NB.SI($E$1:$E1;$E2)+1); );'')
[file name=Pachal21_DeplacementConditionnelV2.zip size=8886]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Pachal21_DeplacementConditionnelV2.zip[/file]
A+