Attribué automatiquement un numero à chaque enregistrement

Modeste

XLDnaute Barbatruc

• 14 Septembre 2012

• #2

Re : Attribué automatiquement un numero à chaque enregistrement

Bonjour pronar6 et bienvenue,

Il doit y avoir bon nombre d'exemples sur le forum ... mais pour ne pas me contenter de cette courte intervention, il me semble qu'on pourrait ajouter

VB:

Private Sub UserForm_Initialize()
TextBox11.Text = Format(Application.Max(Sheets("BASE").Range("A5:A" & Sheets("BASE").Range("A" & Rows.Count).End(xlUp).Row)) + 1, "0000")
End Sub

Ceci afficherait le numéro souhaité à chaque "chargement" du UserForm

Au moment de valider l'enregistrement, un simple [A5] = TextBox11.Text devrait suffire (avec un format personnalisé en colonne A)

Ceci dit, ne vaudrait-il pas mieux compléter les cellules lors du clic sur le bouton "Valider l'enregistrement" plutôt qu'au moment où tu remplis le formulaire?

 

Vote positif 0 Vote négatif

P

pronar6

Guest

• 14 Septembre 2012

• #3

Re : Attribué automatiquement un numero à chaque enregistrement

Bonjour Modeste,

Merci pour votre aide. Je viens d’essayer le code, seulement à chaque validation la numérotation ne change pas, elle demeure 0001.
Bien sûr que c'est plus intéressant que les données apparaissent sur le classeur après le clic sur le bouton "Valider l'enregistrement". A propos que me proposez-vous ?

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 14 Septembre 2012

• #4

Re : Attribué automatiquement un numero à chaque enregistrement

Bonsoir,

😕 tu as ajouté la Sub UserForm_Initialize() ... et tu as aussi ajouté l'autre instruction que je te proposais?? dans ta Sub CommandButton6_Click(), juste avant l'instruction Rows("5:5").Select, ajoute [A5] = TextBox11.Text
Le n° affiché dans le TextBox11 de ton UserForm s'ajoutera en A5, chaque fois que tu cliqueras sur "Valider l'enregistrement"

 

Vote positif 0 Vote négatif

P

pronar6

Guest

• 14 Septembre 2012

• #5

Re : Attribué automatiquement un numero à chaque enregistrement

Merci modeste, ça marche now !
En fait j'avais placé la 2em instruction sur la textbox11 au lieu de la commandbutton.
Avez vous une solution pour que les données apparaissent sur le classeur après le clic sur le bouton "Valider l'enregistrement" et non pendant la saisie comme vous l'avez constaté ?

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 14 Septembre 2012

• #6

Re : Attribué automatiquement un numero à chaque enregistrement

Re-bonsoir,

Avez vous une solution ...

Cliquez pour agrandir...

Ben ... la même chose 🙂 placer tes instructions qui permettent le transfert des données du UserForm dans les cellules, dans la Sub CommandButton6_Click()

 

Vote positif 0 Vote négatif

P

pronar6

Guest

• 14 Septembre 2012

• #7

Re : Attribué automatiquement un numero à chaque enregistrement

Merci beaucoup Modeste pour votre aide.
Bonne soirée !

 

Vote positif 0 Vote négatif