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

Résolu/Fermé

aitelhachmi Messages postés 24 Date d'inscription lundi 28 juillet 2014 Statut Membre Dernière intervention 13 mars 2024 - 21 oct. 2020 à 22:09
aitelhachmi Messages postés 24 Date d'inscription lundi 28 juillet 2014 Statut Membre Dernière intervention 13 mars 2024 - 22 oct. 2020 à 15:33

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

Configuration: Windows / Firefox 81.0

A voir également:

Changer la valeur d'un doublon par une autre valeur existante
Changer dns - Guide
Piratage facebook changer mot de passe - Guide
Changer clavier qwerty en azerty - Guide
Excel renvoyer la valeur d'une cellule en fonction d'une autre ✓ - Forum Excel
Piece 2€ bonhomme valeur ✓ - Forum Loisirs / Divertissements

2 réponses

Réponse 1 / 2

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
22 oct. 2020 à 07:13

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

Réponse 2 / 2

aitelhachmi Messages postés 24 Date d'inscription lundi 28 juillet 2014 Statut Membre Dernière intervention 13 mars 2024
22 oct. 2020 à 15:33

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

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Excel VBA : Récupérer la valeur d'une cellule

[EXCEL] - Attribuer une valeur numérique à un mot

formule de calcule

Discussions similaires

Newsletters