Discussion :

[nonesofar13]

Bonjour,

Je suis face à un probléme les amis.

Je souhaite trier une base en excel vba. Mon code de tri est effectué, mais je souhaite garder certaines valeurs en doublon car elles doivent rester en doublon.

Avez-vous des méthodes de tri des doublons sans tous les écraser?

Merci d'avance.

[letienne]

Bonjour,

La méthode Sort ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    'Préparation du tri (sur les valeurs de la colonne C par ordre ascendant sur les valeurs)
    ThisWorkbook.Worksheets(1).Sort.SortFields.add _
    key:=Range("C:C"), _
    SortOn:=xlSortOnValues, _
    Order:=xlAscending, _
    DataOption:=xlSortNormal
    'Tri sur les colonnes A à H avec la clé de tri définie plus haut (il est possible d'en ajouter plusieurs)
    With ThisWorkbook.Worksheets(1).Sort
        .SetRange Range("A:H")  
        .Header = xlYes  'les données ont des en-têtes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Letienne

[nonesofar13]

Merci de ta réponse,

je vais regarder ta solution.

Bonne journée.