Discussion :

[dubdub87000]

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

[tototiti2008]

Bonjour,

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

[dubdub87000]

oui SVP

[tototiti2008]

Re,

Plage à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Quand tu veux initialiser un nouveau numero

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textboxNum.text = nouvnum

[dubdub87000]

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.

[Patrice740]

Bonjour,

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/

[tototiti2008]

Bonjour,

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

la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[dubdub87000]

Je vous joins le fichier où j'essaye de mettre le code pour que cela fonctionne je vous remercie de votre aideRépertoire des artistes 1.0.1.xlsm

[tototiti2008]

Dans le module MdlNombreArtistes

corrige la fonction ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Initialize()
TextNombreArtistes.Text = nouvnum
 
End Sub

[dubdub87000]

merci j'ai compris mon erreur