Inscrire les derniers chiffres d'une reference dans une textbox

Question

Toujours dans mon fichier exemple, j'ai créé une feuille F_Inventaire. Cette feuille me permet a partir de la saisie dans ma textbox "Code article", de trouver les éléments de ce code. Cette feuille fonctionne correctement. seulement, je suis obligé de rentrer la totalité de la référence de l'article. Cette référence est composé d'une valeur alphanumérique de 11 caractères, commençant par "N", suivi soit de 4 zero, ou 5 zero, et se terminant donc par un nombre respectivement de 5 chiffres ou 4 chiffres. Je souhaiterai que l'on saisisse seulement les derniers chiffres, et qu'apres la saisie soit inscris la totalité de la reference pour le code "Private Sub Code_Article_Exit" puisse faire sont travail. J’espère que j'ai été bon dans mon explication. merci encore de votre aide...

ThauThème · Accepted Answer

Bonjour Titi, bonjour le forum,

Remplace ton code par celui ci puis tape uniquement les derniers caractères (normalement 3 devraient suffire) :

Private OS As Worksheet
Private TV As Variant

Private Sub UserForm_Initialize()
DateInventaire = Format(Date, "dddd d mmmm yyyy")
Set OS = Worksheets("Stock")
TV = OS.Range("A1").CurrentRegion
End Sub

Private Sub Code_Article_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim I As Integer
Dim LI As Integer

For I = 3 To UBound(TV, 1)
    If Right(TV(I, 3), Len(Code_Article)) = Code_Article.Value Then LI = I: Exit For
Next I
Me.Code_Article = OS.Cells(LI, 3)
Me.Designation.Value = OS.Cells(LI, 4)
Me.Emplacement.Value = OS.Cells(LI, 10)
Me.Fabricant.Value = OS.Cells(LI, 13)
Me.Ref_Fabricant.Value = OS.Cells(LI, 14)
Me.Stock_Origine.Value = OS.Cells(LI, 6)
End Sub

Private Sub Fermer_Click()
' Ferme le formulaire
Unload Me
End Sub