Incrémentation d'un numéro au démmarage de mon userform

Bonjour et merci a au vba addict qui seront m'aider dans la résolution de mon problème,voila j'ai un petit soucis, j'ai bien réussis à mettre en place au démarrage de mon userform des incrémentation automatique de numéros hors je n'arrive pas à faire la meme chose des qu'il y a un texte dans le numéro exemple :

Code:

---

1 2 3

Private Sub UserForm_Initialize()   Me.TxtReffournisseur.Value = Format(Application.WorksheetFunction.Max(Worksheets("Clients_Fournisseurs").Columns(1)) + 1, "0000")

---

=> numéro automatique +1 obtenus

Code:

---

Me.CBxCmdRefCmd.Value = Format(Application.WorksheetFunction.Max(Worksheets("Suivis_Commande").Columns(1)) + 1, "C00000")

---

=> il me sort 31/12/189900000 alors que je souhaiterais C00002 pour référence de commande 2 puis après C00003 pour référénce de commande 3 etc


C'est infos sont prélévé d'un tableau source sur une page Excel, je me doute que le problème provient du faite d'avoir la lettre C mais qui est primordial pour moi.

Si vous pouvez m'aider je suis preneur

Encore merci

un petit test avec des variables

Code:

---

1 2 3

test = Format(Application.WorksheetFunction.Max(Worksheets("Clients_Fournisseurs").Columns(1)) + 1, "0000")   test2 = "C" & test

---

Je n'arrive pas à incrémenter la variable

je vous joint le code sources :

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize()   Me.TxtReffournisseur.Value = Format(Application.WorksheetFunction.Max(Worksheets("Clients_Fournisseurs").Columns(1)) + 1, "0000") Me.TxtCréele.Value = Format(Now, "yyyy/mm/dd") 'Procédure permettant de mettre la date du jour dans ma txtbox Fournisseur client Me.TxtACréele.Value = Format(Now, "yyyy/mm/dd") 'Procédure permettant de mettre la date du jour dans ma txtbox Base Articles Me.TXtCmdDate.Value = Format(Now, "yyyy/mm/dd") 'Procédure permettant de mettre la date du jour dans ma txtbox Commande Me.CBxCmdRefCmd.Value = Format(Application.WorksheetFunction.Max(Worksheets("Suivis_Commande").Columns(1)) + 1, "C00000") => données à déclaration de varibale End Sub

---

J'ai le bon format d'affichage mais pas l'ajout du numéros mes valeurs reste C00001, j'ai simuler avec une données C00002 de mon tableau mais au démarrage de mon userform la valeur reste C00001

Code:

---

1 2	test = Format(Application.WorksheetFunction.Max(Worksheets("Suivis_Commande").Columns(1)) + 1, "00000") Me.CBxCmdRefCmd.Value = "C" & test

---

Rebonjour

Code:

---

1 2 3 4

vérifie que Me.TxtReffournisseur.Value s'incrémente bien   si oui essaye en 5 éme ligne : Me.CBxCmdRefCmd.Value = "C" & Format(Application.WorksheetFunction.Max(Worksheets("Clients_Fournisseurs").Columns(1)) + 1, "0000")

---

quand tu utilise

Code:

---

Me.CBxCmdRefCmd.Value = Format(Application.WorksheetFunction.Max(Worksheets("Suivis_Commande").Columns(1)) + 1, "C00000")

---

comme tu pointe sur une colonne texte, je pense que la fonction max ne fonctionne pas.

Idem, juste pour info c'est la CBx que je me modifie par la réf fournisseur.
ci joint code modifié comme demandé mais pas d'évolution toujour affrichage C00001 au démarrage de l'userform alors que dans la base d'origine j'ai déjà 2 commande de renseigné soit avoir un résultat affiché de C00003

Code:

---

1 2 3 4 5

Me.TxtReffournisseur.Value = Format(Application.WorksheetFunction.Max(Worksheets("Clients_Fournisseurs").Columns(1)) + 1, "0000") Me.TxtCréele.Value = Format(Now, "yyyy/mm/dd") 'Procédure permettant de mettre la date du jour dans ma txtbox Fournisseur client Me.TxtACréele.Value = Format(Now, "yyyy/mm/dd") 'Procédure permettant de mettre la date du jour dans ma txtbox Base Articles Me.TXtCmdDate.Value = Format(Now, "yyyy/mm/dd") 'Procédure permettant de mettre la date du jour dans ma txtbox Commande Me.CBxCmdRefCmd.Value = "C" & Format(Application.WorksheetFunction.Max(Worksheets("Suivis_Commande").Columns(1)) + 1, "00000")

---

Oui c'est bien ce qui me semblait mais quel solution pourrais-je envisagé sachant que mes données seront référence par au moin une lettre dans le code ?

bonjour,
dernière ligne dans la base d'origine NumCom="C00002"
ligne suivante = "C" & right(NumCom,5)+1

@+JP

bonjour et désolé pour mon retour tardif, euh je ne comprend qu'entendez vous par base d'origine ?
Je pensais pouvoir juste ajouter +1 un code alfanumérique dans ma ligne de code

bonjour,

Citation:

---

ci joint code modifié comme demandé mais pas d'évolution toujour affrichage C00001 au démarrage de l'userform alors que dans la base d'origine j'ai déjà 2 commande de renseigné soit avoir un résultat affiché de C00003

---

en fait tu regarde le dernier numéro et tu ajoutes +1
@+JP

Bonjour,
je pense qu'il est nécessaire de rajouter une colonne identique a celle comprenant par exemple c00001 qui contiendrait 1 puis 2 la ligne en dessous, etc. ensuite avec une fonction BDmax+1 on trouverais le nouveau numéro auquel on rajouterais le c devant. Une partie se passe direct sur la feuille et une partie en VBA. C'est pas très orthodoxe, mais chez moi ça marche. Voir dossier joint. Il y a des macros dedans, à vous a l'adapter a votre document. Attention au respect des formules et des formats.
Cordialement