XL 2016 Tableau sans doublon

misteryann

XLDnaute Occasionnel
Bonsoir le Forum.

Le principe:
remplir un tableau de 6 colonnes sans lignes en doublon
Les colonnes A à D Peuvent être en doublon mais la colonne E peut avoir 4 valeurs (Amiante, plomb, Radon, Plans) pour un même bâtiment de la même ville, etc

Voici mon soucis:
Le code fonctionne pas trop mal sauf si je rentre la valeur "Néant" ou "État néant" dans la TB 2 qui renvoie cette valeur dans la colonne F et du coup détecte un doublon.

J'espère être explicite mais un exemple vaut mieux qu'un discours...

Merci.
Cordialement.
 

Pièces jointes

  • Lien sans doublon.xlsm
    31.7 KB · Affichages: 8

vgendron

XLDnaute Barbatruc
Bonjour

j'ai pas bien compris (voire pas du tout) à quoi sert ton Userfor
et pas bien compris ce que tu veux . mais.. au cas ou

VB:
Private Sub CommandButton3_Click()

If Me.TextBox2 = "" Then
    MsgBox "Saisir un Lien!"
    Me.TextBox2.SetFocus
    Exit Sub
End If

Set temp = f.[F:F].Find(Me.TextBox2, LookIn:=xlValues)
If Not temp Is Nothing Then
    If Not temp Like "*" & "Néant" Then
        If temp.Row <> ligne Then
            MsgBox "Ce Lien Existe déjà!"  ' SAUF si c'est le mot "Néant"
            Exit Sub
        End If
    End If
End If
  
End Sub
 

Discussions similaires

Réponses
3
Affichages
214
Réponses
2
Affichages
396

Statistiques des forums

Discussions
311 730
Messages
2 081 978
Membres
101 854
dernier inscrit
micmag26