Interdire l'entrée d'une valeur identique

[David590]

Bonjour à tous,

Je scanne des codes barre à dans la colonne C de la feuil2, et j'aimerais interdire l'entrée par une messagebox si une valeur identique à la cellule écrite par le code barre est déjà présente dans la colonne "C" ou "T" de la feuil2 ou "C" de la feuil4
Et aussi interdire l'entrée si le code ne fait pas 24 caractères comme tous les autres
Pouvez vous m'aider?

Ci joint un petit fichier exemple

Merci d'avance

 

[néné06]

Re : Interdire l'entrée d'une valeur identique

Bonjour David590

Ton nouveau code barre Scanné s'écrit à quel endroit ?
Donnes nous soit une adresse de cellule ,soit une textbox si tu travail en VBA.

Cordialement

 

[Softmama]

Re : Interdire l'entrée d'une valeur identique

Bonjour,
vois si le fichier joint répond à ta demande.

 

[David590]

Re : Interdire l'entrée d'une valeur identique

Bonsoir néné06, Softmama

C'est parfait, c'est exactement ce qu'il me fallait, mais j'ai quand même essayé de comprendre le code et je ne comprend pas ou tu choisis la colonne C de la feuil4, au cas ou je veux modifier le code
Ca doit se passer certainement ici

Set c = Cells.Find(What:=Target.Text, LookIn:=xlValues, LookAt:=xlWhole)
   If Not c Is Nothing And c.Address = Target.Address Then Set c = Cells.FindNext(c)
     If c.Address <> Target.Address Then
       If c.Column = 256 Then

Peut tu me dire quoi changer?
Merci @+ 🙂

 

[Softmama]

Re : Interdire l'entrée d'une valeur identique

Bonsoir,

Non, en fait, j'ai un peu triché... (Regarde la colonne IV de la feuil2 pour comprendre). Pour faire plus propre, on peut faire plutôt ainsi:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 Then
 If Target <> "" Then
  If Len(Target) <> 24 Then MsgBox "Y a pas 24 chiffres dans le code!": Target = "": Exit Sub
  If Val(Target) = 0 Then MsgBox "Ce code n'est pas un nombre!": Target = "": Exit Sub
'On colle dans la colonne IV le contenu de la colonne C de la feuil4
  Sheets("Feuil4").Columns(3).Copy Range("IV1")
   Set c = Cells.Find(What:=Target.Text, LookIn:=xlValues, LookAt:=xlWhole)
   If Not c Is Nothing And c.Address = Target.Address Then Set c = Cells.FindNext(c)
     If c.Address <> Target.Address Then
       If c.Column = 256 Then
         MsgBox "Ce code existe déjà en feuil4!C" & c.Row: Target = ""
       Else
         MsgBox "ce code existe déjà en cellule " & c.Address(0, 0): Target = ""
       End If
     End If
   End If
'puis on efface la colonne IV
  Columns(256).Delete
 End If
End Sub

 

[David590]

Re : Interdire l'entrée d'une valeur identique

Super, c'est plus claire pour moi comme ça

Merci beaucoup
@+