VBA Formulaire Excel majuscules dans txtBox
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:
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
