Feuille XLS en majuscule

Bonjour,

Oui :
For each c in selection
c.Value = UCase(c)
next

Camille

-----Message d'origine-----
Bonjour,

Comment convertir tout ce qui est écrit dans une feuille
xls, en majuscule, à l'appui d'un bouton en VBA ??

Merci d'avance.
.

Bonjour Jean Claude
Pour compléter la réponse d'Ellimac et s'il s'agit de l'ensemble des
cellules de la feuille active je te propose :
Sub MetEnMaj()
For Each Cellule In ActiveSheet.UsedRange.Cells
Cellule.Value = UCase(Cellule.Value)
Next Cellule
End Sub
Et pour faire le contraire (soit tout en minuscules) :
Sub MetEnMin()
For Each Cellule In ActiveSheet.UsedRange.Cells
Cellule.Value = LCase(Cellule.Value)
Next Cellule
End Sub

Cordialement
Pascal

"JCLAUDE" <jean-claude.razzanti@noos.fr> a écrit dans le message de news:
03d001c3c538$8e8c84c0$a401280a@phx.gbl...
Bonjour,

Comment convertir tout ce qui est écrit dans une feuille
xls, en majuscule, à l'appui d'un bouton en VBA ??

Merci d'avance.