Insertion par Userform, rejeter un numéro existant - RESOLU

[VLMX]

Bonjour le forum,

J'aimerais savoir si il est possible lors de l'insertion de ligne à partir d'un Userform de questionner toutes les lignes existante pour que en cas d'ajout identique celui-ci nous rejette.

Pour être un peu plus clair, j'ai créer un Userform me permettant de créer une base de données de façon plus conviviale qu'un fichier excel basique.
Dans mon cas j'aimerais lors de l'insertion d'une ligne, que l'Userform regarde la colonne "Symbole", et dans le cas d'un Symbole déjà existant celui ci me dit "Symbole déjà existant".
Je sais pas trop si ma demande est faisable, je compte sur vous pour m'éclairer.

Merci d'avance !

 

[Jacky67]

Bonjour,
Dans la PJ, 2 exemples (au choix)
Un en quittant la box "Symbole"
L'autre en cliquant sur "Valider"

Reste à gérer les actions suite à ce doublon..
Bon courage

 

[Chris24]

Bonjour

UN exemple à mettre dans la procédure SymboleD1_BeforeUpdate

Private Sub SymboleD1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
' cherche si la valeur entrée existe déja dans la liste
Dim Valtest As String
Dim NbLig As Integer
Dim F1 As Worksheet

Set F1 = Sheets("Feuil2")

NbLig = F1.[A65000].End(xlUp).Row

 Valtest = Me.SymboleD1
 For Each c In Range("Feuil2!A2:A" & NbLig)
     If c Like Valtest Then
        MsgBox "l'item existe déjà"
        Exit Sub
     End If
 Next
End Sub

Bonne jounée

 

[VLMX]

Merci à vous pour vos réponses !
En effet la première solution fonctionne très bien pour un format numérique, par contre dés que l'on rentre des nombres cela ne fonctionne plus.
En revanche la deuxième solution fonctionne très bien pour les nombres, du coup l'ensemble des deux solutions convient parfaitement à ma demande

Merci a vous

 

[Jacky67]

Re...
Toutes les solutions fonctionnent si les cellules de saisie sont au format texte
Pour l'application il suffit de garder le code correspondant qui convient et supprimer les autres

 

[VLMX]

Re,

Effectivement avec la colonne en texte cela fonctionne parfaitement.

Merci de vos réponses!