minuscule

[cocci]

bonjour le forum,

lorsque j'execute ma macro je souhaiterais que les cellules à laquelle elle se réfère soient toutes écrite en minuscule . est ce possible?

merci.

 

[myDearFriend]

Bonjour Cocci,

Pour récupérer la valeur d'une cellule convertie en minuscule :

Exemple : en "A1" j'ai "EXCEL DOWNLOADS"

Dim MaVariable as string
MaVariable=LCase(range("A1").value)

et MaVariable contiendra "excel downloads"


A l'inverse, UCase() retournera la valeur convertie en MAJUSCULE.


Cordialement.
Didier

 

[Bernard]

Bonjour Cocci et MyDearFriend

J'ai testé les bouts de macro de MyDearFriend et ils marchent super.

Voila mon essai :

Sub MiseEnForme()
Dim MaVariable As String

'Texte mis dans "A1"en Majuscule
Range("A1") = "BONJOUR"

'Mise en minuscule du texte dans "B1"
MaVariable = LCase(Range("A1").Value)
Range("B1") = MaVariable

'Mise en majuscule du texte dans "C1"
MaVariable = UCase(Range("A1").Value)
Range("C1") = MaVariable

End Sub



Cordialement

Bernard

 

[Lord Nelson]

Salut à tous,

Et pour compléter le sujet :

...
'la première lettre en majuscule et le reste en minuscules dans "D1"
MaVariable = LCase(Range("A1").Value)
Mid(MaVariable, 1, 1) = UCase(Left(MaVariable, 1))
Range("D1") = MaVariable

End Sub

A+
LN

 

[Creepy]

Salut all,

Lord Nelson il y a plus ismple pour faire ce que tu dis : la commande Excel Proper !

voila un exemple

Dim Majus1 As Variant
On Error Resume Next
For Each Majus1 In Selection
Majus1.Value = Application.WorksheetFunction.Proper(Majus1.Value)
Next
End Sub

++

Creepy

 

[Lord Nelson]

Merci Creepy, je ne connaissais pas cette fonction.
Bonne nuit à tous !
LN