[Excel-VBA] N° de Bl qui augmente de +1

Bonjour a tous

Je suis entrain de faire un petit projet sur excel pour des bon de livraison que je remplis grâce a un Userform et qui remplis un bon de livraison dans excel.

J'aimerais ne pas ecrire les N° des bon de livraison moi même a chaque nouvelle livraison.

c'est pour çà que je cherche comment faire pour qu'a chaque fois que j'ouvre l'userform ( avec un boutton ), un label ou un Textbox qui partirais donc de 0, augment a chaque nouveau BL.

du genre BL N°001 puis BL N°002 .... .

Si quelqu'un a une solution a proposer..

Merci beaucoup et bonne soirée

Bonsoir Micka67,

Pourrais-tu nous joindre ton fichier, sinon un fichier-type pour que nous cernions plus précisément ton problème ?

Cordialement,

Alex.

ok c'est fait

Donc quand tu clique sur "Nouveau Bon" aprés sur Bon de livraison, en haut a coter du " Bon de Livraison " j'aimerais qu'un textbox ou un label augmente de plus 1 a chaque fois que j'ouvre l'userform.

Bonsoir Micka67

Mince, je ne sais pas vraiment manier les userforms.

Après quelques tentatives je n'arrive pas à trouver de code satisfaisant. Pourtant ça a l'air simple à première vue (je dois passer à côté de quelque chose d'évident...)

Mes excuses, j'espère que quelqu'un saura trouver ce qu'il te faut.

Cordialement,

Alex.

Bonjour,

Pour continuer la numérotation il faut la préserver qcq part.

Comme rien ne semblait prévu je l'ai mis en Feuil1, à partir de I5

Et j'utilise le textbox49.

Code ajouté :

Private Sub UserForm_Initialize()
    TextBox49 = Application.Max(Feuil1.[I:I]) + 1
End Sub

et :

Private Sub CommandButton1_Click()
    Dim derlig As Long

    ' n° de retour
    With Feuil1
        derlig = .Cells(Rows.Count, "I").End(xlUp).Row
        .Cells(Application.Max(derlig + 1, 5), "I") = CLng(TextBox49)
    End With
    ...

eric