Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour tout le monde
SVP comment faire pour obliger l'utilsateur a tapper les premieres lettres d'une phrase dans un TextBox en majuscule
Par exemple ( bonjour tout le monde ) se sera inscrite dans Text1 comme ça ( Bonjour Tout Le Monde )
Merci beaucoup d'avance pour l'aide
Cordialement
MADA BLACK

[iclic]

Bonjour,

Tester l'entrée caractère par caractère (Private Sub Textnom_KeyPress(KeyAscii As Integer )si blanc(chr(32)) mettre le caractère suivant en Ucase(majuscule).

[MADA BLACK]

Bonsoir iclic
Merci beaucoup pour l'aide
Tres gentil de votre part
Je suis tres debutant j'ai pas tellement compris
SVP gentelman .. si vous pouvez m'ecrire ce code se sera un grand bienfait de votre part
Tres cordialement
MADA

[iclic]

Bonsoir Mada,

Voici le code à utiliser

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Drapeau As Boolean
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
    If Drapeau = False Then
       KeyAscii = KeyAscii - 32
       Drapeau = True
    End If
    If KeyAscii = 32 Then
           Drapeau = False
    End If
      Text1.SetFocus
  End Sub

[MADA BLACK]

Bonjour iclic
Merci pour l'aide
Merci pour votre simple et impeccable code
Tres gentil de votre part
C'est parfaitement resolu
Tres cordialement
MADA BLACK