XL 2010 Série de factures de type mouvement

[hema300]

Bonjour
S'il vous plaît aidez-moi
Il existe une liste déroulante qui contient les transactions en fonction du type de facture, telles que décaissement/achat/vente/retour/solde de la première période/et sortant.


Chaque transaction de facture possède un code de série personnalisé en fonction du type de facture, mais dans la base de données il n'y a pas de transaction de facture sortante. Lorsque je souhaite commencer par la première transaction, le numéro de série du code de transaction (1) est ajouté après le message de requête msgbox.

 

[hema300]

Sub Cod_Sereal_Number()
On Error Resume Next
Set ww = Application.WorksheetFunction
ThisWorkbook.Activate
Dim old_name, new_name
old_name = Me.ComboBox1.Value
new_name = Me.TextBox1.Value
 fda = ww.CountIf(Sheet2.Range("b2:b2000"), old_name)
If fda <= 0 Then: MsgBox "The invoice type is not found in the database. Please enter serial number ( 1 )"
': UserForm1.TextBox1 = 1
Dim ws2 As Worksheet
    Set ws2 = Sheets("Data")
    Dim lastrow As Long
    lastrow = ws2.Cells(ws2.Rows.Count, "a").End(xlUp).Row
    Dim i As Integer
    Dim foundValue As String
    TextBox1.Value = ""
    For i = 2 To lastrow
        If ws2.Cells(i, 2).Value = ComboBox1.Value Then
            foundValue = ws2.Cells(i, 1).Value
        End If
    Next i
    TextBox1.Value = foundValue + 1
    Exit Sub
    UserForm1.TextBox1 = 1
 
End Sub