Majuscules - Minuscules !!!

Bonjour,
Sub test2()
Dim c As Range
For Each c In Selection
c.Value = LCase(c.Value)
Next c
End Sub
Cordialement.
Daniel

Bonjour,

Comment procéder pour convertir des données saisies en majuscule en données
minuscule à l'aide d'une macro ???Merci pour vos conseils.
Francis

Super Nickel...
Merci
Fr@ncis




"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
k6tf02$fiq$1@speranza.aioe.org...

Bonjour,
Sub test2()
Dim c As Range
For Each c In Selection
c.Value = LCase(c.Value)
Next c
End Sub
Cordialement.
Daniel

Bonjour,

Comment procéder pour convertir des données saisies en majuscule en
données minuscule à l'aide d'une macro ???Merci pour vos conseils.
Francis

Bonsoir,

Et pour passer de MAJ à min et inversement :

Sub Maj_Min_Maj()
For Each v In Selection
mm = (v.Value = UCase(v))
v.Value = IIf(mm, LCase(v), UCase(v))
Next v
End Sub

Serge

"gtoukc" <gtoukc@wanadoo.fr> a écrit dans le message de news: 509236a4$0$23426$ba4acef3@reader.news.orange.fr...

Bonjour,

Comment procéder pour convertir des données saisies en majuscule en données minuscule à l'aide d'une macro ???Merci pour vos
conseils.
Francis