* vérification code saisie unique,sur modèle d'un post ancien du forum *

[David69400]

Bonjour le forum !

Ci-joint un post concernant la vérification que la saisie d'un item n'a pas déjà été faite.
C'est pas un sujet bien nouveau, donc j'ai cherché sur le forum et trouvé un code qui me correspondait à peu près

ww.excel-downloads.com/forum/209830-controle-sur-user-forme.html?highlight=v%E9rifier+q%27une+saisie+n%27est+d%E9j%E0+pr%E9sente+dans+colonne

et j'ai essayé de l'adapter avec plus ou moins de bonheur, plutôt moins pour le moment,
puisque cela ne fonctionne pas jusqu'au bout...

VOilà, je m'en remet à un senseï qui voudra bien m’aider.

Tout est dans l'onglet explication ;

Un grand merci par avance !

David

 

[Staple1600]

Re : * vérification code saisie unique,sur modèle d'un post ancien du forum *

Bonsoir à tous

David69400
Pour infos
Tu peux formater les liens vers les discussions que tu cites en sélectionnant ton mot ou ta phrase et en cliquant sur cette icône encadrée de rouge

Ce qui donnera par exemple
Lien vers la discussion citée dans le précédent message de David

 

[Robert]

Re : * vérification code saisie unique,sur modèle d'un post ancien du forum *

Bonsoir David, Staple, bonsoir le forum,

En pièce jointe ton fichier modifié. La vérification se fait de suite à la sortie de la TextBox2 avec le code ci-dessous (t'as vu, je l'ai même aeré comme toi) :

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'à la sortie de la TextBox2

Dim R As Range
'déclare la variable R (Recherche)

If Me.TextBox2.Value = "" Then Exit Sub
'si la TextBox2 est vide, sort de la procédure

Set R = COL2.Find(Me.TextBox2.Value, , xlValues, xlWhole)
'définit la recherche R

If Not R Is Nothing Then
'condition : si il existe au moins une occurrence trouvée

    MsgBox "Le code que vous avez saisi est déjà utilisé. Vous devez entrer un code différent."
    'message
    
    Cancel = True
    'empêche la sorttie de la TextBox
    
    With Me.TextBox2
    'prend en compte la TextBox2
    
        .SelStart = 0
        'début de la sélection
        
        .SelLength = Len(.Value)
        'longueur de la sélection
        
    End With
    'fin de la prise en compte de la TextBox2

End If
'fin de la condition

End Sub

J'ai aussi modifié le code de l'initialisation pour une ComboBox1 sans doublons...
Le fichier :

 

[David69400]

Re : * vérification code saisie unique,sur modèle d'un post ancien du forum *

Bonjour le Forum, Bonjour JM,

merci pour cette information de formatage des liens que j'utiliserai à l'avenir

Bon we,

David

 

[David69400]

Re : * vérification code saisie unique,sur modèle d'un post ancien du forum *

Bonjour le Forum, Bonjour Robert;

Alors là, SUPER !!!

Y'a plein de nouvelles fonctions VBA que je dois encore m’approprier, mais cela va aller vite vu que je vais l'appliquer sur la prochaine textbox des libellés.

Ce qui est vraiment bien fait et pédagogique, c'est les lignes explicatives que tu as pris le temps de mettre et j'apprécie énormément. En plus, cerise sur le gâteau, le code est "aéré", ce qui veut dire pour moi très facilement lisible !

Je te souhaite un agréable we,


David