N° Incrémenté dans un TextBox

Bonjour,

Dans un UserForm (FrmEngt) (page1), j'ai un TextBox (TnumInc) que je souhaite incrémenté à chaque fois que l'UserForm est activé, mais avec une possibilité d'effacement du numéro tant que l'on a pas appuyé sur le bouton valider de l'UserForm.

En clair, si un agent active l'UserForm par erreur et le referme aussitôt, l'incrémentation reprends là où elle s'est arrétée.

Dans l'UserForm j'ai 3 boutons (Valider, Annuler, Fermer)

Peut-on les utiliser ?

Comment faire ? Merci pour votre aide

J'ai essayé de reprendre le dernier numéro de la colonne A de la Feuille "Engagement", là où sont stockés les numéros d'ordre d'entrée, mais je n'y arrive pas.

J'ai essayé avec ces codes mais sans succès :

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Activate() If Sheets("Engagements").Range("A6").Value="" then Me.TnumInc.Value=1 End If End Sub

---

Ensuite

Code:

---

1 2 3 4

Private Sub CbOk_AfterClick() Me.TnumInc.Value=Sheets("Engagements").Range("A65535").End(xlUp).Row + 1 End Sub

---

Mais sans succès

Bonjour,
Voici comment j'ai procédé pour un fichier qui ressemble un peu à ton problème (fichier que je n'ai plus...)

Uniquement lié au bouton 'valider' incrémenté le nombre dans une cellule définie dans une des feuilles, ca évite les '.end(xlup)' que, personellement, je n'aime pas de trop

Au vu de l'exemple de ton code tu ne devrais pas avoir de mal à le faire.

En espérant avoir été clair et que ça aide.

A+

Voici ce que j'ai fait mais sans succès, car l'incrémentation s'arrête à 2
Pouvez-vous m'aider ?

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Activate() If Sheets("Engagements").Range("A6").Value = "" Then Me.TnumInc.Value = 1 Else Me.TnumInc.Value = VopNum + 1 End If End Sub

---

Ensuite dans CbOk_Click() (bouton "Valider")

Code:

---

1 2 3 4 5 6 7 8

Dim NL As Long If Sheets("Engagements").Range("A6").Value = "" Then Me.TnumInc.Value = 1 Else NL = Sheets("Engagements").Range("A:A").End(xlUp).Row + 1 Me.TnumInc.Value = NL End If

---

bonjour,

Je n'utiliserai que le bouton "valider" et son Tag

Code:

---

1 2 3 4 5

Private Sub BtnValider_Click() BtnValider.Tag = BtnValider.Tag + 1 MsgBox BtnValider.Tag Unload Me End Sub

---

@+

Bonjour,

Le Tag correspond à quoi exactement ? Il faut bien récupérer un numéro dans un TextBox que je dois récupérer lors de l'édition d'une feuille.
Désolé, mais je ne comprends pas.

ça marche à peu prés avec ce bout de code.
En fait si la cellule A6 de la feuille "Engagements" est vide, alors leTextBox(TnumInc) prend le n°1.
Ensuite, TnumInc reprend le N° VopNum et ajoute 1.
Par contre, lorsque je ferme l'UserForm, il ne reprend pas le dernier numéro enregistrer.
Où ai-je commis une erreur ?
Merci par avance

Code:

---

1 2 3 4 5 6 7

vrésul = Format(VopNum, "0") If Sheets("Engagements").Range("A6").Value = "" Then FrmEngt.TnumInc = "1" Else FrmEngt.TnumInc = VopNum + 1 End If

---

bonjour, que tu récupères un numéro dans un textbox ou dans le tag d'un bouton, ou est la différence?

Bonjour,

Le problème est que je ne sais pas ce qu'est un tag ?

re
:f1:
@+

Je viens de lire l'aide, mais je ne vois pas comment je peux l'appliquer à mon cas.
Je ne comprends pas l'exemple fournit.
Désolé

bonjour,

prends l'exemple de Fvandermeulen, avec une cellule dans une feuille masquée par exemple et tu pourras retrouver ta valeur partout dans ton code.
Cordialement

Ok, ok je commence à comprendre. Je suis du genre diésel, il faut que je chauffe longtemps pour bien rouler.
J'applique et je te dis ce qu'il en est.
Merci