macro majuscule

[samuel]

bonjour le forum,

j'ai réalisé une macro qui permet de mettre en majuscule le texte contenu dans la cellule sélectionnée.

voici le code :

Sub majuscule()

a = ActiveCell.Value
ActiveCell.FormulaR1C1 = "=UPPER(" & Chr(34) & a & Chr(34) & ")"

End Sub

Je souhaiterai modifier cette macro pour que si je sélectionne toute une zone de texte, elle mette en majuscule toute la zone (ici, elle ne met en majuscule que la première cellule).

Cela ne doit pas être très compliqué, mais je ne suis qu'un débutant en macros.

merci d'avance

samuel

 

[JMG]

bonjour



Sub majuscule()
For Each Cell In Selection
If Cell.HasFormula = False Then
Cell.Value = UCase(Cell.Value)
End If
Next
End Sub

JMG

 

[samuel]

merci du coup de main