Majuscule obligatoire

[emp06bis]

Bonjour,
je souhaiterais que lorsqu'on écrit dans une cellule, son contenu s'inscrive directement en majuscule.
Une seconde chose mais (pour une autre cellule...) que ce soit simplement la première lettre qui s'inscrive en majuscule.
Merci

 

[Pierrot93]

Re : Majuscule obligatoire

Bonjour empo

regarde le code ci dessous, à placer dans le module de la feuille concernée

click droit sur l'onglet => visualiser le code et tu colles...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then Target.Value = UCase(Target.Value)
If Target.Address = "$A$2" Then Target.Value = Application.Proper(Target.Value)
Application.EnableEvents = True
End Sub

A1 est transformé en majuscule, A2 en nom propre

bon après midi
@+

 

[emp06bis]

Re : Majuscule obligatoire

Vraiment merci Pierrot93
Cela fonctionne, je vais juste donner les cellules dont j'ai besoin
a +