Discussion :

[facteur]

Bonjour,
J'ai un petit code Vba qui me permet d'identifier des cellule en doublons.
La cellule à gauche de la cellule en doublon devient rouge.
Je souhaiterais insérer dans cette cellule rouge, le contenu de la cellule à gauche de la cellule en doublon.
Je vous joins une image de ce que je souhaiterais faire.
Voici ci dessous mon code vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Doublon()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("Feuil1")
 
       Set Plage = .Range(.Cells(3, 3), .Cells(.Rows.Count, 6).End(xlUp))
 
    End With
 
 
     For Each Cel In Plage
 
        If Application.CountIf(Plage, Cel.Value) > 1 Then
 
        Cel.Offset(0, -2).Interior.ColorIndex = 3
 
        End If
 
    Next Cel
 
End Sub

Voici l'image

Je souhaiterais, inserer dans les cellules rouges, le numéro à gauche du prénom en doublon
ex :
A gauche de la cellule 001, j'aurais 036 qui correspond au numéro du doublon Pierre
A gauche de la cellule 036, j'aurais 001 qui correspond au numéro du doublon Pierre

A gauche de la cellule 003, j'aurais 038 qui correspond au numéro du doublon Rachel
A gauche de la cellule 038, j'aurais 003 qui correspond au numéro du doublon Rachel

Etc....

Est ce possible ?

Merci d'avance