Short cut pour majuscules

[platina]

Bonjour,
est il possible passer du texte normale au format en majuscules avec un short cut?
Example: j'ai un tableau avec des mots en miniscule et je voudrais les convertir en majuscule sans avoir à tout réecrire...

Merci d'avance pour votre aide...

 

[abcd]

Re : Short cut pour majuscules

Bonjour,

En dehors de la fonction MAJUSCULE ou une macro, je ne vois rien d'autre.

abcd

 

[vbacrumble]

Re : Short cut pour majuscules

Bonjour tous


Une petite macro basique

Sub majmin()
Dim c As Range
choix = InputBox("majuscule=1, minuscule=2", "MAJ/MIN", 2)
For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 2)
c.Value = Switch(choix = 1, UCase(c.Text), choix = 2, LCase(c.Text))
Next
End Sub

A+

 

[tototiti2008]

Re : Short cut pour majuscules

Bonjour à tous,

Dans Word avec Maj + F3 (ou format - Modifier la casse), mais pas dans Excel...

 

[Escargot04]

Re : Short cut pour majuscules

Bonjour tous


Une petite macro basique

Sub majmin()
Dim c As Range
choix = InputBox("majuscule=1, minuscule=2", "MAJ/MIN", 2)
For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 2)
c.Value = Switch(choix = 1, UCase(c.Text), choix = 2, LCase(c.Text))
Next
End Sub

A+

Bonjour vbacrumble,

Je débute vraiment avec les macros, en gros je n'y comprend pas grand chose, mais je souhaite tester ce code pour voir s'il répond à mon besoin :
Tout convertir en majuscule
Alors comment utiliser ce code
Un lien vers un tuto explicatif simple et très clair est le bienvenue
D'avance merci

 

[tototiti2008]

Re : Short cut pour majuscules

Bonjour à tous,

sinon sans macro :
exemple : mettre les mots de la colonne A en majuscules :
en B1 :
=Majuscule(A1)
recopier vers le bas
Copier la colonne B
Sélectionner A1
Menu Edition - Collage spécial
Cocher valeur
OK

 

[JCGL]

Re : Short cut pour majuscules

Bonjour à tous,

Tu as aussi cet Addon qui te rajoute un Menu Contextuel sur le click droit

mDF MajXL v2.0 : myDearFriend! Excel Pages

A+ à tous

 

[Escargot04]

Re : Short cut pour majuscules

=Majuscule(A1) => Collage spécial

Merci pour vos réponses, je m'en suis finalement sorti avec cette méthode

Je vais voir de suite le lien de JCGL

Merci