Metttre une cellule en majuscule en VBA

Bonjour

J'aimerais que lorsque je saisi un texte dans une cellule celui-ci soit automatiquement mis en majuscule.

J'ai bien fait une macro mais celle-ci ne fonctionne pas. Ou est le problème ? Merci.

Bonjour,

La procédure événementielle doit être placée dans le module de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Target.Value = UCase(Target.Value)
End Sub

Je te remercie pour ce code, mais ce que j'aimerais c'est n'avoir qu'une seule cellule qui se met en majuscule exemple la cellule A1.

Salut PapouMAC, Jean-Eric,

... ou, dans le module 'ThisWorkBook', s'écrire dans la bonne procédure si tu veux que ce code s'applique à toutes les feuilles de ton fichier.

Sub Workbook_SheetChange

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
'
End Sub

A+

RE,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address="$A$1" Then
       Target.Value = UCase(Target.Value)
    End IF
End Sub

Je te remercie Jean-Eric, c'est le code qu'il me faut. Encore merci.