Manipulation de chaine pour trouver un incrément

Bonjour à tous,
je me casse la tête sur un truc qui doit être tout con...

Je cherche à toruver le numéro d'incrément suivant à l'ouverture d'une userform.
L'incrément est de ce format suivant:
a = année
n = numéro incrément
aaaa-nnn si le numéro est <1000
aaaa-nnnn si le numéro est >= 1000

le problème c'est que dans mon code, je split pour trouver le nombre et j'ajoute un mais comme je traite ceci en nombre, excel me convertie par exemple 002 en 2 et du coup mon incrément prend ce format:
aaaa-n si n<10
aaaa-nn si n>=10

j'ai donc essayer de toruver ce code mais il ne fonctionne pas si le numéro d'avant se termine par 9, je m'explique,

si l'ancien numéro est 2016-009, je veux avoir dans ma textbox 2016-010 et mon code me donne 2016-0010

pour ilustrer tout ceci voici quelques exemples de ce que je voudrais avoir:
avant: 2016-001 après: 2016-002
avant: 2016-009 après: 2016-010
avant: 2016-011 après: 2016-012
avant: 2016-019 après: 2016-020
avant: 2016-999 après: 2016-1000
avant: 2016-1012 après: 2016-1013

J'espère avoir été clair

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub UserForm_Initialize() Dim montableau() As String JD = Date DL = ThisWorkbook.Worksheets("Liste FIC").Cells(Rows.Count, 1).End(xlUp).Row + 1 montableau = Split(ThisWorkbook.Worksheets("Liste FIC").Cells(DL - 1, 1), "-") Me.TextBox8.Value = JD If DL = 3 Then INCREMENT = Year(JD) & "-" & "001" Me.TextBox1.Value = INCREMENT Else Select Case Len(montableau(1)) Case 3 If Mid(Right(montableau(1), 2), 1, 1) = 0 And Mid(Right(montableau(1), 3), 1, 1) = 0 Then INCREMENT = Year(JD) & "-00" & montableau(1) + 1 Me.TextBox1.Value = INCREMENT End If Case 4 INCREMENT = Year(JD) & "-" & montableau(1) + 1 Me.TextBox1.Value = INCREMENT End Select End If End Sub

---

merci d'avance de votre aide

Bonjour,
La fonction Format en VBA comme la fonction Texte en Exel permet de convertir un nombre en texte.
A lire La fonction Format et ses variantes dans VBA de Jean-Philippe André

Bonjour Phillipe et merci pour l'intéret que tu portes à la question.

Je connais la fonction format et j'ai déjà voulu bidouiller avec ceci mais impossible de trouver le bon code pour dire qu'il me faut 3 chiffre si le nombre est composé de 3 chiffres maximum

Code:

---

Format(montableau(1) + 1, "@")

---

ne fonctionne pas pourtant il convertit en texte mais j'arrive pas à lui dire qu'il me faut 3 chiffre obligatoirement
c'est juste pour ma culture personnelle


car j'ai trouvé une alternative qui fonctionne:
- je convertis la valeur de montableau(1) en nombre et fait le calcul de l'incrément +1 (donc si j'avais 2016-009, montableau(1) vaut 009 et la convertion + 1 donne 10)
- de la je fait le test sur la longueur de la chaine renvoyée par montableau(1) et suivant sa longueur, j'applique mes cas
-> longueur = 1 alors format: année & "-00" & montableau(1)
-> longueur = 2 alors format: année & "-0" & montableau(1)
-> longueur = 3 alors format: année & "-" & montableau(1)
-> longueur = 4 alors format: année & "-" & montableau(1)
dans l'exemple la longueur de 10 est 2 donc j'applique le cas 2 et cela me sort bien 2016-010

c'est une alternative qui est un peu de la bricole je pense mais cela fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub UserForm_Initialize() Dim montableau() As String Dim test As String JD = Date DL = ThisWorkbook.Worksheets("Liste FIC").Cells(Rows.Count, 1).End(xlUp).Row + 1 montableau = Split(ThisWorkbook.Worksheets("Liste FIC").Cells(DL - 1, 1), "-") Me.TextBox8.Value = JD If DL = 3 Then INCREMENT = Year(JD) & "-" & "001" Me.TextBox1.Value = INCREMENT Else montableau(1) = CLng(montableau(1)) + 1 Select Case Len(montableau(1)) Case 1 INCREMENT = Year(JD) & "-00" & montableau(1) Me.TextBox1.Value = INCREMENT Case 2 INCREMENT = Year(JD) & "-0" & montableau(1) Me.TextBox1.Value = INCREMENT Case 3 INCREMENT = Year(JD) & "-" & montableau(1) Me.TextBox1.Value = INCREMENT Case 4 INCREMENT = Year(JD) & "-" & montableau(1) Me.TextBox1.Value = INCREMENT End Select End If End Sub

---

Bonjour,
Voir du côté des fonctions de la catégorie Texte : Len, String et Str

Code:

---

1 2 3

Dim Num As Long Num = 1000 MsgBox Len(Str(Num))

---

Affichera 5 (le nombre de caractères + signe)

Code:

---

MsgBox String(4, "0")

---

renverra "0000"

Pour l'incrémentation des numéros de facture, j'ai développé une fonction voir Excel – Incrémenter un numéro de facture, devis, à l’aide d’une fonction personnalisée