Discussion :

[NEC14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fvandermeulen]

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+

[NEC14]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub BtnValider_Click()
BtnValider.Tag = BtnValider.Tag + 1
MsgBox BtnValider.Tag
Unload Me
End Sub

@+

[NEC14]

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.

[NEC14]

ç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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

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

[NEC14]

Bonjour,

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

[fred65200]

re

@+

[NEC14]

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é

[fred65200]

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

[NEC14]

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