Discussion :

[phalphaaaa]

Bonjour a tous,

Je recherche à détecter sur ma colonne B (avec une ligne d'en-tête) les valeurs en double.
Quel est le code vba qui me permettrait de détecter la valeur en double rencontrée (exemple : desktop) et de se positionner sur la première case des deux valeurs identiques et de faire afficher un message box disant "attention, la valeur desktop est en double, veuillez procéder a la vérification".

le code suivant est parfait mais mais j'ai besoin de la vérification de la colonne B uniquement.

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
Sub Doublon()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("Feuil1")
 
    'en colonne "B" à partir de B2
       Set Plage = .Range(.Cells(2, 2), .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 procéder a la vérification '" & Cel.Address(0, 0)
 
            Cel.Interior.ColorIndex = 3
 
        End If
 
    Next Cel
 
End Sub

[phalphaaaa]

j'ai résolu le problème et voila la solution.

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
Sub Doublon()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("Feuil1")
 
    'en colonne "B" à partir de B2
       Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).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 procéder a la vérification '" & Cel.Address(0, 0)
 
            Cel.Interior.ColorIndex = 3
 
        End If
 
    Next Cel
 
End Sub