Bonjour,

Je recherche à détecter sur ma colonne A (avec une 5 LIGNE d'en-tête) les valeurs en double.
Quel est le code vba qui me permettrait, à la première valeur en double rencontrée (exemple : 1100) de se positionner sur la case de la première des deux valeurs identiques et de faire afficher un message box disant "attention, la valeur citron est en double, veuillez éliminer manuellement votre saisie si le double situé en "X" n'est pas une ancienne rupture.

J'ai ecris un code mais je ne comprend pas pourquoi il ne fonctionne pas :

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
24
25
26
27
28
29
30
Private Sub Doublon()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("SUIVIS URGENCE ")
 
    'en colonne "A" ? partir de A5
       Set Plage = .Range(.Cells(5, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
 
    'boucle la plage de la feuille "Compte" et cherche chaque valeur
   'en correspondance exacte dans la plage de la feuille "Source"
   For Each Cel In Plage
 
        If Application.CountIf(Plage, Cel.Value) > 1 Then
 
            MsgBox "Attention, la valeur '" & Cel.Value & "' est en doublon," _
                   & " veuillez supprimer manuellement votre saisie si le double situ? en '" & Cel.Address(0, 0) _
                   & "' n'est pas une ancienne r?f?rence en rupture(ligne en jaune) !"
 
            Cel.Interior.ColorIndex = 3
 
        End If
 
    Next Cel
 
End Sub

merci d'avance !
Ben