Discussion :

[jolzeviking]

Salut les rois du vba §
Je viens de créer un classeur de gestion de stock.
La rentrée des référence doit se faire comme suit:
XXX 0000000, materiel
Voila j'ai utiliser la formule

Code :

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

textbox1.text=format(textbox1.text, ###   #######,)

Mais voila le souci il faut absolument trois lettres un espace, 7 chiffres et aprés la virgule le champ doit etre libre et la je bug. Je sais plus quoi faire.
Merci les kings

[ouskel'n'or]

Cette solution ne te conviendrait-elle pas ?
Consiste à empêcher la saisie d'un autre caractère que celui attendu.

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Do While i < Len(TextBox1.Value)
        If Not TextBox1.Value Like Left("### #######*", Len(TextBox1.Text)) Then _
            TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
        i = Len(TextBox1.Text)
    Loop
End Sub

Mais s'agit-il bien de saisie ou d'affichage ?

[ucfoutu]

Bonjour,

essaye ceci (sans te soucier de l'espace et de la virgule, qui se frapperont seuls) :

A mettre dans l'évènement Change de ta TextBopx TextBox1 :

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
Static anc As String
 Dim flt As String, ref As String, ou As Integer, mc As String
 flt = "[A-Z][A-Z][A-Z] " & String(7, "#") & ",*"
 ref = "AAA 1111111,aaaaa"
 mc = TextBox1.Text & Mid(ref, TextBox1.SelStart + 1)
 If Not UCase(mc) Like flt Then
   TextBox1.SelStart = Len(anc)
   TextBox1.Text = anc
   Exit Sub
 End If
 anc = TextBox1.Text
 ou = TextBox1.SelStart
 If ou = 3 Or ou = 11 Then
   anc = anc & Mid(ref, ou + 1, 1)
   TextBox1.Text = anc
   TextBox1.SelStart = Len(anc)
 End If

Si cela te convient, tu dis et je peaufine alors plus ...

[jolzeviking]

Je testes les deux et je renvois une réponse. Je n'ai pas accés cette semaine au net.Pas de panique je réponds dés que j'ai tout testé.
Merci les kings.