Recopie selon 2 critères sans doublon

Bonjour à tous,

Pour créer un récapitulatif de salaires je recopie les données de la Feuil1 sur la Feuil2 selon deux critères: le nom du salarié (J13) et l'année (J22).

Un bouton lance la macro, la recopie fonctionne, mais je voudrais que la macro vérifie si les données sélectionnées dans la Feuil1 sont déjà présentes sur la Feuil2 pour qu'elles ne soient pas recopiées à nouveau à chaque lancement de la macro, deux périodes de travail identiques n'étant pas possible pour un même salarié.

Le fichier est en PJ.

Je vous remercie pour votre aide.

dul

Bonjour,

une façon plus simple (filtre avancé)

Bonjour,

Ce que tu demande s'obtient par un simple filtrage de ta base de données. Tu remplaces donc ta procédure par la suivante :

Sub Filtrer()
    Dim PlgB As Range, Crt As Range, n%
    With Worksheets("Feuil1")
        Set Crt = .Range("J1:K2")
        Set PlgB = .Range("A3").CurrentRegion
    End With
    With Worksheets("Feuil2")
        .Range("A3:H" & .UsedRange.Rows.Count).Clear
        PlgB.AdvancedFilter xlFilterCopy, Crt, .Range("A2:H2")
        n = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("A3:H" & n).Borders.Weight = xlThin
        .Activate
    End With
End Sub

Cordialement.

MFerrand a écrit :

Sub Filtrer()
'...
        Set Crt = .Range("J1:K2")
 '...
End Sub

Cordialement.

Bonjour MFerrand,

j'ai pris l'habitude d'écrire

Set Crt = .Range("J1").CurrentRegion

au cas où il y aurait plusieurs lignes (OU)