Afficher un numéro

Bonjour, je reviens encore vers vous pour votre aide.
Voilà, je fais une application qui consiste à remplir un formulaire :

Numéro
Nom
Prénom
Date de naissance
etc ...

On clique alors sur un bouton "ENREGISTRER" qui entre dans un fichier excel, sur une seule ligne les infos du formulaire :

Numéro Nom Prénom Age .......................

Mon problème c'est pour le numéro.
Ce numéro devrait apparaitre automatiquement sur le formulaire lors de sa création et devra correspondre au numéro de ligne où sera enregistré le formulaire.
Je ne sais pas comment faire apparaitre ce numéro sur le formulaire :
est ce que ça doit être une zone de texte, un intitulé ou autre ????
Je vous remercie par avance pour votre attention à ce message.

bonjour

tu as fait ton formulaire en vba ou tu utilises le formmulaire excel ?

en vba dans un userform

C'est archi faux mais c'est tout ce que j'ai :piou:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub TextBox1_Change()   ChDir "C:\Documents\Application" Workbooks.Open Filename:="C:\Documents\Application\Classeur2.xls"     While Cells(I + 1, 1).Value <> 0 I = I + 1 Wend   TextBox1.Value = I   end sub

---

moi je collerai cette formule dans la colonne ou se trouve le numéro dans ta feuille excel
=LIGNE(A1)

et le code suivant dans ton userform

Code:

---

1 2 3 4 5

Range("A1").Select Selection.End(xlDown).Select ligne_active = ActiveCell.Row Compteur = ligne_active + 1

---

j'espère que c'est assez clair

Heu, y'a pas de numéro entré dans la feuille excel.
Le numéro doit apparaitre sur le userform en comptant le nombre de lignes déjà "pleines" et en ajoutant +1 et ce numéro doit s'enregistrer une fois que l'utilisateur a choisi d'enregistrer.

en fait tu n'as pas besoin de mettre la formule dans ta feuille excel
le code vba suffit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub UserForm_Initialize() 'tu déclares tes variables ça peut servir Dim ligne_active As Integer Dim compteur As Integer 'là tu sélectionnes la dernière case non vide de ta feuille Range("A1").Select Selection.End(xlDown).Select 'ici tu mémorise le numéro de ligne de la case en question ligne_active = ActiveCell.Row 'enfin tu ajoutes un pour avoir le bon numéro compteur = ligne_active + 1 'et tu le colles dans une textbox TextBox1.Value = compteur End Sub

---

bonne continuation

Merci pour l'aide mais j'ai encore un petit problème.
SUr ma 1ère fenêtre, il y 3 boutons, NOUVEAU, RECHERCHER et QUITTER
Quand on clique sur RECHERCHER, le formulaire apparaît bien avec le numéro déjà inscrit mais lorsque je fais ENREGISTRER, j'ai paramétré pour que tous mes champs se remettent "à zéro" mais je ne sais pas "réinitialiser" le numéro.
au fait j'ai modifié quelque peu le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub UserForm_Initialize()   Dim compteur As Integer   ChDir "C:\Documents" Workbooks.Open Filename:="C:\Documents\TABLO.xls"     While Cells(I + 1, 1).Value <> 0 I = I + 1 Wend   compteur = I+ 1   TextBox1.Value = compteur End Sub

---

c'est bon, j'ai trouvé la solution grace à votre aide, merci beaucoup.