incrementer un textbox dans userform

[Michel]

Bonjour à toutes et à tous,
Je vous souhaite une joyeuse pâques
Voila, mon petit problème est de savoir comment incrémenter un textbox dans un userform pour qu'à chaque ouverture il augmente de 1.
Ex : 001 prochaine ouverture 002
D'avance je vous remercie
@ plus
Michel

 

[michel]

bonjour michel

j'espere que l'exemple joint repondra à ta demande

Sub LanceUSFetMajTextBox()
Dim Cible As Integer
Cible = ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls("TextBox1").Value
ThisWorkbook.VBProject.VBComponents("UserForm1").Designer _
.Controls("TextBox1").Value = Format(Cible + 1, "000")
UserForm1.Show
End Sub


à chaque ouverture du Userform1 , le Textbox1 est incrémenté d'une unité


bon dimanche
michel

 

[Jacquesderyes]

Bonjour Michel et les amis du forum
La seule façon que je connaisse pour incrémenter un textbox à l'ouverture d'un UF est la suivante:
Dans la feuile sur laquelle apparaît le UF(ou dans une autre)réserver une cellule pour la numerotation(A1 par exemple)y inscrire un n° de départ(1 par éxemple)
Dans le code initialize du UF on met le code suivant:
Me.TextBox1=Sheets("maFeuille").Range("A1").Value
Sheets("maFeuille").Range("A1").Value=TextBox1.Value+1

Attention!si tu n'enregistres pas ton fichier à la fermeture, la valeur initiale de la cellule du N° restera 1 au contraire si tu enregistres, l'incrémentation partira du dernier chiffre .
Il y a peut-être une solution autre mais je ne la connais pas.
Bonnes Pâques à tous
Bien cordialement
jacques de ryes

 

[Jacquesderyes]

Re Michel & Michel

Je me doutais bien qu'il y avait une solution + "académique"!!
Bien amicalement
jacques de ryes

 

[Michel]

Bonsoir à toutes et à tous,
Michel, je rentre du boulot (et oui la presse) je regarde ce que tu m'as envoyer et je te tiens au courant.
@ plus
Michel