Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim majus, minus As String
minus = Selection.Value
majus = UCase(minus)
Selection.Value = majus
End Sub
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]
Sub TestStrConv() Dim i AsLong Dim x() AsByte
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 EndSub
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 !
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.
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???
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.