Classement

Orientationis · 10 Décembre 2008

Bonjour,

Je dispose d'un fichier excel avec des noms et prénoms qui reviennent régulièrement. Cependant, des numéros sont affectés à ces noms et prénoms et ils sont tous différents. Ce que je voudrais faire : Supprimer les doublons dans les noms et prénoms mais garder tous les numéros les concernant. Pour illuster, voici un fichier exemple.

Ps: L'idée, vous l'aurez compris, est d'automatiser un maximum

Merci Beaucoup

kjin · 10 Décembre 2008

Re : Classement

bonjour,
A tester

Code:

Sub sup()
With ActiveSheet
    Derlign = .Range("A65000").End(xlUp).Row
    .Range("A1:C" & Derlign).Sort Key1:=Range("A2"), Order1:=xlAscending, _
                Key2:=Range("B2"), Order2:=xlAscending, Header:=xlGuess
        For i = Derlign To 2 Step -1
        If .Cells(i, 1) = .Cells(i - 1, 1) And .Cells(i, 2) = .Cells(i - 1, 2) Then
        .Range(.Cells(i, 1), .Cells(i, 2)).ClearContents
        End If
    Next
End With
End Sub

A+
kjin

Orientationis · 10 Décembre 2008

Re : Classement

thank you very much

Classement

Orientationis

XLDnaute Junior

Pièces jointes

kjin

XLDnaute Barbatruc

Orientationis

XLDnaute Junior

Discussions similaires