Incrémenter une textbox automatiquement avec une partie réference imposée

bbb38

XLDnaute Accro

• 28 Février 2014

• #2

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

Bonjour Mendigot, le forum,
Sur le fichier ci-joint, à chaque ouverture du formulaire, la référence apparait dans le premier TextBox. J’espère qu’il pourra t’aider à résoudre ton problème, car sans un fichier d’exemple, difficile de comprendre tes souhaits (pour ma part).
Cordialement,
Bernard

 

Pièces jointes

• Mendigeot.xlsm

  28.9 KB · Affichages: 41

Vote positif 0 Vote négatif

M

mendigot

XLDnaute Occasionnel

• 28 Février 2014

• #3

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

Bonsoir bbb38, Le Forum,

Je Te remercie pour ton aide
Je regarde ton fichier et si je n'y arrive pas je joindrai un fichier d'exemple demain matin

merci encore
Mendigot

 

Vote positif 0 Vote négatif

M

mendigot

XLDnaute Occasionnel

• 28 Février 2014

• #4

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

Re bbb38, Le Forum

A priori c'est a peu pres ce que je cherche.

sauf que je souhaiterai si c'est possible de valider l'ecriture dans la cellule .

merci a toi c'est super

@@ ++ Mendigot

 

Vote positif 0 Vote négatif

M

mendigot

XLDnaute Occasionnel

• 28 Février 2014

• #5

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

RE bbb38

Je viens de me rendre compte que l'on ne depasse pas la valeur de 099

je te remercie

mendigot

 

Vote positif 0 Vote négatif

M

mendigot

XLDnaute Occasionnel

• 28 Février 2014

• #6

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

Bonjour bbb38, Le forum

Je viens d'essayer sur un fichier mais cela ne correspond pas tout a fait a ce que je souhaite.


Je joint un fichier avec des explications

En te remerciant d'avance ainsi que le Forum.

@@@++mendigot

Edit: OUPS J'avais oublier de mettre le bouton.

 

Pièces jointes

• mendigotbienvenue.xlsm

  26.2 KB · Affichages: 41

Dernière édition: 28 Février 2014

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 28 Février 2014

• #7

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

bonjour tous 🙂🙂🙂
on pourrait partir comme cela ......pas simplifier a voir ???

Code:

Private Sub UserForm_Initialize()
 y = Feuil2.Range("a" & Feuil2.Cells(Rows.Count, 1).End(3).Row)
 x = Left(Feuil2.Range("a" & Feuil2.Cells(Rows.Count, 1).End(3).Row), 6)
 If Len(Mid(y, 7)) = 3 Then TextBox1 = x & Format(Mid(y, 7, 3) + 1, "000")
 If Len(Mid(y, 7)) = 4 Then TextBox1 = x & Format(Mid(y, 7, 4) + 1, "0000")
 If Len(Mid(y, 7)) = 5 Then TextBox1 = x & Format(Mid(y, 7, 5) + 1, "00000")
End Sub
Private Sub CommandButton1_Click()
 Feuil2.Range("a" & Feuil2.Cells(Rows.Count, 1).End(3).Row)(2) = TextBox1
 Unload Me
End Sub
Private Sub CommandButton2_Click()
 Unload Me
End Sub

 

Vote positif 0 Vote négatif

M

mendigot

XLDnaute Occasionnel

• 28 Février 2014

• #8

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

Bonjour Laetitia90, le Forum

merci pour votre aide.

c'est une approche que j'ai deja essayé mais j'avais de gros bug.

Il me sortait des valeurv erronées

25RF-001 ok

la suivante
25Rf-002-40

ect.......!


J'essai pas mal de solution en cherchant un peu sur tous le forums


encore merci

@@@++ Mendigot

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 28 Février 2014

• #9

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

re tous🙂🙂

j'etais parti sur ton fichier !!!

si ta constante c'est 25Rf-
un dernier code

Code:

Private Sub UserForm_Initialize()
  y = Feuil2.Cells(Columns(1).Cells.Count, 1).End(3).Row
  If y = 1 Then TextBox1 = "25Rf-" & Format(y, "000")
  If Len(y) <= 3 Then TextBox1 = "25Rf-" & Format(y, "000")
  If Len(y) > 3 And Len(y) < 5 Then TextBox1 = "25Rf-" & Format(y, "0000")
  If Len(y) > 4 Then TextBox1 = "25Rf-" & Format(y, "00000")
End Sub

 

Vote positif 0 Vote négatif

M

mendigot

XLDnaute Occasionnel

• 28 Février 2014

• #10

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

bonsoir a tous

je te remercie j'essai cela après manger ce soir

@+++

 

Vote positif 0 Vote négatif

bbb38

XLDnaute Accro

• 28 Février 2014

• #11

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

Bonjour Mendigot, Laetitia90, le forum,
Sur le fichier ci-joint, à chaque ouverture du formulaire, la référence apparait dans le premier TextBox1.
Boutons de commande :
Valider :Enregistre les données dans la feuille « BDD » et inscrit la référence suivante pour poursuivre l’enregistrement des données.
Annuler :Annuler : Efface les données dans le formulaire, mais maintien la référence afin de pouvoir poursuivre l’enregistrement (la cellule sur la feuille « BDD » reste vide).
Quitter : Décharge le formulaire. La référence n’est pas inscrite dans la feuille « BDD ».
Code à améliorer avec les instructions mentionnées par Laetitia90 (j’ai essayé plusieurs tests pour obtenir la simplification proposée par Laetitia90, mais sans résultat).
P.S. Merci par Laetitia90 pour le code, car je ne suis pas arrivé à l’écrire (et impossible de le retrouver dans ma jungle de fichiers d’exemples).
Cordialement,
Bernard

 

Pièces jointes

• mendigotbienvenue_v1.xlsm

  38.7 KB · Affichages: 36

Dernière édition: 28 Février 2014

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 28 Février 2014

• #12

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

salut

avec une première partie fixe

Code:

Dim dl As Long, S
Private Sub UserForm_Initialize()
  With Feuil2
    dl = .[A65536].End(xlUp).Row
    S = Replace(.Cells(dl, 1), "25FFR-", "")
    S = Format(S + 1, "000")
    TextBox1 = "25FFR-" & S
  End With
End Sub

 

Pièces jointes

• Incrémentation Numérotation (VBA).xls

  52 KB · Affichages: 45

Vote positif 0 Vote négatif

M

mendigot

XLDnaute Occasionnel

• 28 Février 2014

• #13

Re : Incrémenter une textbox automatiquement avec une partie réference imposée

Bonsoir laeticia90, bbb38, Si..., Le forum

Un grand merci a tous pour votre aide

Si.... viens de me donner la solution que je cherchai. le fichier joint correspond a ce qui manquait dans ma BDD


Encore merci , il y a toujours un XLDnaute qui as une solution

Bonne soirée a tous.

@@@@@ Mendigot

 

Vote positif 0 Vote négatif