Ajouter automatiquement des caractères dans un textBox

Version imprimable

31/07/2017, 16h48
ComprendreExcel64

Ajouter automatiquement des caractères dans un textBox

Bonjour, je reviens sur ce forum car les réponses que j'obtiens à mes questions son pertinentes et me permettent d'avancer sur les connaissances en VBA.

Objectif :

Créer un code permettant aux utilisateurs de faciliter le remplissage d'un tableau.

J'ai déjà créé un Userform avec un textBox mais j'aimerai rendre celui-ci plus autonome. Lorsque l'utilisateur rempli le textBox, il faudrait que des caractères apparaissent automatiquement.

Exemple:
Si l'utilisateur met "TA14" dans le textBox > "OCP-TA000014" devrait apparaitre automatiquement dans le tableau.
FO125 > OCP-FO000125
PL1202 > OCP-PL001202

La valeur à la fin devra toujours etre composé de : OCP-8 caractères.
Celà permettra à l'utilisateur de renseigner que 5 caractères au lieu de 12. De plus je serai sûr que le nombre de "0" est bien respecté.

Avez vous une idée de comment faire ?

Cordialement,
31/07/2017, 17h02
fuine0069

bonjour,

je ne peux que te conseiller d'aller voir le blog de Silkyroad, qui est très bien alimenté sur le sujet.
http://silkyroad.developpez.com/VBA/...nesCaracteres/
bon code

Bonjour à vous,

En supposant que le TextBox en question se nomme 'TextBox1', je peux vous proposer le code suivant pour la UserForm (il est nécessaire de déclarer une référence à 'Microsoft VBScript Regular Expressions 5.5' pour que le code fonctionne) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Reg As VBScript_RegExp_55.RegExp
 
Private Sub UserForm_Initialize()
    Set Reg = New VBScript_RegExp_55.RegExp
End Sub
 
Private Sub TextBox1_Change()
    Dim Str As String
    Reg.Pattern = "(OCP-|)([a-zA-Z]{2})0*(\d+)"
    Str = Reg.Replace(Me.TextBox1.Text, "$2$3")
    If Str Like "[a-zA-Z][a-zA-Z]#*" Then
        Application.EnableEvents = False
        Me.TextBox1.Value = "OCP-" & Left(Str, 2) & Format(Right(Str, Len(Str) - 2), "000000")
        Application.EnableEvents = True
    End If
End Sub

Bonjour

Code:

1
2
3
toto = "TA14"
titi = "OCP-" & Left(toto, 2) & Format(Mid(toto, 3), "0000#")
MsgBox titi

01/08/2017, 11h21
ComprendreExcel64

Bonjour Ben_L,

Tout d'abord merci pour ton code.

Lorsque que je le met dans mon userform, un message d'erreur survient sur la ligne : Private Reg As VBScript_RegExp_55.RegExp. Le message est "type défini par l'utilisateur non défini"

Avez - vous une solutions ?
01/08/2017, 11h29
unparia

Citation:

Avez - vous une solutions ?

Oui. Et avec VBA tout seul, comme un grand, question de portabilité (vbs est inhibé sur certaines machines, dont la mienne, pour raisons de sécurité ...et il faut donc se garder d'en être dépendant ...)
Qu'as-tu fait de celle que je t'ai indiquée ?

Oui Unparia,

Merci j'ai réussi à l'adapter.
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub inserer_Click()
 
Sheets("Feuil1").Activate
'-----------------------------------------------------'
ligne = 1
 
While Cells(ligne, 1).Value <> ""
ligne = ligne + 1
 
Wend
toto = TextBox1.Value
titi = "OCP-" & Left(toto, 2) & Format(Mid(toto, 3), "00000#")
MsgBox titi
 
Cells(ligne, 1).Value = [TextBox1Value
 
End Sub

Il semble fonctionner.

01/08/2017, 12h24
ComprendreExcel64

Dernière remarque si vous me le permettez,

Peut - on mettre la valeur à apparaitre sur le tableau en majuscule (OCP-PL000123) même si on écrit en minuscule dans le textBox (pl123) ?

Cordialement,
01/08/2017, 12h34
unparia
Tu n'aurais pas comme une toute petite impression de ce que tu charries un peu, là ?
Cette question additionnelle révèle que tu ne prends jamais la peine de lire ton aide VBA interne (au moins les rudiments) !
Mais bon (mais ce sera la dernière fois que je réponds - avec toi - à une question aussi basique) -->>
Code:

1 2 3 toto = "ta214" titi = UCase("oCp-" & Left(toto, 2) & Format(Mid(toto, 3), "0000#")) MsgBox titi