'Dans la section générale de la feuille Private Declare Function CharLower Lib "user32" Alias "CharLowerA" (ByVal lpsz As String) As Long Private Declare Function CharUpper Lib "user32" Alias "CharUpperA" (ByVal lpsz As String) As Long Private Sub Form_Load() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim strSave As String, Upper As String, Lower As String Me.AutoRedraw = True strSave = "Ceci est un test !" Me.Print "Original: " + strSave CharUpper strSave Me.Print "Upper Case:" + strSave CharLower strSave Me.Print "Lower Case:" + strSave End Sub