majuscule minuscule

[cecile]

bonjour je cherche comment changer de minuscule en majuscule sur une seul page nom de la page feuil 1
Merci de votre aide

cecile



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.Value = UCase(Target.Value)
End Sub

 

[Eric C]

Bonjour le forum
Bonjour Cécile


Places ton code dans le module de la feuille en question, en l'occurrence Feuil1 ainsi cela ne s'appliquera qu'à la feuille 1.
Private Sub Worksheet_SelectionChange ....
@ ++ Eric C

 

[cecile]

rebonjour

ça marche pas avec ce code



Private Sub Worksheet_SelectionChange(ByVal Sh As Object, ByVal Target As Range)
Target.Value = UCase(Target.Value)
End Sub

je comprend pas
merci de votre aide

 

[Eric C]

Re le forum
Re bonjour Cécile

Autant pour moi, je suis allé trop vite (je ne peux plus me connecter au boulot alors lors d'une pause c'est toujours trops speed ....)
Donc pour que le changement s'effectue à la sortie de la cellule, il faut mettre ton code dans :

Private Sub Worksheet_Change(ByVal Target As Range)
et non Worksheet_SelectionChange

@ ++ Eric C