XL 2016 Tableau sans doublon

misteryann · 22 Août 2022

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.

vgendron · 22 Août 2022

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

misteryann · 22 Août 2022

Bonsoir Vgendron.

L'usf sert de filtre et à rentrer les données.
Je vais rajouter des commentaires dans la feuille pour que cela soit plus explicite.

Cordialement.

XL 2016 Tableau sans doublon

misteryann

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

misteryann

XLDnaute Occasionnel

Discussions similaires

XL 2016 Tableau sans doublon

misteryann

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

misteryann

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency