Discussion :

[tistyle]

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 :

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

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 :

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

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

[a_diard]

un petit test avec des variables

Code :

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

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

[tistyle]

Je n'arrive pas à incrémenter la variable

je vous joint le code sources :

Code :

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

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

[tistyle]

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 :

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

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

[a_diard]

Rebonjour

Code :

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

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 :

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

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.

[tistyle]

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 :

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

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 ?