Discussion :

[aurelu]

Bonjour à tous,

Je voudrais solliciter votre aide concernant l'automatisation d'une prise de référence dans un textbox qui est intégré dans un usf.

Dans ce textbox je souhaiterais prendre une référence de type "PA-001_blabla_blabla2" et à chaque fois que je créé une référence que le numéro s'incrémente dans la textbox automatiquement.

Auriez-vous une idée ?

[unparia]

Bonjour
Tes explications sont incomplètes et nécessitent que tu définisses pas à pas le mécanisme, notamment en ce qui concerne ce passage :

à chaque fois que je créé une référence

Quels sont les gestes précis qui font que ton appli SAIT que tu en crées une nouvelle ?

[aurelu]

Bonjour,

Tout d'abord merci de prendre du temps pour m'aider.

Je t'es mis à disposition les explications de ce que je veux faire et comment la macro se déroule dans le dossier ci-joint.

ex_ref.xlsm

[unparia]

Et tu attends quoi ? Que j'ouvre ton classeur (avec les risques toujours possibles) pour t'éviter de rédiger des explications claires et précises ? -->> tu peux toujours attendre !

Non, mais ... !

[aurelu]

Je trouvais juste plus simple que t'es un visuel pour mieux comprendre... Ce n'est pas la première fois que je procède ainsi sur ce forum...

Désolé de t'avoir offensé !

Lorsque je veux saisir une nouvelle référence dans une feuille en fonction de la dernière référence qui a été créée (PA-004-DXF dans ce cas là) que la textbox me propose directement le numéro suivant "PA-005" et que je puisse saisir derrière ce numéro dans la textbox pour compléter la référence.

Quand je clique sur le bouton "Ajouter" du usf la référence s'incrémente dans la colonne B et devient alors la dernière créée.

Dans l'espoir que ce soit assez clair...

[unparia]

Je trouvais juste plus simple que t'es un visuel pour mieux comprendre... Ce n'est pas la première fois que je procède ainsi sur ce forum...

Hé bien, mets un terme à cette habitude.
Lis ceci (signalé pourtant IMPORTANT :
https://www.developpez.net/forums/d8...s-discussions/

Bon ...
Regarde ce que fait cette toute petite chose de rien du tout.

Code :

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

1
2
3
4
5
6
7
Private compteur As Integer
Private Const prefixe As String = "blabla_blibli_piwala_"
 
Private Sub CommandButton1_Click()
  compteur = compteur + 1
  TextBox1.Text = prefixe & compteur
End Sub