Renseigner formulaire avec Textbox

[mayoub72]

bonjour
svp si vous pouvez m'aider à établir un code pour remplir mon formulaire à partir d'un tableau , je m'explique;
j'ai un formulaire qui contient des textbox et comboox et qui sert à remplir un tableau dans une feuille (le tableau commence à partir de la ligne 7 de la feuille), jusque là ça va mais ce que je cherche à faire c'est qu'au moment de saisir une valeur dans textbox1 (textbox1 correspond à la première colonne du tableau et la valeur est unique, incrémentation de chiffre +1, 1,2,3,4,5,...........) les autres champs seront rempli automatiquement avec les données de la même ligne.
merci pour votre aide

 

[Robert]

Bonjour Mayoub, bonjour le forum,

Qu'écris-tu dans la TextBox1 ? Le texte avant le numéro contient-il toujours le même nombre de caractères ? Quelques exemples auraient été les bienvenus...

 

[mayoub72]

merci Robert pour votre aide, j'ai joint un fichier si ça peut t'aider, textbox1 correspont au n° du lot

 

[Robert]

Bonjour Mayoub, bonjour le forum,

C'eut été plus malin de mettre le fichier xlsm avec l'UserForm !...
Essaie comme ça :

Private Sub UserForm_Initialize()
Dim S As Worksheet

Set S = Worksheets("Source")
Me.TextBox1.Locked = True
Me.TextBox1.Value = Application.WorksheetFunction.Max(S.Columns(1)) + 1
End Sub