Incrémentation numéro automatique dans text box d'un formulaire

Bonjour, et merci d'avance aux personne qui pourront m'aider, en effet j'essaye à ce jour de me familiariser avec excel vba, j'ai un petit projet de création de base avec formulaire

J'ai un point bloquant, je souhaiterai réussir a incrémenter un numéro automatique lors de la saisie d'une nouvelle fiche Fournisseur dans la txtbox : txtRéffournisseur
Je vous joint un exemple de la création de ma base :
- se compose d'un formulaire
- d'onglet multi page
- et de plusieurs zone

Ce numéro doit s'alimenter lors de l'ouverture du formulaire et aller puiser l'information dans la feuille clients_fournisseurs

D'avance merci

Cordialement
Tistyle

Bonjour,

un sujet qui semble similaire : https://www.developpez.net/forums/d1...rform-feuille/

ps : je n'ai pas ouvert ton classeur, comme beaucoup d'autres contributeurs

Merci pour ce renvois vers ce lien mais j'avais essayé ce code

J'ai bien essayé avec ce code mais rien ne se passe :

Code:

---

1 2 3

Private Sub FrmBdd_Initialize() Me.TxtReffournisseur.Value = Application.WorksheetFunction.Max(Worksheets("Clients_Fournisseurs").Columns(1)) + 1 End Sub

---

Bonjour,

Si FrmBdd est bien ce que je crois, il faut remplacer :

Code:

---

Private Sub FrmBdd_Initialize()

---

par :

Code:

---

Private Sub UserForm_Initialize()

---

Merci je suis un imbécile en effet :/
Par contre est il possible de paramétrer le format du nombre 1=>001

D'avance merci.

Voir du côté du format de cellule plutôt que de vouloir formater l'affichage dans un textbox...

Merci j avais bien mon format dans mon tableau mais je trouvais que c était plus propre de l avoir aussi dans le text box, mais c pas une priorité.

Je vous remercie pour vos retour rapide et à très vite je pense :pas

Code:

---

1 2 3

Private Sub UserForm_Initialize() Me.TextBox1.Value = Format(Application.WorksheetFunction.Max(Worksheets("Feuil1").Columns(1)) + 1, "000") End Sub

---

A++

Bonjour et merci pour votre retour,
Après quelques modifs des mes codes hier pour bloqué les saisie dans l'incrémentation du numéro je souhaiterais faire apparaitre dans ma listbox les résultat de mes saisie mais en ne faisant apparaitre que quelques colonnes lors de la validation sur enregistrer, j'ai renseigné des label pour montrer la mise en forme.
L'objectif sera par l'intermédiaire d'une recherche multi critère "textbox" en haut de pouvoir sélectionner la fiche en cliquant dessus et la faire apparaitre de nouveaux pour modification.

ci joint copie de la base en espérant avoir était clair dans mes propos

D'avance merci

Bonjour,

Autre sujet = nouvelle discussion.
Celle-ci est résolue.

c'est fait ;)