Mise en majuscule d'une cellule
Résolu
gif50
Messages postés
30
Statut
Membre
-
gif50 Messages postés 30 Statut Membre -
gif50 Messages postés 30 Statut Membre -
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
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
- Majuscule - Guide
- Mise en forme conditionnelle excel - Guide
- É majuscule - Guide
- Mettre en majuscule - Guide
- Mise en forme tableau word - Guide
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