Code pour mettre en majuscule

[Hugues]

Bonjour,

Je souhaiterais que la valeur dans une cellule soit toujours en majuscule. Pour cela je pensais mettre comme instruction le code suivant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Sheets("Sommaire").Range("F4") = UPPER(Sheets("Sommaire").Range("F4"))

End Sub

mais le code ne fonctionne pas.

Pouvez vous m'aider ?

Merci par avance,

Hugues

 

[pierrejean]

Re : Code pour mettre en majuscule

Bonjour Hugues

Teste

Sheets("Sommaire").Range("F4") = Ucase(Sheets("Sommaire").Range("F4"))

 

[Pierrot93]

Re : Code pour mettre en majuscule

Bonjour,

regarde ceci :

Range("F4") = UCase(Range("F4"))

A noter pas utile de préciser le nom de la feuille si le code est dans un module de feuille. D'autre part, pas sur que ce soit le bon événement que tu veuilles utiliser.... Et l'argument "target" représente dans les procédures la cellule concernée par l'événement...
bon après midi
@+

Edition : bonjour PierreJean🙂

 

[Hugues]

Re : Code pour mettre en majuscule

Mzerci à vous tous pour l'aide