Passage à minuscules

[Tungstene]

Bonjour,

Je veux passer le contenu de plusieurs cellules de majuscules en minuscules.

Mon code ne foncitonne pas. Il s'éxécute lorsque je clique sur un bouton :

Range('H2:H65535').Value = LCase(Range('H2:H65535').Value)

Merci.

 

[excalibur]

bonjour Tungstene le forum un bout de code a adapter Sub Macro1()
Application.ScreenUpdating = False
Dim Cell As Range
For Each Cell In Range('h2:h50')
Cell = LCase(Cell)
Next
End Sub'salutations

 

[Tungstene]

Merci ça marche mais faut rajouter

Application.ScreenUpdating = True à la fin du code