majuscule automatique

Pierrot93

XLDnaute Barbatruc

• 1 Février 2013

• #2

Re : majuscule automatique

Bonjour,

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

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
@+

 

Vote positif 0 Vote négatif

N

NZL

Guest

• 1 Février 2013

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Février 2013

• #4

Re : majuscule automatique

Re,

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

Cliquez pour agrandir...

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

pour appliquer ce code uniquement colonne C :

Code:

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

 

Vote positif 0 Vote négatif

N

NZL

Guest

• 1 Février 2013

• #5

Re : majuscule automatique

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Février 2013

• #6

Re : majuscule automatique

Re,

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

N

NZL

Guest

• 1 Février 2013

• #7

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)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2013

• #8

Re : majuscule automatique

Bonjour NZL, salut Pierrot 🙂

Annulé, par crainte de Pascal 😛

A+

 

Dernière édition: 1 Février 2013

Vote positif 0 Vote négatif