Incrémenter un numéro de série

[Michel68000]

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

 

[Michel68000]

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

Un oubli j'avais préparé un petit fichier et apparemment il n'est pas passé.

 

[camarchepas]

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

Bonsoir ,

Peut être un truc comme cela

 

[PMO2]

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

Bonjour,

Essayez le code suivant

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

 

[Michel68000]

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

Merci messieurs c'est tout à fait ce que je cherchais et dire que j'ai fouaré tout mon week end pour ça.
Bonne soirée

 

[Michel68000]

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

 

[camarchepas]

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

Comme cela, ça devrait le faire :

TextBox1 = "TEC/" & Right(Year(Date), 2) & "/" & Format(Split(Range("A" & LigneFin), "/")(2) + 1, "000")

 

[Michel68000]

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

Merci Camarchepas tout fonctionne normalement.Quelle passion vous avez pour ce forum je suis toujours étonné de voir la rapidité à laquelle vous répondez un grand chapeau Messieurs