De: Fr&eacute;d&eacute;<frederic.sigonneau@wanadoo.fr>ric Sigonneau 
Objet: Re: Comment transformer des majuscules en minuscules
Date : lundi 17 juillet 2000 21:30

J'ai aussi en r&eacute;serve (grâce à l'opiniâtre testologue officiel du forum,
jps pour ne pas le citer) une macro d'il y a quelques mois, qui fait
parfaitement ce que demande Michel, et même plus.
Elle avait &eacute;t&eacute; post&eacute; par une contributrice dont le nom de code sur ce
forum est "Catherine".
Un quelconque rapport avec toi ? :-)))

FS

[copier/coller]
Sub ChangerLaCasse()
Dim LaColonne As String
Dim LaCasse As Integer
Dim Cell As range

On Error GoTo CaCoince

LaColonne = _
Application.InputBox( _
    "Ecrire la (les) lettres(s) de la colonne à convertir ", Type:=2)

LaCasse = _
Application.InputBox( _
    "Choisir le type de conversion pour la colonne " & _
	UCase(LaColonne) & vbCrLf & _
    "  1 : en MAJUSCULES" & vbCrLf & _
    "  2 : en minuscules" & vbCrLf & _
    "  3 : Première Lettre En Majuscules" & vbCrLf & _
    "Entrer 1 ou 2 ou 3", Type:=1)

Select Case LaCasse
    Case 1
        For Each Cell In Columns(LaColonne). _
                SpecialCells(xlCellTypeConstants, xlTextValues)
            Cell = UCase(Cell)
        Next Cell
    Case 2
        For Each Cell In Columns(LaColonne). _
                SpecialCells(xlCellTypeConstants, xlTextValues)
            Cell = LCase(Cell)
        Next Cell
    Case 3
        For Each Cell In Columns(LaColonne). _
                SpecialCells(xlCellTypeConstants, xlTextValues)
            Cell = Application.Proper(Cell)
        Next Cell
    Case Else
        MsgBox "Fallait saisir 1 ou 2 ou 3"
End Select

Exit Sub
CaCoince:
MsgBox "Y a quequechose qui coince là-dedans," & _
        "j 'y retourne imm&eacute;diatement "

End Sub
[fin copier/coller]

Catherine a &eacute;crit :
> 
> il n'y a pas l'&eacute;quivalent de Shift-F3 dans XL. dommage.
> 
> Si vraiment tu en as grand besoin, ça peut s'envisager par
> programmation.
> 
> Autrement, dans les solutions palliatives, il y a :
> la fonction =NOMPROPRE(tacellule) pour mettre l'initiale en Majuscules.
> la fonction =MAJUSCULE(tacellule) pour mettre en majuscules
> mais elles utilisent une deuxième cellule.
> La possibilit&eacute; d'utiliser une police qui n'a pas de minuscules (si tu en
> as), comme
> CopperPlate Gothic, et aussi [cit&eacute;s r&eacute;cemment sur ce forum] Felix
> titling et Engravers pour les polices à empatement (genre Times...) et
> CornerstoneRegular et Metro Regular pour les polices sans empatements
> (genre Arial).
> 
> Autre bidouille : tu as &eacute;crit toute une s&eacute;rie de mots en minuscules et
> tu t'aperçois un peu tard que tu les voudrais en majuscules (ou
> l'inverse).
> Tu s&eacute;lectionnes la plage concern&eacute;. Tu vas dans Outils Options Liste
> personnalis&eacute; : Importer.
> Tu r&eacute;-&eacute;cris le premier mot en Majuscules (ou l'initiale...) et puis tu
> tires la poign&eacute; de recopie par-dessus le reste : il va te recopier ta
> liste en respectant la casse.
> N'oublie pas ensuite d'aller virer ta liste personnalis&eacute;.
> 
> --
> Gros bisous, Kenavo (et Miaou).
> Catherine (et Sainte Zaza)
> 
><michel.news@bluewin.ch> Michel Corpataux  a &eacute;crit dans le message :
> 3972c612@hcwe67...
> > Bonjour,
> >
> > Dans une feuille, j'ai un s&eacute;rie de mots en majuscules que j'aimerai
> avoir en
> > minuscules, ou avec la première lettre majuscule et les autres en
> > minuscules.
> >
> > Dans word, je connaissais la fonctione 'SHIFT' + 'F3' mais cela ne
> > fonctionne pas sous Excel...
> >
> > Quelqu'un a-t-il une id&eacute; ?
> >
> > Merci
> >
> > Michel
> >
> > www.mcx.ch
> >
> >

-- 
Fr&eacute;d&eacute;ric Sigonneau
Gestions de temps : http://perso.wanadoo.fr/frederic.sigonneau
Time managements : http://perso.wanadoo.fr/frederic.sigonneau/index2.htm