Majuscule automatique

[boby53]

Bonjour !

Après avoir fait le tour sur le forum j'ai trouvé plusieurs choses intéressantes mais... et oui il y a un "mais" !!

Voici ma demande :

Je voudrais sur une feuille choisir seulement quelques Cellules (ex. : A1, B3, C10) et que lorsque que l'on tape du texte et bien que ce dernier se mette automatiquement en MAJUSCULE.

Donc il me faut évidement une macro. J'avais trouvé des bouts ici et là sur ce forum mais quand je tape du texte, il se transforme bien en MAJUSCULE. Mais si je l'efface avec la touche du clavier effacement, et bien apparait un message d'erreur me demandant soi de mettre fin ou de débeuguer mais au final ça ne marche plus !!

Bon je pense que j'ai encore bcp de chemin à faire mais plus je m'y met, plus ça m'intéresse...

Merci de vos réponses.

 

[soenda]

Re : Majuscule automatique

Bonsoir le fil, boby53

Essaie avec la police "Castellar", pour les cellules concernées, c'est très pratique.

A plus

 

[Mytå]

Re : Majuscule automatique

Salut le forum

Code à mettre dans le module de ta Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1, B2, C3")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If

Mytå

 

[boby53]

Re : Majuscule automatique

Merci Myta !

ça fonctionne

Bonne nuit