Microsoft 365 Empêcher les doublons dans deux colonne differente et sur deux feuilles

[Piksaw]

Bonsoir a tous,

je souhaite faire une manip qui a l'air simple en soi, j'ai trouver la solution sur ce forum, mais je ne comprend pas ce que je dois faire de faux, car il me marque peut importe ce que j'écris que le numéro existe déjà

J'ai sur une feuille qu'on va appeler feuille1 une cellule C7, quand je rentre un numéro, je voudrai qu'il aille vérifier si ce numéro n'existe pas déjà dans la colonne B de la feuille 2 et si oui qu'il m'avertice

j'ai mise cette formule dans validation de donnée dans personnaliser

NB.SI('feuille2'!B:B;C7)=1

 

[sylvanu]

Bonsoir Piksaw,
Un essai en PJ avec une MFC :

=NB.SI(Liste;$C$7)>0

 

[Piksaw]

Bonsoir Piksaw,
Un essai en PJ avec une MFC :

=NB.SI(Liste;$C$7)>0

Bonsoir sylvanu,

ça fonctionne avec ta technique c'est dommage qu'on ne puisse pas avoir un message d'erreur mais en même temps en fond rouge est police jaune, c'est presque pareil

 

[sylvanu]

Re,
En PJ une MFC et un message avec la macro suivante.
Mais à l'usage les messages m'agacent, je préfère les MFC, c'est plus ergonomique à mon goût.

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C7]) Is Nothing Then
        On Error Resume Next
        If Application.CountIf(Sheets("Feuil2").[B:B], Target) > 0 Then
            MsgBox "Cette valeur est présente dans la liste en feuille 2."
        End If
    End If
End Sub

 

[Piksaw]

Re,
En PJ une MFC et un message avec la macro suivante.
Mais à l'usage les messages m'agacent, je préfère les MFC, c'est plus ergonomique à mon goût.

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C7]) Is Nothing Then
        On Error Resume Next
        If Application.CountIf(Sheets("Feuil2").[B:B], Target) > 0 Then
            MsgBox "Cette valeur est présente dans la liste en feuille 2."
        End If
    End If
End Sub

hello ! merci pour la variante qui fonctionne également, je vais garder les deux au cas ou comme tu dis aà la longue le message agace