Bonjour,

Voilà la difficulté à laquelle je suis confronté :
J'essaye de "placer" un code permettant d'obtenir dans une feuille "Eleve" le nom saisi en majuscule.
Je pose mon tablier cherchant midi à quatorze heures (comme d'hab !).

La seule chose à laquelle je suis arrivé c'est d'avoir la première lettre en majuscule (...) dans la feuille et les majuscules dans le formulaire. En ce dimanche je ressemble au Lapin crétin.

Voilà le résultat de ma congitation :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub cmdValider_Click()
   ' Test de la présence du nom ...
   If Me.txtNom.Text = "" Then
 
        MsgBox "Vous devez entrer un nom."
        Me.txtNom.SetFocus
 
        Exit Sub
    End If
 
  ' Test de la présence du prénom ...
  If Me.txtPrenom.Text = "" Then
 
        MsgBox "Vous devez entrer un prénom."
        Me.txtPrenom.SetFocus
        Exit Sub
    End If
 
    ' Conversion du nom et prénom en NOMPROPRE'
    Nomconverti = Application.WorksheetFunction.Proper(Me.txtNom.Text)
    Prenomconverti = Application.WorksheetFunction.Proper(Me.txtPrenom.Text)
 
     'Mise en place des valeurs saisies
   Range("A65536").End(xlUp).Offset(1, 0).Value = Nomconverti
   Range("B65536").End(xlUp).Offset(1, 0).Value = Prenomconverti
 
    ' Remise à blanc du formulaire
   Unload Me
 
End Sub
Si quelqu'un pouvait m'aider ? Merci pour son aide.

Cassivellaunos