XL 2019 Eviter les doublons

KHEROUBI · 25 Avril 2021

Bonjour internautes
J'ai deux feuilles, une pour la saisie des données , l'autre pour enregistrer ces données.
1/ J'ai fais un petit programme pour éviter les doublons sur le numéro de la facture mais sa ne marche pas bien.
2/ et comment faire pour la même chose du numéro du BL.
Merci pour l'aide

soan · 30 Avril 2021

Bonsoir KHEROUBI,

ton fichier en retour ; problème réglé !

avec cette ligne de code VBA :

Set cel = Worksheets([B2].Value).Columns(k).Find(ref, , -4163, 1, 1)

j'ai juste ajouté .Value ➯ [B2].Value

d'autre part, pour que tu n'aies plus besoin de saisir un apostrophe devant une donnée de Tableau3, j'ai mis le format Texte en K3:K4 ➯ tu peux saisir 0325700 au lieu de '0325700 (ça sera idem pour les données que tu ajouteras dans ce tableau)

soan

patricktoulon · 1 Mai 2021

Bonjour a tous
n'aurait on pas pu l’écrire comme suit finalement
a fin de ne pas avoir un numéro de BL et Numéro de facture identique dans le tableau

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column <> 1 And .Column <> 3 Then Exit Sub
        If .Count > 1 Then Exit Sub
        If .Value = "" Or [B2] = "" Then Exit Sub
        If WorksheetFunction.CountIf(Sheets([B2].Value).Range("A:B"), Target) = 0 Then Exit Sub
        MsgBox "le n° " & target & " est déjà saisi.", 48, "pas accepté :"
        Application.EnableEvents = 0: .Value = ""
        Application.EnableEvents = -1
    End With
End Sub

KHEROUBI · 1 Mai 2021

Bonjour patrickoulon,
merci pour votre programme mais il y a un ref qui n'est pas déclaré
merci

patricktoulon · 1 Mai 2021

Bonjour @KHEROUBI
oui oupss autant pour moi il n'est pas utile de savoir si c'est un bl ou un num facture
puisque il est testé en colonne A et B
il n'y a donc aucune chance de saisir 2 fois le même numéro dans le tableau en A:B
j'ai corrigé mille excuses

KHEROUBI · 1 Mai 2021

Merci Soan et patricktoulon pour vos réactions. Tous vos programmes sont bonnes

XL 2019 Eviter les doublons

KHEROUBI

XLDnaute Junior

Pièces jointes

soan

patricktoulon

XLDnaute Barbatruc

KHEROUBI

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

KHEROUBI

XLDnaute Junior

Discussions similaires