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

Piksaw · 5 Mars 2022

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 · 5 Mars 2022

Bonsoir Piksaw,
Un essai en PJ avec une MFC :

VB:

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

sylvanu · 5 Mars 2022

Bonsoir Piksaw,
Un essai en PJ avec une MFC :

VB:

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

Piksaw · 6 Mars 2022

sylvanu à dit:
Bonsoir Piksaw,
Un essai en PJ avec une MFC :

VB:

=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 · 6 Mars 2022

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.

VB:

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 · 6 Mars 2022

sylvanu à dit:
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.

VB:

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

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

Piksaw

XLDnaute Junior

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Piksaw

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

Piksaw

XLDnaute Junior

Discussions similaires