cp4
XLDnaute Barbatruc
Bonjour,
Je voudrais vérifier que le contenu d'une textbox est bien constitué de 13 chiffres et que celui-ci n'est pas déjà présent dans ma base. J'ai fait ce code mais apparemment ne fonctionne pas.
En vous remerciant. Merci aussi pour vos critiques, commentaires, suggestions concernant ce fichier dans son ensemble. Le but de ce fichier est d'ajouter, supprimer ou modifier une petite bd de produits.
Je voudrais vérifier que le contenu d'une textbox est bien constitué de 13 chiffres et que celui-ci n'est pas déjà présent dans ma base. J'ai fait ce code mais apparemment ne fonctionne pas.
VB:
Private Sub TextBox1_Exit(ByVal cancel As MSForms.ReturnBoolean)
ligne = WS.Range("A" & Rows.Count).End(xlUp).Row + 1
Set Rng = WS.Range("A2:G" & ligne)
Set X = Rng.Columns(1).Find(What:=Val(code), LookAt:=xlWhole)
If Len(TextBox1) < 13 Then
MsgBox ("Vous devez saisir un numéro de code valide." & Chr(10) & Chr(10) & "Pour cela, saisissez 13 chiffres.")
cancel = True
End If
If Not X Is Nothing Then
MsgBox code & " existe déjà!"
Me.TextBox1 = "": Me.TextBox1.SetFocus
Exit Sub
Else
Me.TextBox2.SetFocus
End If
End Sub