Discussion :

[sercat]

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

[Tofalu]

Dans les propriétés, onglet événement, choisir l'événement Sur touche Pressée (ou appuyée j'ai un doute - mais tu verras le keypress dans l'entête), choisir procédure évenementielle et coller le code sans l'entête ni le end sub

[sercat]

Ok jiai associé ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Nom_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

à l'evenement sur touche activée et j'ai un message d'erreur par la suite :
Erreur d'execution objet 424

[Tofalu]

Ta zone de texte s'appelle Nom et non txtMemo ...

[sercat]

Merci

[sercat]

Ah ,j'oubliais,
comment faire pour associer ce même code à un autre champ ;
je n'y arrive pas.

[Baba75AB]

Tu fais comme pour le le 1er champ : une fois dans ton formulaire en mode 'création' tu sélectionnes ton champs texte, click souris droit, propriété-->évènement-->sur touche activée--> La petite flêche pour faire apparaitre "[Procédure événementiel]et tu cliques sur les petits points pour ouvrir VBA
Et tu insères le code entre le private sub et End sub.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Nom_du controle_KeyPress(KeyAscii As Integer)
 If KeyAscii > 64 Then
       'on vérifie si on se trouve au le premier caractère
        If Nom_du controle.SelStart = 0 Then
            KeyAscii = Asc(UCase(Chr(KeyAscii)))
        Else
            KeyAscii = Asc(LCase(Chr(KeyAscii)))
        End If
    End If
End Sub

[sercat]

Merci beaucoup,ca marche