XL 2019 forcer les majuscules dans les cellules

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
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+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour