Numero auto VBA formulaire Excel

Bonjour,

Je souhaite générer un numéro auto dans un champs "ID" sur un formulaire excel, j'ai parcouru différents forum et je n'arrive pas à coder cette fonction.

Ce numéro doit être généré automatiquement lors de l'ouverture du formulaire et être retranscrit sur la feuille DATA comme les autres champs une fois la validation effectué.

Merci pour votre aide

86formulaire.zip (62.32 Ko)

Bonjour,

Le plus simple :

Me.TextBox_ID = Application.Max(Sheets("DATA").Columns("A")) + 1

Simple et efficace

Merci

Bonjour

et oui

et voir aussi tes combobox

A+

Maurice

Dim Sh As Object

Private Sub Userform_Initialize() 'Liste des demandeurs
Set Sh = Feuil1 ' = Sheets("DATA")
Set Sh1 = Sheets("Demandeur")
Set Sh2 = Sheets("Statut")
Set Sh3 = Sheets("Type_litige")
    ComboBox_Demandeur.List = Sh1.Range("A1:A" & Sh1.Range("A" & Rows.Count).End(xlUp).Row).Value
    ComboBox_Statut.List = Sh2.Range("A1:A" & Sh2.Range("A" & Rows.Count).End(xlUp).Row).Value
    ComboBox_Litige.List = Sh3.Range("A1:A" & Sh3.Range("A" & Rows.Count).End(xlUp).Row).Value
 TextBox_ID.Value = Application.Max(Sh.Columns(1)) + 1
End Sub
Rechercher des sujets similaires à "numero auto vba formulaire"