Doublon sur 2 colonnes

[Milou45]

Bonjour,
Tout d'abord, un forum très pertinent que je viens de découvrir..;donc Bravo à tous.
je débute sur Excel et VBA, et je sais que la question des doublons a été déjà abordé, mais je ne trouve pas une solution à mon problème.
Je souhaite être alerter de doublons sur 2 colonnes (colonne C (nom) et F (N° de facture))...je suis parti de cette formule qui fonctionne sur 1 colonne...mais ensuite je bute

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Ref As String
Dim Cell As Range, Plage As Range
Dim L As Integer
On Error Resume Next
If Application.Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
Ref = Target.Value
L = Target.Row
Set Plage = Range("C2:C" & L - 1)
For Each Cell In Plage
If Cell = Ref Then
MsgBox "Duplication de la Référence en " & Cell.Address, vbCritical, "Thierry 's Démo"
Cell.Activate
Exit Sub
End If
Next Cell
End Sub


Merci à vous pour vos suggestions
cordialement
milou45

 

[jp14]

Re : Doublon sur 2 colonnes

Bonjour et bienvenu sur le forum

Pour travailler sur deux colonnes il faut modifier le début de la procédure

If Target.Count > 1 Then Exit Sub ' pour éviter d'avoir deux colonnes sélectionnées

If Not Intersect(Target, Range("c:d")) Is Nothing Then et indiquer les colonnes à utiliser sur cette ligne.
Mais il faudra faire un test pour déterminer le code : Set Plage = Range("C2:C" & L - 1) ou
Set Plage = Range("d2:d" & L - 1)

ou alors faire deux tests
If Not Intersect(Target, Range("c:c")) Is Nothing Then

end if
If Not Intersect(Target, Range("d:d")) Is Nothing Then

end if
JP

 

[Robert]

Re : Doublon sur 2 colonnes

Bonjour Milou, JP, bonjour le forum,

une macro non événementielle :

Sub Macro1()
Dim x As Long
Dim y As Long
 
For x = 1 To Range("C65536").End(xlUp).Row
    For y = 1 To Range("F65536").End(xlUp).Row
        If Cells(x, 3).Value = Cells(y, 6) Then Message = Message & Chr(13) & "doublons en C" & x & " et F" & y
    Next y
Next x
MsgBox Message
End Sub

 

[Milou45]

Re : Doublon sur 2 colonnes

Bonjour,
et merci à vous deux ..je vais tester
A+

 

[zerv]

Re : Doublon sur 2 colonnes

Bonjour,

Moi je voudrais chercher les doublons qu 'il y a dans deux colonne de nom!

colonne 1 colonne 2
hopital ecole
hopital gdf doublon
gdf commerce
zuez sncf doublon
edf hopital doublon
sncf

si quelqu'un a la réponse merci beaucoup