Majuscules - Minuscules !!!

3 réponses
Avatar
gtoukc
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

3 réponses

Avatar
DanielCo
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
Avatar
gtoukc
Super Nickel...
Merci





"DanielCo" a écrit dans le message de news:
k6tf02$fiq$
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




Avatar
Tatanka
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" a écrit dans le message de news: 509236a4$0$23426$
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