majuscule automatique

[NZL]

Bonjour,
Existe-il une formule ou un format à sélectionner pour que le texte que je saisis dans une cellule soit automatiquement en majuscule? Je connais la formule pour le faire a posteriori, mais je souhaite que cela soit immédiat.
Merci de votre éclairage.
NZL

 

[Pierrot93]

Re : majuscule automatique

Bonjour,

essaye ceci à placer dans le module de la feuille concernée => click droit sur l'onglet => visualiser le code :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
Application.EnableEvents = False
Target = UCase(Target)
fin:
Application.EnableEvents = True
End Sub

bonne journée
@+

 

[NZL]

Re : majuscule automatique

Merci de ta prompte réponse mais :
1. je ne trouve pas visualiser le code (je travaille sous mac)
2. je voudrais l'appliquer que sur une colonne précise.
As-tu une autre idée/solution?
Merci beaucoup.
NZL

 

[Pierrot93]

Re : majuscule automatique

Re,

1. je ne trouve pas visualiser le code (je travaille sous mac)

Alors là... je ne connais pas du tout l'environnement mac...

pour appliquer ce code uniquement colonne C :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
On Error GoTo fin
Application.EnableEvents = False
Target = UCase(Target)
fin:
Application.EnableEvents = True
End Sub

 

[NZL]

Re : majuscule automatique

OK. Mais il n'existe pas une mise en forme conditionnelle pour mettre en majuscule?

 

[Pierrot93]

Re : majuscule automatique

Re,

OK. Mais il n'existe pas une mise en forme conditionnelle pour mettre en majuscule?

Aarf.. peut être... mais perso jamais vu... mais pas tout vu non plus....

 

[NZL]

Re : majuscule automatique

j'ai trouvé un palliatif en utilisant données >> validation >> personnalisés :
Par ex pour forcer les utilisateurs à écrire dans la colonne A en majuscule :
= EXACT(MAJUSCULE(A1);A1)

 

[job75]

Re : majuscule automatique

Bonjour NZL, salut Pierrot

Annulé, par crainte de Pascal

A+