XL 2019 interdire doublons sur plusieurs feuilles

job75 à dit:

Bonjour salbingu, JHA, le forum,

La question me paraît pourtant assez claire, voyez le fichier joint et cette macro dans ThisWorkbook :

VB:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim F As Worksheet, x$
Set F = Feuil1 'feuille de référence
If Sh.Name = F.Name Then Exit Sub
Set Target = Intersect(Target, Sh.UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Target
    x = LCase(CStr(Target))
    If x <> "" Then
        If Target.Row > 1 Then
            If x = LCase(CStr(F.Range(Target.Address))) Then
                Application.EnableEvents = False 'désactive les évènements
                Application.Undo 'annule l'entrée
                Application.EnableEvents = True 'réactive les évènements
                Exit Sub
            End If
        End If
    End If
Next
End Sub

A+

Cliquez pour agrandir...