B
Benlo
Guest
Bonjour,
Grâce à ce bout de code trouvé sur ce forum (fourni par Hervé), on peut trier une liste sans les doublons :
Option Explicit
Sub Tridoublons()
Dim data As Collection
Dim c As Range
Dim i As Byte
Set data = New Collection
On Error Resume Next
For Each c In Range('plage')
data.Add c, CStr(c)
Next c
On Error GoTo 0
For i = 1 To data.Count
' Cells(i, 4) = data(i)
Sheets('test').Cells(i, 4) = data(i)
Next i
End Sub
En modifiant la ligne Cells(i, 4) = data(i)
par Sheets('test').Cells(i, 4) = data(i)
j'arrive à placer la liste triée dans la feuille 'test' dans la cellule D1.
J'aimerais que la liste débute à la cellule B3 par exemple.
Je comprend que changer le 4 déplace la liste de colonne mais comment faire pour changer de ligne ???
Merci de m'aider !
Grâce à ce bout de code trouvé sur ce forum (fourni par Hervé), on peut trier une liste sans les doublons :
Option Explicit
Sub Tridoublons()
Dim data As Collection
Dim c As Range
Dim i As Byte
Set data = New Collection
On Error Resume Next
For Each c In Range('plage')
data.Add c, CStr(c)
Next c
On Error GoTo 0
For i = 1 To data.Count
' Cells(i, 4) = data(i)
Sheets('test').Cells(i, 4) = data(i)
Next i
End Sub
En modifiant la ligne Cells(i, 4) = data(i)
par Sheets('test').Cells(i, 4) = data(i)
j'arrive à placer la liste triée dans la feuille 'test' dans la cellule D1.
J'aimerais que la liste débute à la cellule B3 par exemple.
Je comprend que changer le 4 déplace la liste de colonne mais comment faire pour changer de ligne ???
Merci de m'aider !