Comment convertir du texte en majuscule?

[LeFennec]

Bonjour,

Est-il possible de faire en sorte que, quand je tape du texte en minuscule dans une cellule, il se mette automatiquement en majuscule?

Merci

 

[dg62]

Bonjour leFennec



=majuscule(texte)

 

[LeFennec]

Si je tape cette formule dans chaque cellule, ça me prendra beaucoup plus de temps que de taper directement le texte en majuscule.

N'y-a-t-il pas un moyen plus simple?

Si je dois faire une macro, quel est le code? (je n'y connais pas grand chose en VBA)

Merci

 

[dg62]

re

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim majus, minus As String

minus = Selection.Value
majus = UCase(minus)
Selection.Value = majus

End Sub

adapté d'un code trouvé sur internet

 

[MichelXld]

bonjour LeFennec , bonjour Didier

ci joint deux autres solutions

Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Target = Format(Target, '>')
End Sub


bonne soiree
MichelXld

 

[dg62]

re


Bravo MichelXLD


Bcp plus efficace que moi

 

[C@thy]

voici un ancien programme qui fait ça. [file name=Majus2.zip size=48480]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Majus2.zip[/file]

 

[_Thierry]

Bonsoir C@thyec, Michelec, Didierec, leFennec, leForumec !

Sub TestStrConv()
Dim i As Long
Dim x() As Byte
x = StrConv('Je ne connaissais pas la Function StrConv, très interressante C@thy', vbFromUnicode)    ' Convert string.
    For i = 0 To UBound(x)
        Debug.Print x(i)
    Next
End Sub

Bonne Soirée
@+Thierry

 

[JCA06]

Sacré brochette dans ce post !

Bonsoir à tous,

Moi, j'ignorait toutes ces fonctions mais j'avais trouvé une bidouille lorsque j'avais besoin de ce type de conversion, dans ce sens ou en sens inverse d'ailleurs : un copier/coller dans Word qui fait ça très bien :woohoo:

C'est pas très académique, mais j'ai horreur de devoir faire une travail qui a déjà été fait !

Bonne soirée à vous.

 

[andré]

Salut à vous tous,

Moi j'aime les solutions simples !

Lorsque ce problème survient, de vouloir écrire en majuscules, j'enfonce la touche clavier Caps Lock (sur mon clavier au-dessus de de la touche Maj), je tape en minuscules et cela s'écrit en majuscules.

Mais c'est paut-être un peu trop simple (lol).

Ândré.

 

[C@thy]

Ah ben ça alors, j'en reviens pas!!!!
j'ai appris quelquechose au GRAND THIERRY de Monac!!!
Pincez-moi, je rêve!!!!

JCA06 c'est pas bien, dans XL tu fais : (colonne d'à côté)
=MAJUSCULE(A1) (ou MINUSCULE ou NOMPROPRE) ensuite tu fais un copier/collage spécial valeur
et tu peux effacer la colonne A

J'en profite pour dire à @+Thierry que dans OOo il suffit d'aller dans le menu Format/Casse pour convertir Majuscules en minuscules et lycée de Versailles. Mékeskifou Gilles Bates???

 

[LeFennec]

Bonjour à toutes et à tous,

Merci beaucoup pour vos diverses interventions.

Le coup du CapsLock d'André m'a beaucoup plu. Et le pire, c'est que, dans le cas qui m'intéresse, c'est la solution que je vais utiliser 🙂 😛

Ceci dit, merci aux autres pour vos macros. Je vais les étudier de près.
Il faut vraiment que je trouve le temps de me mettre au VBA ...

Bonne journée

Message édité par: LeFennec, à: 18/03/2005 09:07

 

[JCA06]

Bonjour le Forum,

Moi aussi j'aime beaucoup la solution d'André et c'est vrai que c'est celle que j'utilise le plus.

Maintenant, lorsque l'on récupére les données et qu'on veut les modifier, ça marche moins bien avec cette technique !

Pour C@thy : promis, je le ferai plus... maintenant que je connais toutes ces astuces pour le faire en restant fidèle à Excel.

Bonne journée à tous.

 

[C@thy]

dans le même genre, un autre 'tit programme, mais effectivement enfoncer CpsLock est plus simple, sauf s'il s'agit de convertir beaucoup de données, comme le dit JCA06.

 

[andré]

Salut à vous tous,

Petit conseil : il faut lire attentivement la question !

'Lorsque je tape un texte en minuscules ...'

Mais pourquoi faire facile quand difficile est aussi possible !
L'arbre cache souvent la forêt.

Ândré.