Numéro Automatique dans la textbox

Bonjour à tous,

Je viens vers vous j'ai une petite question à vous poser tout d'abord je vous explique ce que je suis en train de faire. J'ai un UserForm qui remplit un tableau avec plusieurs éléments tels que nom, prénom, date de naissance, adresse, ect... étant donné que je dois rentrer plusieurs personnes environ 2000 comment je peux demander à ma textbox de mettre un numéro automatique à chaque fois que je clique sur enregistrer.


Existe-t-il un tutoriel qui peut m'expliquer le fonctionnement ou si une personne a la patience de pouvoir m'en faire un mini tutoriel par exemple.

En vous remerciant d'avance de votre patience

Bonjour,

En gros tu voudrais le maximum des numéros déjà saisis +1 ?

oui SVP

Re,

Plage à adapter

Code:

---

1 2 3

function nouvnum() as long nouvnum = application.max(range("A1:A20000")) +1 end function

---

Quand tu veux initialiser un nouveau numero

Code:

---

textboxNum.text = nouvnum

---

Bonjour à tous comme je l'ai intitulé au tout début je commence dans le codage et j'ai demandé si il y avait un tutoriel pour pouvoir expliquer ce côté là que je recherche on m'a donné des lignes de code mais où dois-je les placer s'il vous plaît veuillez m'en excuser d'avance mais pour que je puisse comprendre le fonctionnement correctement en vous remerciant d'avance.

Bonjour,

Citation:

---

Envoyé par dubdub87000

Bonjour à tous comme je l'ai intitulé au tout début je commence dans le codage

---

Voir ces tutos sur le VBE :
http://silkyroad.developpez.com/VBA/DebuterMacros/
http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Et pour le VBA :
https://bidou.developpez.com/article/VBA/

Bonjour,

Le code de "function nouvnum" doit être placé dans un module

la ligne

Code:

---

textboxNum.text = nouvnum

---

doit être ajoutée dans le code du userform, à l'initialisation de la phase d'ajout

Comme je ne connais pas ton userform, et que ma boule de cristal est en réparation...

Je vous joins le fichier où j'essaye de mettre le code pour que cela fonctionne je vous remercie de votre aidePièce jointe 521974

Dans le module MdlNombreArtistes

corrige la fonction ainsi

Code:

---

1 2 3 4 5 6

Function nouvnum() As Long   nouvnum = Application.Max(Range("A3:A20000")) + 1     End Function

---

Dans le code du userform, enève les "TextNombreArtistes.Text = nouvnum" que tu as mis, et ajoutes à la suite

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() TextNombreArtistes.Text = nouvnum   End Sub

---

merci j'ai compris mon erreur