Macro pour incrémenter un numéro automatique (VBA)

Bonjour à tous,

Après plusieurs recherches sur le net, je me permets de demander votre aider en VBA.

Dans mon tableau Excel, j'ai une colonne ref_facture

J'ai crée un userform, pour ajouter des nouvelles factures et dans mon Textbox13 ce trouve ma ref_facture.

Voici ce que je voudrais ; quand j'ouvre mon userforme, le numéro de facture ce créer dans ma textbox13 a la suite, par exemple la le n° fac_08

Voici mon code mais ça ne fonctionne pas .. il détecte pas les autres références, il m'ajoute juste "1"

Private Sub UserForm_Initialize()

    Me.TextBox13.Value = Application.WorksheetFunction.Max(Worksheets("Feuil1").Columns(1)) + 1

End Sub

Si vous avez une solution à m'apporter.

Merci à vous

Bonjour antoto659, le forum,

A tester:

Private Sub UserForm_Initialize()
 Dim c, dl%

  With Sheets("Feuil1")
   dl = .Range("A" & Rows.Count).End(xlUp).Row
    c = Split(.Range("A" & dl), "_")
     Me.TextBox1 = "fac_" & c(UBound(c)) + 1
  End With
End Sub

Cordialement,

Bonjour xorsankukai,

C'est parfait !

Merci beaucoup

Antoto659