aide sur userform ( novice)

[fafanne44]

Bonjour,

j'ai voulu repartir d'un fichier existant pour faire mon propore fichier mais je pense que je suis en train de m'enliser, pouvez m'aider.
Les 1ères demandes sont :
Dans Textbox3 ( nombre de transactions ) je souhaite que ce texte box soit un compteur et que la valeur ne s'efface pas même après fermeture de la userform.
Dans textbox12 ( retour gobelets ) je souhaite pourvoir mettre une valeur et que celle-ci enlève cette valeur dans la case total (cellule K95 )
Dans commandbutton2 ( enregistrer ) je souhaite enregistrer le fichier, remettre à zéro les autre textbox sauf la texbox 3 ou je souhaite qu'elle s'incrémente d'une unité supplémentaire.
Merci de votre aide

 

[Dranreb]

Bonjour.
Essayez comme ça :

Private Sub UserForm_Initialize()
   On Error Resume Next
   TextBox3.Text = Evaluate(ThisWorkbook.Names("NumTrans").RefersTo) + 1
   If Err Then TextBox3.Text = "1"
   End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   ThisWorkbook.Names.Add "NumTrans", CLng(TextBox3.Text)
   End Sub

 

[fafanne44]

ca pas l'air de fonctionner 🙁

 

[Dranreb]

Pourtant à chaque affichage de l'userform le numéro est incrémenté, non ?
Après s'il doit aussi être incrémenté dans d'autre cas, c'est à vous de le faire. Je me suis contenté de faire en sorte que le dernier numéro affiché soit retenu pour le prochan affichage.

 

[fafanne44]

non ,quand j'enregistre la userform se ferme( ce qu'il faut que je modifie d'ailleurs) et si je l'ouvre de nouveau je repars à 1.

 

[Dranreb]

Alors j'ignore pourquoi. Chez moi chaque fois que je le fermais par la croix puis que je le réaffichais par F5 j'avais 1 de + dedans.

 

[fafanne44]

effectivement ca fonctionne comme ca mais je souhaite que cette action se réalise quand j'utilise le bouton enregistrer ( command button 2)

 

[Dranreb]

Enlevez l'instruction TextBox3.Value = "" qui casse tout !
Mettez peut être à la place TextBox3.Value = TextBox3.Value + 1

 

[fafanne44]

ne fonctionne pas non plus

 

[Dranreb]

Si, si vous ne contrecarrez plus le dispositif, ça doit marcher.