Cellule en majuscule

[CmzxNéné]

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 :

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

 

[Pierrot93]

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

 

[CmzxNéné]

Re : Cellule en majuscule

Bonjour Pierrot93,

Non, ça ne vient pas de là : j'ai activé toutes les macros (même si c'est potentiellement dangereux).
Merci
Cdt

 

[Pierrot93]

Re : Cellule en majuscule

Re,

la macro événementielle se déclenche t-elle ? pour le vérifier place un point d'arrêt en début de procédure....

 

[CmzxNéné]

Re : Cellule en majuscule

Re,

J'ai donc mis un point d'arrêt en début de procédure mais rien ne se passe.
Ce fichier fonctionne parfaitement sous 2003.
Cdt

 

[Pierrot93]

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 :

Sub test()
Application.EnableEvents = True
End Sub

 

[job75]

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 :

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+

 

[CmzxNéné]

Re : Cellule en majuscule

Merci Job75,

Ton code marche bien sous 2007.

Merci également à Pierrot93 pour son aide.
@+