Numero auto vba formulaire excel Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Y
Youyou1
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 25 janvier 2017
Version d'Excel : 2003

Message par Youyou1 » 10 avril 2018, 11:13

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
formulaire.xls
(478.5 Kio) Téléchargé 34 fois
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'466
Appréciations reçues : 207
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 10 avril 2018, 11:43

Bonjour,

Le plus simple :
Me.TextBox_ID = Application.Max(Sheets("DATA").Columns("A")) + 1
Y
Youyou1
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 25 janvier 2017
Version d'Excel : 2003

Message par Youyou1 » 10 avril 2018, 11:51

Simple et efficace
Merci
a
archer
Membre impliqué
Membre impliqué
Messages : 1'243
Appréciations reçues : 97
Inscrit le : 8 avril 2017
Version d'Excel : 2010

Message par archer » 10 avril 2018, 11:57

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message