XL 2019 forcer les majuscules dans les cellules

My<3

XLDnaute Junior
Bonjour, j'ai un fichier a partir duquel j'entre des informations et que j'envois par mail. Pour que ce soit visuellement uniforme je veux forcer le format des cellules ou sont inscrit les informations, en majuscule.
J'ai trouver cette formule et ca fait planter mon fichier avec un erreur en lien avec Range Formule trouver sur le forum
Est-ce que quelqu'un peu me donner une piste d'où provient le problème?
 

Pièces jointes

  • _MiseEnFabExemple.xlsm
    180.4 KB · Affichages: 7
Solution
Si l'on fait des entrées multiples, par exemple par copier-coller, utiliser :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    Set Target = Intersect(Target, Range("A1:J47"))
    If Target Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each Target In Target 'si entrées multiples (copier-coller)
        Target = UCase(Target)
    Next
    Application.EnableEvents = True
End Sub

job75

XLDnaute Barbatruc
Bonjour My<3,

Il faut désactiver les évènements et les réactiver après la modification :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target(1), Range("A1:J47")) Is Nothing Then Target(1) = UCase(Target(1))
    Application.EnableEvents = True
End Sub
A+
 

job75

XLDnaute Barbatruc
Si l'on fait des entrées multiples, par exemple par copier-coller, utiliser :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    Set Target = Intersect(Target, Range("A1:J47"))
    If Target Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each Target In Target 'si entrées multiples (copier-coller)
        Target = UCase(Target)
    Next
    Application.EnableEvents = True
End Sub
 

Discussions similaires

Réponses
6
Affichages
263