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

issam salem

XLDnaute Nouveau
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!!!
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

fhoest

XLDnaute Accro
Bonjour,
un exemple:
admettons que les TextBox soit nommés comme dans le code:
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

XLDnaute Nouveau
VB:
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 "
 
Ce message a été identifié comme étant une solution!

fhoest

XLDnaute Accro
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

XLDnaute Nouveau
Alors
merci fhoest :)
Le problème est résolue j'ai juste déplacer le code vers sub TB_Magasin_Change() ca fonctionne
 
Ce message a été identifié comme étant une solution!

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas