Discussion :

[Quentin789]

Bonjour,

Je sais que des sujets similaires ont déjà été abordés, mais je n'ai pas trouvé de solution exacte à mon cas.
Je souhaite formater à la saisie dans une textbox en séparant tous les 4 chiffres (espace ou -, /). De manière à lorsque l'on rentre des données, Cela "passe" aux 4 chiffres suivant automatiquement.
Pour l'instant j'utilise ce code qui fonctionne, sauf si une correction est apportée (ça décale le nombre de caractère et ajoute trop de -).

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
18
19
20
21
   If Len(TextBox9.Text) = 4 _
        Or Len(TextBox9.Text) = 9 _
        Or Len(TextBox9.Text) = 14 _
        Or Len(TextBox9.Text) = 19 _
        Or Len(TextBox9.Text) = 24 _
        Or Len(TextBox9.Text) = 29 _
        Or Len(TextBox9.Text) = 34 _
        Or Len(TextBox9.Text) = 39 _
        Or Len(TextBox9.Text) = 44 _
        Or Len(TextBox9.Text) = 49 _
        Or Len(TextBox9.Text) = 54 _
        Or Len(TextBox9.Text) = 59 _
        Or Len(TextBox9.Text) = 64 _
        Or Len(TextBox9.Text) = 69 _
        Or Len(TextBox9.Text) = 74 _
        Or Len(TextBox9.Text) = 79 _
        Or Len(TextBox9.Text) = 84 _
        Or Len(TextBox9.Text) = 89 Then
        TextBox9.Text = TextBox9.Text & "-"
        TextBox9.SelStart = Len(TextBox9.Text)
    End If

Bref c'est un peu du bricolage et j'ai besoin de quelque chose de plus fiable pour traiter les données par après.
J'ai essayer avec ce type de formule :

Code :

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

TextBox1.Value = Format(TextBox1.Value, "#### #### ####")

Mais cela n'a jamais fonctionné correctement. Notamment l'écriture a gauche que je n'ai pas réussi à forcer. Cela se comportait de la sorte : 123 4567 au lieu de 1234 567
Désolé si cela est assez basique, j'en suis à mes débuts en VBA et je galère pas mal sur ce genre de petits soucis.

Merci de m'avoir lu ,

Quentin

[Menhir]

Ne serait-il pas plus simple de faire une box par groupe de 4 chiffres et de le recomposer ensuite par code en mettant le "-" séparateur ?

[Quentin789]

J'y ai pensé, mais le nombre de groupe de 4 Chiffres n'est pas défini et peu aller jusqu'à 20, ce qui rendrait le formulaire un peu lourd visuellement

Ce code marche pas mal, à l’exception qu'il groupe à droite et je préférerais qu'il groupe à gauche.
ex : 1234 567 et non 123 4567.
Quelqu'un aurait une idée ?

Code :

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

1
2
3
4
5
6
7
8
Private Sub TextBox9_Change()
Dim X As String
If Len(Me.TextBox9) < 4 Then Exit Sub
X = Application.Rept("#### ", Application.RoundUp(Len(Me.TextBox9) / 4, 0))
X = Right(X, Len(X) - 1)
Me.TextBox9 = Format(Me.TextBox9, X)
 
End Sub

[unparia]

Bonjour
inspire-toi de ceci :

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox9_Change()
  Dim X As String
  X = Replace(TextBox9.Text, " ", "")
  If Len(X) Mod 4 = 0 Then
    TextBox9.SelText = " "
  End If
End Sub

et je te laisse découvrir les inconvénients de ce genre de mécanisme et décider d'utiliser alors un évènement autre que Change (je suggère Keydown ou keyup) en adaptant (on n'a rien sans un effort personnel minimum pour ce genre de futilité quasi ludique)

[Menhir]

J'y ai pensé, mais le nombre de groupe de 4 Chiffres n'est pas défini et peu aller jusqu'à 20, ce qui rendrait le formulaire un peu lourd visuellement

A ce niveau-là, il faudrait peut-être aller plus loin et se demander si utiliser un formulaire est vraiment une bonne idée.
Taper ces 20 références les unes sous les autres dans un tableau d'une simple feuille de calcul serait certainement plus simple à gérer et plus ergonomique.
Sans compter que la validation de données permettrait en deux clic d'imposer la règle de 4 chiffres par cellule sans la moindre ligne de code.

Il ne faut pas oublier que les outils dont on dispose dans une feuille de calcul sont 100 fois plus puissants que ceux disponibles pour un UserForm.

[Pierre Fauconnier]

[...]Il ne faut pas oublier que les outils dont on dispose dans une feuille de calcul sont 100 fois plus puissants que ceux disponibles pour un UserForm.

On oublie trop souvent qu'une feuille Excel est aussi faite pour y saisir des données, et que la validation des cellules offre nativement des possibilités assez riches pour le contrôle de la saisie. Le VBA se limite alors à transférer ces données dans un tableau structuré, ce qui se fait en quelques lignes de code, et peut être réalisé avec l'enregistreur de macros (voir mon tuto à ce sujet)

[Quentin789]

Merci pour vos réponses

Finalement je m'en suis sorti avec un encodage par bouton comme ça pas d'erreur possible. Pour le moment ça à l'air de le faire, juste compliquer en cas de modification ultérieure.

Bonne après midi !

[Pierre Fauconnier]

Salut.

Adopter la solution de Menhir (Hello) me semble une bonne idée. C'est souvent celle utilisée sur les sites Web lorsque le séquençage de la saisie revêt une certaine importance. Sinon, je ne saurais trop conseiller de vérifier après coup plutôt que durant la saisie. C'est déployer beaucoup d'efforts pour un truc qui pourra probablement être déjoué assez facilement (retours en arrière, copier-coller, ...).

Je rejoins donc Unparia sur l'aspect futile et ludique de ce genre de "sport".

[...]le nombre de groupe de 4 Chiffres n'est pas défini et peu aller jusqu'à 20[...]

Tu envisages sérieusement de demander à des utilisateurs de saisir des valeurs constituées de 80 chiffres? J'espère que tu sais courir vite...