Discussion :

[bboy-eazy]

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 :

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

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

[Philippe Tulliez]

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é

[bboy-eazy]

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 :

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

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 :

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

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

[Philippe Tulliez]

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

Code :

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

1
2
3
 Dim Num As Long
 Num = 1000
 MsgBox Len(Str(Num))

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

Code :

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

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