changer la casse dans une cellule

Bonjour Pierre,

Si tu veux le faire au niveau de la feuille de calcul :

Si dans A1 tu as AAA place cette formule dans B1 : = Minuscule(A1)

Dans un deuxième temps : Copier la cellule B1, Collage spécial - Valeur sur la cellule A1 et tu effaces la cellules B1
Évidemment, tu peux faire la même chose sur une sélection de l'ensemble de la colonne.

Sinon tu dois passer par une procédure en VBA.


Salutations!




"Pierre" <pierre@hbi.com> a écrit dans le message de news:cc16pf$ut4$1@news-reader1.wanadoo.fr...
Bonjour,

Est-il possible dans excel 97 de changer la casse? (ex: AAA--->aaa)

Merci

Pierre

ok, merci beaucoup, ca marche super!!

Pierre

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23a4$rg3XEHA.2824@TK2MSFTNGP10.phx.gbl...

Bonjour Pierre,

Si tu veux le faire au niveau de la feuille de calcul :

Si dans A1 tu as AAA place cette formule dans B1 : = Minuscule(A1)

Dans un deuxième temps : Copier la cellule B1, Collage spécial - Valeur
sur la cellule A1 et tu effaces la cellules B1

Évidemment, tu peux faire la même chose sur une sélection de l'ensemble de
la colonne.

Sinon tu dois passer par une procédure en VBA.


Salutations!




"Pierre" <pierre@hbi.com> a écrit dans le message de
news:cc16pf$ut4$1@news-reader1.wanadoo.fr...

Bonjour,

Est-il possible dans excel 97 de changer la casse? (ex: AAA--->aaa)

Merci

Pierre

Bonjour Pierre,

Comme le précisait Denis, tu peux effectivement passer par une proc VBA, du
style:

-s'il sagit de mettre en majuscule toutes les constantes présentes sur un
onglet
Sub maJ()
Dim c As Range
Application.ScreenUpdating = False
Cells.SpecialCells(xlCellTypeConstants, 23) = UCase(Cells _
.SpecialCells(xlCellTypeConstants, 23))
End Sub

-ou pour une sélection en particulier:
Sub maJ()
Dim c As Range
Application.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each c In Selection
c.Value = UCase(c)
Next c
End Sub

-pour les minuscules, tu pourrais utiliser:
Sub minU()
Dim c As Range
Application.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each c In Selection
c.Value = LCase(c)
Next c
End Sub

-ou pour une majuscule en début de phrase
Sub maJDeb()
Dim c As Range
Application.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each c In Selection
If Application.IsText(c) Then _
c.Value = UCase(Left(c.Value, 1)) _
& LCase(Mid(c.Value, 2, Len(c.Value)))
Next c
End Sub


ChrisV


"Pierre" <pierre@hbi.com> a écrit dans le message de
news:cc16pf$ut4$1@news-reader1.wanadoo.fr...

Bonjour,

Est-il possible dans excel 97 de changer la casse? (ex: AAA--->aaa)

Merci

Pierre