XL 2016 VBA texte casse majuscules

chifounou · 2 Mars 2017

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 · 2 Mars 2017

Bonjour chifounou.

À essayer :

VB:

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 · 2 Mars 2017

Parfait. Merci Roger. Bonne journée

XL 2016 VBA texte casse majuscules

chifounou

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

chifounou

XLDnaute Occasionnel

Discussions similaires

XL 2016 VBA texte casse majuscules

chifounou

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

chifounou

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency