Microsoft 365 Changer la valeur d'un doublon par une autre valeur existante

aitelhachmi

XLDnaute Nouveau
Bonjour, j'ai mis en exécution ce code pour chercher les doublons et ouvrir ensuite un MsgBox au cas ou la condition est vraie.
VB:
Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=True

If Application.Subtotal(103, Columns(2)) <> Application.CountA(Columns(2)) Then
    MsgBox "bla bla bla"
End If

End Sub

J'aimerais en ajouter un code pour changer la valeur de la cellule qui contient le doublon par une autre valeur d'une autre cellule dans la même feuille.

Par exemple : le doublon se trouve dans la cellule B17 et j'aimerais changer sa valeur par celle de la cellule A1
 

Discussions similaires

Réponses
4
Affichages
793
Réponses
1
Affichages
676

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata