Mise en majuscule d'une cellule

Résolu/Fermé

gif50 Messages postés 29 Date d'inscription mercredi 25 juin 2008 Statut Membre Dernière intervention 5 juillet 2012 - 26 août 2009 à 17:51
gif50 Messages postés 29 Date d'inscription mercredi 25 juin 2008 Statut Membre Dernière intervention 5 juillet 2012 - 27 août 2009 à 10:13

Bonjour,
Je désire mettre une cellule en majuscule après la saisie de l'utilisateur, j'ai donc utilisé la fonction suivante :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e1:f11" )) Is Nothing Then Target = UCase(Target)
End Sub

qui fonctionne parfaitement.
Mon problème survient lorsque j'efface la valeur de la cellule, j'ai l"erreur suivante :

Erreur d'éxecution '13'
Incompatibilité de type

lorsque je clique sur débogage il surligne en jaune :
Target = UCase(Target)

Quelqu'un aurait-il une idée sur ce problème ?

Merci

Gif50

A voir également:

Mise en majuscule d'une cellule
Mise en forme conditionnelle excel - Guide
Aller à la ligne dans une cellule excel - Guide
É majuscule - Guide
Mise a jour chrome - Accueil - Applications & Logiciels
Mettre un texte en majuscule - Guide

1 réponse

Réponse 1 / 1

BloodyAngel Messages postés 1482 Date d'inscription mardi 21 juin 2005 Statut Contributeur Dernière intervention 21 juin 2018 402
26 août 2009 à 17:58

Hello,
à mon avis il faut vérifier si la cellule est vide : un truc genre
If Target = Null Or Target = "" Then
...
End if

Ou alors, mettre On Error Resume Next :o) Pas très conventionel mais bon...

gif50 Messages postés 29 Date d'inscription mercredi 25 juin 2008 Statut Membre Dernière intervention 5 juillet 2012
27 août 2009 à 10:13

Bonjour BloodyAngel et merci pour ta réponse,

J'ai bien essayé en testant la cellule vide : Target = Null or Target = "" mais cela ne fonctionne pas.
Par contre la commande On Error Resume Next fonctionne puisque l'on passe outre l'erreur. Pour l'instant j'utilise cette méthode, mais ça n'est pas très conventionnel.

Cordialement,

Gif50

Discussions similaires

excel fractionner une cellule horizontalement

Excel : colorer une cellule sous condition d'une autre ?