supprimer doublons plage de différentes taille

[jad73]

bonjour le forum
j'ai une macro qui élimine les doublons qui fonctionne bien lorsque les plages sont de mème taille(Feuil1).
Dans la Feuil2 les plages sont de différentes taille, la base a 20 colonnes et la plage à controler a 7 colonnes et la la macro ne fonctionne plus.
merci pour votre aide

 

[Yaloo]

Re : supprimer doublons plage de différentes taille

Bonjour jad, le forum,

Puisque tu compares seulement 7 colonnes, il faut remplacer :

For Each Cel In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    tblo = Join(Application.Transpose(Application.Transpose(Cel.Resize(1, 20))), ";")
    CombA(tblo) = tblo
Next Cel

par :

For Each Cel In Range("A2:N" & Cells(Rows.Count, "A").End(xlUp).Row)
    tblo = Join(Application.Transpose(Application.Transpose(Cel.Resize(1, 7))), ";")
    CombA(tblo) = tblo
Next Cel

A+

Martial

Edit : Modif de colonne ("A2:N" & Cells ....