Discussion :

[Cassivellaunos]

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

[ESVBA]

Remplace la ligne :

Code :

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

Nomconverti = Application.WorksheetFunction.Proper(Me.txtNom.Text)

par la ligne

Code :

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

Nomconverti = Ucase(Me.txtNom.Text)

pour avoir tout le texte en majuscule.





Ajout par la fonction de feuille :
Remplace la ligne :

Code :

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

Nomconverti = Application.WorksheetFunction.Proper(Me.txtNom.Text)

par la ligne

Code :

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

Nomconverti = Application.WorksheetFunction.Upper(Me.txtNom.Text)

pour avoir tout le texte en majuscule.

C'est complet.

ESVBA

[Cassivellaunos]

Merci ESVBA pour ta réponse rapide.

C'est chouette ce site ! On a un Pb, on écrit, on a une (bonne) réponse, on codifie, on test et ça marche... et un Dimanche en plus !

Mon formulaire avance encore un peu plus.

Merci
Cassivellaunos.