doublons dans plage

[marie]

Bonsoir a tous
J'utilise ce code pour vérifier s'il existe des doublons en colonne 4
aussi j'aimerais vérifier s'il existe des doublons dans la plage A4:C21 indépendamment la colonne 4 et uniquement lorsque je clique sur retour
merci

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 4 Then
If Application.WorksheetFunction. _
CountIf(Range('d4:d21'), Target.Value) > 1 Then

MsgBox 'saisissez un autre compte, celui-ci existe déjà'
Target.Value = ''
Target.Select
End If

End If
End Sub [file name=essais_20051108192035.zip size=8153]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essais_20051108192035.zip[/file]

 

[Hellboy]

Bonjour Marie

Je t'offre cette proposition qui est aussi inclu ds le fichier attaché. J'ai aussi juste un peu modifier la macro que tu avais déjà en place.

Public Sub Doublon()
        Dim rngPlage        As Range, rngCells        As Range
       
        Set rngPlage = Range('A4:C21')
        For Each rngCells In rngPlage
                        If Application.WorksheetFunction.CountIf(rngPlage, rngCells) > 1 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox ' Il y a plus de une instance de ---> ' & rngCells & ' <--- dans votre plage'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; Next rngCells
End Sub

[file name=essais_20051108201234.zip size=10793]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essais_20051108201234.zip[/file]

 

[marie]

🙂 c'est impeccable ,un grand merci et bonne soirée à tous