Ecriture forcee en lettre minuscule

[BELLON]

Bonjour,
Est il possible de bloquer l'écriture d'une cellule en lettre minuscule.
Merci d'avance de votre aide.

 

[pierrejean]

bonjour BELLON

avec cette macro à mettre dans Worksheet

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then Target.Value = LCase(Target.Value)
End Sub

Adresse de cellule à adapter

 

[BELLON]

Merci pierrejean,
Je vais essayer ta proposition.