Changer la valeur d'un doublon par une autre valeur existante Résolu/Fermé

Question

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.

Private Sub Worksheet_Change(ByVal Target As Range)On Error Resume NextRange("B3:B" & Range("B" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=TrueIf Application.Subtotal(103, Columns(2)) <> Application.CountA(Columns(2)) Then    MsgBox "bla bla bla"End IfEnd 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



Configuration: Windows / Firefox 81.0

Frenchie83 · Answer

Bonjour,

Est-ce que ce sera toujours A1 et uniquement A1?

En attendant (code à mettre dans un module standard):
Sub Remplace_Doublon()
    Dim i As Long, DerLig As Long
    DerLig = Range("B" & Rows.Count).End(xlUp).Row
    For i = DerLig To 3 Step -1
        If Application.WorksheetFunction.CountIf(Range("B2:B" & i), Cells(i, "B")) > 1 Then Cells(i, "B") = Range("A1").Value
    Next i
End Sub

Cdlt

aitelhachmi · Answer

D'abord merci infiniment pour ton attention à mon problème.
Et oui c'est toujours A1 la cellule source.

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

2 réponses

Discussions similaires