Incrémenter un numéro de série

Michel68000

XLDnaute Junior
Bonjour à tous,

Un petit soucis de numéro de série que je devrais afficher automatiquement dans un textbox sur un user

J'ai ssayé pas mal de choses mais rien n'y fait si quelqu'un a une idee.

Merci et bonne journée à tous
 

PMO2

XLDnaute Accro
Re : Incrémenter un numéro de série

Bonjour,

Essayez le code suivant
Code:
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
TextBox1 = IncrementNum
End Sub

Private Function IncrementNum() As String
Dim S As Worksheet
Dim R As Range
Dim var
Dim i&
Dim T
Dim BigMois&
Dim BigNum&
'---
Set S = ActiveSheet
Set R = S.Range("a1:a" & S.[a1].End(xlDown).Row & "")
var = R
For i& = 1 To UBound(var, 1)
  T = Split(var(i&, 1), "/", -1)
  If IsNumeric(T(1)) Then
    If CLng(T(1)) > BigMois& Then BigMois& = CLng(T(1))
  End If
Next i&
'---
For i& = 1 To UBound(var, 1)
  T = Split(var(i&, 1), "/", -1)
  If IsNumeric(T(2)) Then
    If IsNumeric(T(1)) And CLng(T(1)) = BigMois& Then
      If CLng(T(2)) > BigNum& Then BigNum& = CLng(T(2))
    End If
  End If
Next i&
IncrementNum = "TEC/" & Format(BigMois&, "0#") & "/" & Format(BigNum& + 1, "00#")
End Function
 

Pièces jointes

  • Essai1_pmo.xlsm
    22.3 KB · Affichages: 29

Michel68000

XLDnaute Junior
Re : Incrémenter un numéro de série

Je me suis trompé dans mes explications c'étais les deux chiffres de l'année en cours qu'il me fallais et pas les mois.
J'ai essayé la proposition de camarchepas et ça m'affiche 2015 au lieu de 15 en remplaçant mois par année.
Si vous avez un moment. Merci encore
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof