Numéro de série compliqué

13GIBE59

XLDnaute Accro

• 16 Mai 2016

• #2

Re : Numéro de série compliqué

Bonjour Michel,

Tu dois aller chercher la dernière valeur de la colonne A, donc en vba on va en bas et on remonte :

derchif = Range("A65536").End(xlUp)

textbox1.value = "CUI/" & Format(Now, "yy") & derchif + 1

JB

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 16 Mai 2016

• #3

Re : Numéro de série compliqué

Bonjour,

A tester

Code:

Private Sub UserForm_Initialize()
Dim i As Integer
Dim index As Integer
i = Sheets("feuil2").Range("A65536").End(xlUp).Row
index = Right(Cells(i, 1), 3)
TextBox1.Value = "CUI/" & Format(Now, "yy") & "/" & Application.Text(index + 1, "00#")

End Sub

 

Dernière modification par un modérateur: 16 Mai 2016

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 16 Mai 2016

• #4

Re : Numéro de série compliqué

Bonjour Michel_91380, 13GIBE59,

Si en colonne A on a des valeurs de type "CUI/16/006" (ce que j'ai cru comprendre), il faudrait un truc du genre:

Code:

derchif = Right(Range("A65536").End(xlUp), 3)
TextBox1.Value  = "CUI/" & Format(Now, "yy") & "/" & Format(derchif + 1, "00#")

mais si les 3 derniers chiffres doivent passer à 4 (1000 et +) ce système ne fonctionnera pas.

A+

 

Vote positif 0 Vote négatif

M

Michel_91380

XLDnaute Nouveau

• 16 Mai 2016

• #5

Re : Numéro de série compliqué

merci à vous deux, j'essaie d'adapter la solution de JB mais ça ne fonctionne pas l'appli me marque incompatibilité de type.La solution à M12 ne fonctionne pas non plus je pense que ça viens du fait que je n'utilise pas d'userform.

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 16 Mai 2016

• #6

Re : Numéro de série compliqué

Re,

Teste avec un textbox dans la feuille

 

Pièces jointes

• Classeur1.xlsm

  17.9 KB · Affichages: 32
• Classeur1.xlsm

  17.9 KB · Affichages: 30

Vote positif 0 Vote négatif

M

Michel_91380

XLDnaute Nouveau

• 16 Mai 2016

• #7

Re : Numéro de série compliqué

Merci à vous tous pour votre gentillesse et votre patience, j'ai réussi à adapter la solution de Paf à mon appli tout roule merci encore

 

Vote positif 0 Vote négatif