Discussion :

[baptbapt]

Bonjour a tous

Voila un petit problème que je n'arrive pas a solutionner.
Je doit réaliser un tri suivi d'un effacement de mes doublons.
Problème, cela s'effectue sur une boucle correspondant au colonne F à ...
valeur aléatoire

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
 
'Tri des données par nom et suppression des doublons par colonne
    For h = 1 To U
        Dim q&
        Columns("A:A").Select
        Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        For q = Range("A65536").End(xlUp).Row To 2 Step -1
            If Cells(q - 1, 5 + h).Value = Cells(q, 5 + h).Value Then
                Cells(q, 5 + h).Delete Shift:=xlUp
            End If
        Next q
        Derlgh = Cells(65536, 5 + h).End(xlUp).Row
        an.Cells(12 + h, 5).Value = Derlgh
    Next h

Voila les première modif que j'ai effectué sur ma boucle existante.

Le problème, maintenant, c'est les A.
Je fais comment pour les remplacer, pour les faire evouler avec ma boucle
soit mettre E+h, on obtient alors F, G, H ...


Merci

[SfJ5Rpw8]

le tri pour avec E = 5 ° colonne :

Code :

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

1
2
3
4
5
 
...
Columns(5+h).Sort Key1:=Cells(5+h), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
...

[baptbapt]

Salut bbil

Donc si je suis bien ton code.

Sa va faire colonne F quand h=5
et ainsi de suite

je peut remplacer par cette variable

Code :

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

Range("A65536").End(xlUp).Row

par

Code :

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

derlgno = Cells(65536, 3).End(xlUp).Row

enfin juste derlgno que j'ai calculer avant et qui regroupe l'ensemble.