Probleme avec une Macro (Doublon)

[WDAndCo]

Bonjour le forum, je bricole un suivis de stock avec des bouts de code pris sa et la sur ce forum.
Mon souci du jour je voudrait que lorsque on entre un nouveau symbole (Texbox1) qui n'est pas forcement numérique, lorsque sa longueur =8 il va vérifier si le symbole n'est pas déjà dans la base en colonne A de la feuille Base. Ci-joint le remplissage de TextBox1 et la Macro doublon qui ne trouve pas de doublon. Merci d'avance de votre aide.

Dominique

Private Sub TextBox1_Change()
TextBox1.MaxLength = 8
TextBox1.AutoTab = True
'On Error Resume Next
'If Not IsNumeric(Right(TextBox1, 1)) Then
'MsgBox "Le caractere saisie n'est pas valide"
'TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
'End If
If TextBox1.TextLength = 8 Then Call Doublon
Call Deprotege
Range("M1") = TextBox1
Range("A2") = TextBox1
TextBox4 = Range("B2")
TextBox5 = Range("C2")
End Sub

Sub Doublon()
Label1 = "Vérification du symbole en cours !"
Dim p As Integer
x = 0
p = Range("A65536").End(xlUp).Row

For j = 3 To p - 3
If Sheets("Base").Cells(j, 1)= TextBox1 Then
Label1 = "Ce symbole est déja en mémoire en ligne " & j & " :"
Else
Label1 = "Ce symbole n'est pas en mémoire : "
End If
Next j

End Sub

 

[pierrejean]

Re : Probleme avec une Macro (Doublon)

bonjour WDandCo

tu peux t'inspirer de ceci qui fonctionne

nota: il m'a fallu un certain temps pour realiser le fichier et
quelques secondes pour la mise au point

puis-je te suggerer pour l'avenir l'idée de creer toi même le fichier exemple ??

 

[WDAndCo]

Re : Probleme avec une Macro (Doublon)

Merci Pierre Jean, cela fonctionne très bien, mais a quoi correspond le : CStr(Sheets("Base").Cells(j, 1)) ? Juste pour en savoir un peut plus ce soir ! Et un petit plus comment mettre en gras, en couleur le Label1 ?

D'avance merci

 

[pierrejean]

Re : Probleme avec une Macro (Doublon)

Re

Le cstr ici est necessaire puisque l'on cherche a comparer un chiffre et le contenu d'une textbox qui est necessairement un texte
il fait la conversion du chiffre en texte
pour ce qui est du label vois le fichier