trie sans doublon qui semble pas marche en VBA

[bigs32]

bonjour
j'aimerais faire un tri sans doublon de la colonne A et B avec critere sur la colonne A et le copier dans un autre endroit sur la colonne J.
j'ai fait le code .ca a l'air de marcher mais a chaque fois il me prend la 1er ligne en 2 fois alors que j'ai demandé sans doublons .En plus il me copie pas la colonne B .voici mon fichier excel de test

merci pour votre aide .Et encore un grand bravo pour le forum super dynamique .Le meilleur que je connaisse pour l'instant
voici le code:

Function fin_ligne()
fin_ligne = [a65000].End(xlUp).Row
'range([a65000].End(xlUp).Row
End Function
Function fin_col()
fin_col = Cells(6, 256).End(xlToLeft).Column
End Function
Sub filtre()
Range("g1", Cells(fin_ligne, fin_col)).ClearContents
ActiveSheet.Range("A1:b1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Columns _
("A:A"), CopyToRange:=Range("j1"), Unique:=True
End Sub

 

[Compte Supprimé 979]

Re : trie sans doublon qui semble pas marche en VBA

Salut Bigs32,

Tu veux extraire les valeurs de 2 colonnes sans doublon, or

A1 11
N'est pas un doublon de
A1 12

Il est donc normal que tu es 2 fois la valeur A1 😉

A+

 

[bigs32]

Re : trie sans doublon qui semble pas marche en VBA

le critère de filtrage est bien sur la colonne A et non la colonne B.Donc la colonne B n'est pas concerné par le traitement des doublons non?