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