aide sur userform ( novice)

fafanne44

XLDnaute Nouveau
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
 

Pièces jointes

  • Bons perso M.xlsm
    54.1 KB · Affichages: 8

Dranreb

XLDnaute Barbatruc
Bonjour.
Essayez comme ça :
VB:
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
 

Dranreb

XLDnaute Barbatruc
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.