bonjour
en formule, c'est les fonctions de feuille de calcul majuscule, miniscule et nompropre qui sont utiles pour ce genre de tâches
en macro
il te faudra peut-être boucler sur tes cellules si tu veux appliquer cette action à plusieurs cellules
for each cl in selection
cl.value=ucase(cl.value)
next cl
bye
stephane
en prime un exemple par catherine
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édiatement "
End Sub
je t'en donne une autre à mettre dans le code d'une feuille pour passer en majuscule une cellule une fois saisie
Private Sub Worksheet_Change(ByVal Target As Excel.range)
Application.enableevents = False
target = ucase(target)
Application.enableevents = True
End Sub
d'autres exemples là : <http://216.239.37.100/search?q=cache:jkY8_fPJ1iwC:xlbysteph.free.fr/aideinformatique/actionchaine.htm+xlbysteph+ucase&hl=fr&ie=UTF-8>
