Automatiser une prise de référence dans un textbox VBA

Version imprimable

15/01/2018, 11h04
aurelu

Automatiser une prise de référence dans un textbox VBA

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 ?
15/01/2018, 13h08
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 :

Citation:

à 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 ?
15/01/2018, 14h30
aurelu

1 pièce(s) jointe(s)

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.

Pièce jointe 342643
15/01/2018, 14h34
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 !:coucou:

Non, mais ... !
15/01/2018, 14h48
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...

Citation:

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:

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