Suppression Doublon et Mise en forme

Bonjour à toutes et à tous

Je reviens vers vous aujourd’hui pour un problème de doublons qu'il faudrait faire disparaître dans une colonne ainsi que la ligne dans lequel ils se trouvent et en même temps les colorer dans 2 autres colonnes et ce, dans 3 feuilles excel différentes du même classeur.

J'ai joint un fichier dans lequel je précise ma demande.

Les 3 Feuilles concernées sont :

Ville PAYÉE : résultat d'extraction , toujours dans ce format et toujours dans l'ordre chronologique date la plus proche en premier. La colonne concernée est surtout la A .Parfois des noms d'enseignes se répètent parce que celles ci ont à payées plusieurs choses différentes le même jour .

TRI VILLE : résultat d'extraction également me servant d'historique, dans laquelle j'aimerai si possible colorer la ligne de l'enseigne apparaissant dans la feuille VILLE PAYÉE

TRANSFERT GOOGLE SHEET : Feuille extraite de manière identique que la feuille TRI VILLE mais qui est transférée sur une tablette pour le terrain n'apparaissant dessus que les enseignes restant à percevoir.

Une version vba m'est préférable à des formules car je peux l'intégrer à mon fichier déjà existant dont ce classeur est extrait.

Merci pour l'aide que vous pourriez m'apporter.

Bonjour,

Le code suivant, si besoin est à adapter, à insérer dans un module :

Sub Test()
    'suppression des clients qui ont déjà payé
    derLig = Sheets("TRANSFERT GOOGLE SHEET").Range("A" & Rows.Count).End(xlUp).Row
    For i = derLig To 2 Step -1
        If WorksheetFunction.CountIf(Sheets("VILLE PAYEE").Range("A:A"), Sheets("TRANSFERT GOOGLE SHEET").Range("A" & i)) > 0 Then
            Sheets("TRANSFERT GOOGLE SHEET").Rows(i).Delete
        End If
    Next i
    'mise en forme conditionnelle des clients qui ont payé
    Sheets("TRI VILLE").Activate
    derLig = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:E" & derLig).Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=NB.SI('VILLE PAYEE'!$A:$A;$A1)>0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Color = -4165632
    End With
    'mise en forme conditionnelle des clients transférés
    Sheets("VILLE PAYEE").Activate
    derLig = Range("A" & Rows.Count).End(xlUp).Row
    Range("A2:A" & derLig).Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=NB.SI('TRANSFERT GOOGLE SHEET'!$A:$A;$A1)=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Color = -16776961
    End With
End Sub

Bonjour RAJA

Merci pour ta réponse je teste cet après-midi et je te fais un retour

Quoiqu'il en soit merci !d'avance..

Merci pour ton boulot ça fonctionne , je le rode sur les jours a venir et je te tiens au courant.

Merci encore