Interdire un espace dans une TextBox

Version imprimable

Bonjour,

J'ai un soucis, j'aimerais bien que mon programme interdise les espaces à n'importe quel endroit de la TextBox. Je vous montre le code que j'utilise pour interdire les chaines vides. Il faudrait que la partie de code interdisant les espaces se trouve dans cette fonction où je sauvegarde les infos.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub SauveModifications()
    Dim Cpte        As Integer
    Dim GroupeTMP   As Long
 
    If Not (mvar_ObjetLié Is Nothing) Then
        'Un objet est lié, mise à jour de ces propriétés
        '***********************************************
 
        With mvar_ObjetLié
 
            If Libellé.Text = "" Then
             MsgBox LoadRessourceString(IDMsgAvertNom), vbExclamation, Titre.Caption
            Else
            .Nom = Libellé.Text
            End If
 
              If MotPasse.Text = "" Then
             MsgBox LoadRessourceString(IDMsgAvertMotPasse), vbExclamation, Titre.Caption
 
            Else
            .MotPasse = MotPasse.Text
            End If
 
            GroupeTMP = 0
            For Cpte = 16 To 1 Step -1
               GroupeTMP = GroupeTMP Or Groupe(Cpte).Value
                GroupeTMP = GroupeTMP * 2
            Next Cpte
 
            .Groupe = GroupeTMP
 
            If .Sauve(BDDModification) Then
                'Des modifications ont été constatées, l'objet a été sauvé,
                'mise à jour de la liste liée
                '**********************************************************
 
                MiseJourListeLiée .Nom, .Groupe
            End If
        End With
    End If
End Sub

08/06/2006, 15h22
jmfmarques

Je n'ai pas lu ton code et estimé que le titre de ton sujet "disait" ce qu'était ton sujet !
Donc pour interdire un espace : utilisation de l'événement Keypress de ta TestBox
pour interdire une "non saisie" : utilisation de l'événement LostFocus de ta textBox et, au besoin, d'un MsgBox et d'un SetFocus de "forcing" !
Tout celà à découvrir dans ton aide en ligne !;)
08/06/2006, 15h31
zazaraignée
Un conseil en passant
- le bouton Editer (en bas à droite d'un de tes messages) permet de modifier un message, alors...
- le bouton # (en haut de la zone d'édition) permet de mettre le texte sélectionné entre balises CODE, ce qui rend ton code plus lisible, i.e. différent du reste du message.

Ecoute le conseil de jemefe, mets ton code dans Keypress

Code:

1
2
3
Sub Libellé_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 32 Then Libellé.text = trim(Libellé.text)
    'Le reste de ton code

Chr(32) = espace

A+

Mais !!!!!!!!...
Allons bon :
Code:

1 2 3 4 5 6 Sub Libellé_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 32 Then keysacii = 0 ' pivoilou ! exit sub End if 'Le reste de ton code
Te laisse faire par ailleurs les instructions sur l'événement LostFocus si tu veux obliger une saisie !!!!!;)

Allez ... il fait chaud...
Code:

1 2 3 Private Sub Text1_LostFocus() If Text1.Text = "" Then Text1.SetFocus End Sub

08/06/2006, 16h44
ouskel'n'or

Ctrl @ = chr(0)
Ça ne pose pas de pb, jemefe ?

Juste pour savoir...
08/06/2006, 16h45
jmfmarques

Essaye, tu sauras (sous VBA aussi).
KiKif avec événement Keydown et Keycode = 0 (rien n'est considéré comme frappé, c'est tout ...)
C'est d'ailleurs par ce que CTRL @ a la valeur ascii 0 que tu ne peux le frappez dans une textbox :lol:
08/06/2006, 16h50
ouskel'n'or

On en apprend des choses avec toi... :mouarf:
Mais tu crois qu'on peut modifier la valeur d'un paramètre ?
08/06/2006, 16h54
jmfmarques

Keyascii ou Keycode ? Bien évidemment !

Tiens : mets-lui donc if Keyascci = 32 then keyascii = 97 et on va voir si, en frappant un espace, tu n'obtiens pas un a :lol:
08/06/2006, 16h56
ouskel'n'or

Hi hi ! c'était juste pour t'embêter
08/06/2006, 18h00
jmfmarques

Tu verras en quoi je te ferai changer l'espace, la prochaine fois, voyou !:salo: :salo: