XL 2010 Empêcher la saisie de doublons par deux colonne / même ligne

[issam salem]

bonjour
alors je veux d'empêcher la saisie de doublons par deux colonne "image ci-joint"
c'est possible de saisie le même code article mais de différents magasin
je sais c'est que possible avec Excel sous la fonction SOMEPROUD ,mais pour moi Je voudrais le code VBA pour utiliser sur userform et merci d'avance!!!

 

[fhoest]

Bonjour,
un exemple:
admettons que les TextBox soit nommés comme dans le code:

Private Sub TxtMagasin_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim plage1 As Range
Dim c As Range, d As Range

Set plage1 = Range("A4:A" & Range("A100000").End(xlUp).Row)

For Each c In plage1
    If Txtcodearticle.Text = c Then
    If TxtMagasin.Text = Range("L" & c.Row) Then MsgBox "Cet item existe déjà dans ce magasin", vbinfo
    End If
Next
End Sub

Il faut adapter et tester, je n'ai pas tester donc il se peut qu'il y ait des erreurs de syntaxe.

 

[salem.b]

Dim plage1 As Range
Dim c As Range, d As Range
With ThisWorkbook.Sheets("Inventaire")
Set plage1 = Range("A4:A" & Range("A100000").End(xlUp).Row)

For Each c In plage1
    If TB_Libellé.Text = c Then
    If TB_Magasin.Text = Range("L" & c.Row) Then MsgBox "Code article " & TB_Libellé.Text & " de magasin " & TB_Magasin.Text & " deja saisie,Voueillez entrer un autre code", vbinfo
    Exit Sub
    End If
Next
End With

Merci pour réponse je crois que c'a fonctionne pour éviter la saisie des doublons
mais lorsque je click sur le bouton valider pour ajouter un autre magasin c'a marche pas "je fait déjà le code de saisie "

 

[fhoest]

Difficile de répondre correctement sans un fichier avec des données non confidentielles svp.
il faut voir ou est placé le code .
moi j'ai simulé la sortie de TextBox, maintenant si c'est avec Valider il faut le déplacer.
et si il y a une vérification supplémentaire ,il faut un exemple de fichier.
dans le code on peut aussi enlevé", d as range"
A+

 

[salem.b]

Alors
merci fhoest 🙂
Le problème est résolue j'ai juste déplacer le code vers sub TB_Magasin_Change() ca fonctionne