Récupérer et incrémenter valeur textbox (Texte+Chiffre)

[Jeremy992]

Bonjour le forum,

Voila je reviens vers vous car je bloque sur quelque chose qui me parait pourtant simple :/

Je remplie une base de données avec un USF. Pour le moment pas de problème.

Dans ma Textbox7 je cherche à récupérer la dernière cellule remplie de la colonne B, toujours pas de problème:

TextBox7.Value = Sheets("BDD").Range("B65000").End(xlUp).Rows 'alimente la ListBox1

La où je bloque c'est lorsque je veux incrémenter cette valeur... Qui est du type "NC"+"quatre chiffre", ex:NC0001, NC0002, etc...

J'aimerais par ailleur pousser un peux plus loin la réflexion, en récupérant l'année en cours. Je m'explique, il serait intéréssant d'avoir une cellule de type "NC"+"numéro de l'année en cours"+quatre chiffre".

Par exemple nous somme en 2014 donc : NC140001, en 2015 : NC150001 et ainsi de suite.


Voila j'espère être assez précis et je vous remercie du temps que vous m'accorderez.

PS: Ci-joint mon fichier qui est en cours de construction

 

[Jeremy992]

Re : Récupérer et incrémenter valeur textbox (Texte+Chiffre)

Petit Maj de mon fichier, avec les textbox renomer dans le bon ordre afin d'éviter de ce perdre

 

[PMO2]

Re : Récupérer et incrémenter valeur textbox (Texte+Chiffre)

Bonjour,

Essayez ce code modifié

Private Sub UserForm_Initialize()
Dim i As Byte 'déclare la variable I (incrément)

Set O = Sheets("BDD") 'définit l'onglet O
'définit la première ligne vide PLV de la colonne 1 (=A) (2 si A2 est vide, sinon la première ligne vide rencontrée)
PLV = IIf(O.Range("A2").Value = "", 2, O.Range("A1").End(xlDown).Row + 1)

'####### modifs pmo
Dim A$
Dim Num&
A$ = Right(CStr(Sheets("BDD").Range("B65000").End(xlUp).Rows), 4)
If IsNumeric(CLng(A$)) Then
  Num& = CLng(A$) + 1
  A$ = CStr(Num&)
  Do Until Len(A$) = 4
    A$ = "0" & A$
  Loop
  A$ = Year(Now) & A$
  A$ = "NCE" & Mid(A$, 3)
End If
If A$ <> "" Then TextBox2.Value = A$
'#######

Me.TextBox3.Value = DateSerial(Year(Date), Month(Date), Day(Date)) 'place la date du jour dans la TextBox3
End Sub

 

[Jeremy992]

Re : Récupérer et incrémenter valeur textbox (Texte+Chiffre)

Bonjour PM02,

Merci de ton aide, cela marche à la perfection.

Simple et rapide, que demander de plus

 

[Jeremy992]

Re : Récupérer et incrémenter valeur textbox (Texte+Chiffre)

Petit question au passage, si je veux en plus de l'année en cours, le numéro de mois?
Exemple: NCE1411001

Comment faire?

 

[PMO2]

Re : Récupérer et incrémenter valeur textbox (Texte+Chiffre)

Private Sub UserForm_Initialize()
Dim i As Byte 'déclare la variable I (incrément)

Set O = Sheets("BDD") 'définit l'onglet O
'définit la première ligne vide PLV de la colonne 1 (=A) (2 si A2 est vide, sinon la première ligne vide rencontrée)
PLV = IIf(O.Range("A2").Value = "", 2, O.Range("A1").End(xlDown).Row + 1)

'####### modifs pmo
Dim A$
Dim B$
Dim Num&
A$ = Right(CStr(Sheets("BDD").Range("B65000").End(xlUp).Rows), 4)
If IsNumeric(CLng(A$)) Then
  Num& = CLng(A$) + 1
  A$ = CStr(Num&)
  Do Until Len(A$) = 4
    A$ = "0" & A$
  Loop
  B$ = "NCE" & Mid(Year(Now), 3) & Month(Now)
End If
If A$ <> "" Then TextBox2.Value = B$ & A$
'#######

Me.TextBox3.Value = DateSerial(Year(Date), Month(Date), Day(Date)) 'place la date du jour dans la TextBox3
End Sub