XL 2016 VBA texte casse majuscules

[chifounou]

Bonjour,

Pour mettre à la racine de ma feuille suite à évènement de modification de cellule, j'aimerais que l'orquestra j'entre du texte, celui-ci soit automatiquement convertí en majuscules

2 exemples différents :
off >>> OFF
TExTe >>> TEXTE
(à toute fin utile, il n'y aura jamais de lettres minuscules saisies avec accent)

Avez-vous un petit code pour cette métamorphose ? Merci beaucoup

 

[ROGER2327]

Bonjour chifounou.

À essayer :​

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Cel As Range
  If Cible.Cells.Count < 500000 Then
    Application.EnableEvents = False
    For Each Cel In Cible.Cells
      If Not IsEmpty(Cel.Value) Then If Not Cel.HasFormula Then Cel.Value = UCase(Cel.Value)
    Next
    Application.EnableEvents = True
  End If
End Sub

Bonne journée.

ℝOGER2327
#8507

Dimanche 8 Pédale 144 (La machine à inspirer l’amour - fête Suprême Tierce)
12 Ventôse An CCXXV, 1,2005h - orme
2017-W09-4T02:52:52Z

 

[chifounou]

Parfait. Merci Roger. Bonne journée