supprimer doublons plage de différentes taille

jad73 · 14 Août 2014

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 · 18 Août 2014

Re : supprimer doublons plage de différentes taille

Bonjour jad, le forum,

Puisque tu compares seulement 7 colonnes, il faut remplacer :

VB:

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 :

VB:

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 ....

supprimer doublons plage de différentes taille

jad73

XLDnaute Occasionnel

Pièces jointes

Yaloo

XLDnaute Barbatruc

Discussions similaires

supprimer doublons plage de différentes taille

jad73

XLDnaute Occasionnel

Pièces jointes

Yaloo

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency