Discussion :

[tistyle]

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

[joe.levrai]

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

[tistyle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pijaku]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub FrmBdd_Initialize()

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub UserForm_Initialize()

[tistyle]

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.

[pijaku]

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