Excel incrémentation automatique dans formulaire

[fresnais]

Bonjour à tous
j’aurais besoin d’un petit coup de main svp

J’aimerais dans mon formulaire Excel « formulaire Geometre »

Automatiser l’incrémentation du Numéro BDD actuellement fixé à 190030 (cf colonne B Feuille BIR_2019) en cliquant sur un bouton situé à coté du champ N°BDD du Formulaire

 

[Robert]

Bonjour Fresnais, bonjour le forum,

Supprime le bouton et rajoute ce code d'initialisation :

Private Sub UserForm_Initialize()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim Max As Long 'déclare la variable Max

Set O = Worksheets("BIR_2019") 'définit l'onglet O
Max = Application.WorksheetFunction.Max(O.Columns(2)) 'définit la variable Max (plus grande valeur de la colonne D)
Me.TxtBDD.Value = Max + 1 'renvoie dans la Textbox "TxtBDD" la valeur max incrémentée
End Sub

 

[fresnais]

Un grand merci Robert pour ta réactivité vis à vis de ma demande d'aide et de ton super code !
il marche du tonnerre
passe une bonne fin d'après midi
bien cordialement
jean