Private Sub Cbn_Enregistrer_Click()
Dim NLig As Long, NumDossier As Long
' Avec la feuille
With Sheets("Feuil1")
' Récupérer le numéro de la prochaine ligne vide
NLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
' Poser la question
If MsgBox("Voulez-vous Valider cet enregistrement? " & vbTab, vbYesNo) = vbYes Then
NumDossier = Me.TextBox1.Value
.Range("A" & NLig).Value = NumDossier
' Trier les numéros
.Range("A1:A" & NLig).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End With
' Décharger l'USF
Unload Me
End Sub
Private Sub ComboBox1_Change()
Dim tablo, i As Long
If ComboBox1.ListIndex = -1 Then TextBox1 = "": Exit Sub
tablo = Feuil1.Range("A1:A2", Feuil1.[A65536].End(xlUp))
For i = 1 To UBound(tablo)
If Right(tablo(i, 1), 4) = ComboBox1 Then
tablo(i, 1) = Val(Left(tablo(i, 1), Len(tablo(i, 1)) - 4))
Else
tablo(i, 1) = 0
End If
Next
TextBox1 = Format(Application.Max(tablo) + 1, "0000") & ComboBox1
End Sub