Supprimer doublon via les en-tête et non le numéro des colonnes

[dancar]

Bonjour à tous,

Dans une macro je supprime les doublons en fonction de 2 colonnes, par exemple colonne 1 et 2, l'extrait de code suivant fonctionne bien:

Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

Ceci dit l'emplacement des colonnes peut être différent et là mon code ne fonctionne plus.

Je souhaiterai donc déterminer les doublons via l'en-tête des colonnes (NumeroContrat et IdClientFacture) et non par leur numéro.

Je vous joint un fichier très simplifié ou le nombre colonne ne correspond pas à la réalité et juste l'extrait de code concerné.

Après recherche, je ne trouve pas sur Internet ni dans différents forums, mais cela vient peut être de la façon de m'exprimer dans mes recherches.

Je vous remercie par avance de l'aide que vous voudrez bien m'apporter.

 

[david84]

Re : Supprimer doublon via les en-tête et non le numéro des colonnes

Bonjour,
peut-être comme cela :

Sub sup_doublon()        
Dim Pl As Range, PlEnt As Range, Ent1 As Byte, Ent2 As Byte
    Set Pl = Range("A1").CurrentRegion
    Set PlEnt = Pl.Rows(1)
    Ent1 = Application.Match("NumeroContrat", PlEnt, 0)
    Ent2 = Application.Match("IdClientFacture", PlEnt, 0)
    Pl.RemoveDuplicates Columns:=Array(Ent1, Ent2), Header:=xlYes    
End Sub

A+

 

[dancar]

Re : Supprimer doublon via les en-tête et non le numéro des colonnes

Merci david84, cela fonctionne parfaitement et quelle rapidité pour répondre, c'est du sitôt dit sitôt fait