Macro pour forcer la majuscule

Bonjour,

je voudrais savoir comment avoir une macro qui force la saisie de la majuscule de la plage de données "B3 jusqu'à B2000"

Merci

Bonjour,

Macro à mettre dans le code vba de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B3:B2000")) Is Nothing Then
    Application.EnableEvents = False
    Target = UCase(Target)
    Application.EnableEvents = True
End If

End Sub

Cordialement,

Bonjour,

je viens d'avoir un soucis avec cette procédure ,ci-joint la capture du message d'erreur. je tiens à préciser que je suis en office 2010.

J'ai eu cette erreur en essayant de faire un glissé sur une autre colonne et à chaque fois j'ai ce message.

une idée?

Merci

Bonjour

Tu dois avoir 2 fois la même procédure Worksheet_Change

Il faut combiner les deux procédures

Bonjour

j.sparo a écrit :

je tiens à préciser que je suis en office 2010.

Merci de changer ta version car tu indiques Excel 2003

Amicalement

Nad

La formule fonctionne a merveille pour moi. Par contre, si j'efface en bloc (je sélectionne une plage de cellule) la macro plante.

Y a t-il moyen de corriger le tout?

Bonsoir

je crois que le + simple est d'utiliser une police qui ne connait que les majuscules

au moins pas de pb de plantage de macro .....

je t'en envoi une

@+

Mag

https://www.cjoint.com/c/CJqvvnuzq8C