Numéro automatique
Résolu
Momone21
Messages postés
23
Date d'inscription
dimanche 17 avril 2005
Statut
Membre
Dernière intervention
4 décembre 2006
-
25 mai 2005 à 00:40
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 25 mai 2005 à 13:23
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 25 mai 2005 à 13:23
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
25 mai 2005 à 01:44
25 mai 2005 à 01:44
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
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
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
25 mai 2005 à 13:23
25 mai 2005 à 13:23
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@
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@
