Numéro automatique [Résolu]

Signaler
Messages postés
23
Date d'inscription
dimanche 17 avril 2005
Statut
Membre
Dernière intervention
4 décembre 2006
-
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
Bonsoir,
Pouvez vous me dire comment faire un numéro automatique dans un UserForm.
C'est a dire quand j'ouvre UserForm, dans TextNuméro il faut que celui ci est un numéro automatique(000001 puis 000002 puis 000003 etc... à chaque ouverture de cette UserForm)


Momone21

2 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonsoir,

Cela peut être réalisé, mais précisément comme tu veux.

Pour faire cela, tu doit placer un numéro dans une cellule (A1 par exemple), mais si tu tappes 00001, Excel indiquera 1

Ensuite dans UserForm.Activate, tu mets



Private Sub UserForm_Activate()

TextBox1.Text = Val(Range("A1")) + 1

Range("A1").Value = Val(TextBox1)

End Sub

De cette manière le textbox, prend la valeur de la cellule A1, ajoute 1 à cette valeur et la renvoie dans la cellule.



jpleroisse
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
Utilises un .ini qui te permettras de stocker la derniere valeur ex : 00000001.
A Chaque ouverture de ta UserForm tu vas chercher cette valeur tu l'incrementes de 1 et tu l'affiche dans ta cellule.
Lors du Fermeture e ta UserForm tu Enregistres cette valeur dans le.ini à la place de l'ancienne.

It@li@