Incrémentation automatique dans un formulaire

[barbin]

Bonjour à tous.
Je souhaiterai lors de la création d'une nouvelle société grâce au formulaire que j'ai créé, lui donner un numéro enregistrement automatique qui suit le précédent.
Et comment fait on pour gérer les options boutons (oui ou non) dans le formulaire ?
Ci joint le fichier.
Cordialement. et Merci à vous

 

[eriiic]

Bonjour,

Quoi ? Où ?
A tout hasard :

n = Application.Max(Sheets("entreprise").Columns(1)) + 1

eric

 

[barbin]

Dans l'Userform1 du fichier joint, lors je click sur le bouton CREER, je souhaiterai que le le champs N° en haut à gauche de l'Userform1 s’incrémente de 1, et transfert les données dans le tableau entreprise.

 

[eriiic]

Si c'est le n° présent en A et bien remplis ton textbox avec ce que je t'ai indiqué.
Sinon dit où on peut trouver le dernier n° attribué.

 

[bbb38]

Bonjour barbin, eriiiic, le forum,
Fichier modifié : Avec la solution d’eriiiic, et en dessous une autre solution (mise en commentaire, car moins performante). Je me suis permis d’insérer un bouton de commande afin de lancer directement le formulaire.
Avis personnel : Modifier la présentation du formulaire, pour permettre de choisir l’option désirée : Création d’une entreprise – Modifier les données (en excluant les données non modifiables) – Supprimer.
Après sélection de l’option, le formulaire permettra de valider les données.
Cordialement,
Bernard

P.S. Merci eriiiic pour le code. Je commence très bien la journée, en perfectionnant mon apprentissage VBA (même, si maintenant, je vais fermer mes petits yeux).

 

[barbin]

Un grand MERCI à vous deux. Les deux codes fonctionnent parfaitement.
Bonne journée.