Format cellules texte automatiquement en majuscule

Bonjour à tous et à chacun,

Dans un groupe de cellule d'une feuille d'un classeur Excel, je souhaite que le texte soit automatiquement écrit en majuscule quand bien même il aurait été écrit en minuscule. Cette transformation doit être automatique, par exemple au moment où chaque cellule du groupe est validée.

Ce sujet revient maintes fois dans le forum.... Cependant, après avoir lu des quantités de messages, je ne suis pas arrivé à reproduire les solutions proposées ou bien elles ne répondaient pas centralement à ma question..

Je ne souhaite pas une solution de type" Validation des données" qui aurait l'intérêt d'alerter l'utilisateur mais qui le contraindrait à recommencer la saisie.

Je fais donc appel aux membres du forum pour me proposer une solution à partir du fichier joint. Je remercie d'avance la ou les personnes qui se pencheront sur ma demande.

Cordialement,

Patrick75

Bonjour

a testé sur ta feuille 1 (worksheet)

ci-joint

Private Sub Worksheet_Change(ByVal Target As Range)
' mettre en majuscule des cellules de f14 à g20
' Déclaration de la variable
Dim Cell As Range

Application.EnableEvents = False
If Not Intersect(Target, [f14:g20]) Is Nothing Then
    For Each Cell In Target.Cells
        Cell.Value = UCase(Cell.Value)
    Next Cell
End If
Application.EnableEvents = True  ' facultatif

End Sub

EDIT: merci pour tes compliments Patrick75 (post ci-dessous)

crdlt,

André

André,

il est bon de se lever matin en ayant la solution à sa question

ta proposition de code VBA fonctionne à merveille !

Merci beaucoup d'avoir pris le temps de répondre à ma demande.

Bon dimanche

Bien cordialement,

patrick75