Positionner une liste triée dans une cellule

[Benlo]

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 !

 

[myDearFriend!]

Bonsoir Benlo,

Tu peux essayer comme ça :

Sheets('test').Cells(i + 2, 2) = data(i)

Pour info   ==>   Cells(NuméroDeLigne, NuméroDeColonne)

Au lancement de ta boucle, i vaut 1
Avec i+2, tu commenceras donc en ligne 3.

Cordialement,

 

[Benlo]

Bonjour Didier,

Merci beaucoup pour l'information, comme tu peux le constater, je ne maîtrise pas encore tout à fait toutes les subtilités VBA...

Ton explication, va grandement améliorer la traitement de plusieurs de mes fichiers.....

Bonne journée

 

[Benlo]

Bonjour Didier,

Merci beaucoup pour l'information, comme tu peux le constater, je ne maîtrise pas encore tout à fait toutes les subtilités VBA...

Ton explication, va grandement améliorer la traitement de plusieurs de mes fichiers.....

Bonne journée