Discussion :

[ComprendreExcel64]

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,

[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

[Ben_L]

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 :

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

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

[unparia]

Bonjour

Code :

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

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

[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 ?

[unparia]

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 ?

[ComprendreExcel64]

Oui Unparia,

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

Code :

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

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.