Recopier qu'une ligne d'Infos répétées plusieurs fois

Bonjour,

J'aimerais, en language VBA, recopier une seule fois des information répétées.

Dans ma feuille 1 (voir pièce jointe) j'ai une colonne avec des Codes répétés et une autre avec des Noms répétés.

Dés que mon code VBA rencontre un Code il le copie une seule fois dans une feuille 2 en colonne A et il copie aussi le nom qui lui est associé en colonne B.

Par contre est ce que le code peut aussi prévoir l'hypotèse où on ne sait pas combien de ligne comporte notre fichier.

Merci d'avance et bonne fin de journée

Bonjour

Une solution rapide

Sélectionnes tes 2 colonnes

Dans le ruban --> Onglet Données ---> Supprimer les doublons

Un copier/coller et c'est fini

Bonjour,

Tout à fait d'accord avec Banzai64.

Sinon si tu veux vraiment une macro, regarde si cela te conviens.

Cordialement.

Merci à vous deux.

La fonction "Supprimer les doublons d'Excel" je connais mais je veux passer par une Macro.

Bigdaddy, ça à l'air trés bien ce que tu proposes. C'est exactement ce qu'il me faut. Par contre en la testant la Macro est stoppée à cette étape.

ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Clear

y a t il quelque chose que j'aurais oublié de faire avant d’exécuter la macro ?

Bonjour,

Une alternative.

A partir d'Excel 2007.

Cdlt.

Public Sub Supprimer_doublons()
' version Excel 2007 et +
Dim wsSource As Worksheet, wsCible As Worksheet

    Application.ScreenUpdating = False
    Set wsSource = Worksheets("Feuil1")
    Set wsCible = Worksheets("Feuil2")

    wsCible.Cells.Clear
    wsSource.Range("A1").CurrentRegion.Copy Destination:=wsCible.Range("A1")
    wsCible.Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

    wsCible.Activate
    [A1].Select

    Set wsSource = Nothing: Set wsCible = Nothing

End Sub

Merci.

Je vais tester cela sur de l'Excel 2007 au boulot. Chez moi je suis encore sur 2003 donc ça ne fonctionnera pas.

A+