Majuscule obligatoire

emp06bis · 9 Janvier 2009

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 · 9 Janvier 2009

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...

Code:

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 · 9 Janvier 2009

Re : Majuscule obligatoire

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

Majuscule obligatoire

emp06bis

Guest

Pierrot93

XLDnaute Barbatruc

emp06bis

Guest

Discussions similaires

Majuscule obligatoire

emp06bis

Guest

Pierrot93

XLDnaute Barbatruc

emp06bis

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency