Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Cellule en majuscule

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 !

CmzxNéné

XLDnaute Nouveau
Bonjour,

Un petit souci sur 2007.
En effet, sous 2003 j'avais une colonne qui était formatée en VBA pour qu'après la saisie de l'utilisateur la cellule se mette en majuscule.
Ce même fichier, au format xls, lorsque je l'ouvre sous 2007, les cellules ne se mettent plus en majuscules.
J'ai fait des recherches mais rien trouvé de concluant.
Voici le code que j'utilisais sous 2003 :

Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
    If Not Intersect(Target, Range("D2:D50")) Is Nothing Then
        Target.Value = UCase(Target.Value)
    End If
End Sub

Merci de votre aide.
Cdt
 
Re : Cellule en majuscule

Bonjour,

A tout hasard regarde du coté de la sécurité, si l'exécution des macros est autorisée... pas 2007 ne pourrais te dire où regarder exactement... mais c'est peut être une piste...

bonne journée
@+
 
Re : Cellule en majuscule

Re,

essaye de fermer complètement excel et re-lance-le. sinon, dans un module standard, exécute la ligne de code ci-dessous :
Code:
Sub test()
Application.EnableEvents = True
End Sub
 
Re : Cellule en majuscule

Bonjour CmzxNéné, salut Pierrot,

Ce fichier fonctionne parfaitement sous 2003

Parfaitement c'est beaucoup dire : sur Excel 2003 la macro boucle 208 fois à chaque modification.

Normal puisque la feuille est modifiée, ça pourrait en fait boucler indéfiniment.

Essayez donc ce code plus classique :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2:D50")) Is Nothing And Target.Count = 1 Then
  If Target <> UCase(Target) Then Target = UCase(Target)
End If
End Sub

A+
 
- 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

Réponses
9
Affichages
505
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
4
Affichages
584
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…