Discussion :

[Ribéry]

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 :

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

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

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

[ouskel'n'or]

Ecoute le conseil de jemefe, mets ton code dans Keypress

Code :

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

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+

[jmfmarques]

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

Code :

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

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 :

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

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

[ouskel'n'or]

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

Juste pour savoir...