Bonjour,
je voudrais adapter ce code à plusieurs champs :
Des que je me trouve en mode creation ,ou faudrait il aller dans propriétés pour ecrire ce code.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub txtMemo_KeyPress(KeyAscii As Integer) If KeyAscii > 64 Then 'on vérifie si on se trouve au le premier caractère If txtMemo.Selstart = 0 Then KeyAscii = Asc(UCase(Chr(KeyAscii))) Else KeyAscii = Asc(LCase(Chr(KeyAscii))) End If End If End Sub
Merci
Partager