Conversion lettres minuscules en lettres majuscules

J

jb

Guest
Bonjour,

je voudrais savoir comment faire pour convertir un texte ecrit en minuscule dans une cellule XL en un texte ecrit en majuscule dans cette meme cellule.

Je souhaiterais faire cela grace a une macro Visua Basic.

Merci de me repondre,
A+

JB.
 
S

STéphane

Guest
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>
 

Discussions similaires

Statistiques des forums

Discussions
303 561
Messages
2 012 256
Membres
219 217
dernier inscrit
Hamalia jacques