Majuscules

[GILLES25]

Salut le FORUM,
Est ce que c'est possible que des données remplis dans un userform se place dans la feuille en majuscule lorsque l'on appuis sur le bouton valider,
en ce qui me concerne CHUI ACHEMENT NUL avec le VBA, alors SVP pas trop de mot technique se sera sympa, voici 'le code pour mes cellules'
ActiveCell.Offset(0, 3).Value = Application.Proper(Me!nom)

MerKi BOKOU
Gilles.

 

[mutzik]

bonjour GILLES25

tu mets tout simplement

Application.Proper(ucase(Me!nom))

 

[GILLES25]

EUUUUUUH oui mais où ???????????????
Expliquer moi simplement SVP
Merci, Gilles

 

[GILLES25]

Désolé cher BERTRAND mais ça ne marche pas !!!!
j'ai juste remplacer en copier coller et ben c'est kifkif crotte alors.
voici la procédure du bouton valider :
Private Sub b_validation_Click()
If Me.nom = '' Then
MsgBox 'Saisir un nom!'
Me.nom.SetFocus
Exit Sub
End If
'--- Positionnement dans la base
If IsEmpty('A11') Then
Range('A11').Select
ActiveCell.Value = 1
Else
Range('a10').End(xlDown).Select ' Dernière ligne
ActiveCell.Offset(1, 0).Select ' En dessous
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
'--- Transfert
ActiveCell.Offset(0, 1).Value = b_code_oper
ActiveCell.Offset(0, 2).Value = Date
ActiveCell.Offset(0, 3).Value = Application.Proper(UCase(Me!nom))
ActiveCell.Offset(0, 4).Value = Me.B_option
'--
nettoie
Me.nom.SetFocus
End Sub

 

[GILLES25]

Désolé cher BERTRAND mais ça ne marche pas !!!!
j'ai juste remplacer en copier coller et ben c'est kifkif crotte alors.
voici la procédure du bouton valider :
Private Sub b_validation_Click()
If Me.nom = '' Then
MsgBox 'Saisir un nom!'
Me.nom.SetFocus
Exit Sub
End If
'--- Positionnement dans la base
If IsEmpty('A11') Then
Range('A11').Select
ActiveCell.Value = 1
Else
Range('a10').End(xlDown).Select ' Dernière ligne
ActiveCell.Offset(1, 0).Select ' En dessous
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
'--- Transfert
ActiveCell.Offset(0, 1).Value = b_code_oper
ActiveCell.Offset(0, 2).Value = Date
ActiveCell.Offset(0, 3).Value = Application.Proper(UCase(Me!nom))
ActiveCell.Offset(0, 4).Value = Me.B_option
'--
nettoie
Me.nom.SetFocus
End Sub