Bonjour,
je voudrais adapter ce code à plusieurs champs :

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
Des que je me trouve en mode creation ,ou faudrait il aller dans propriétés pour ecrire ce code.

Merci