VBA - Macro Majuscule dans une colonne

Version imprimable

Bonjour,

La macro fonctionnent très bien, le seul problème est lorsque je supprime les données de plus d'une case dans la colonne, la macro plante.
Quelqu'un a t-il une solution ?

La Macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
 
        Application.EnableEvents = False
        If Not Intersect(Target, Columns("C")) Is Nothing Then
        Target = UCase(Target)
        End If
 
        If Not Intersect(Target, Columns("H")) Is Nothing Then
        Target = UCase(Target)
        End If
 
        If Not Intersect(Target, Columns("D")) Is Nothing Then
        Target = UCase(Target)
        End If
        Application.EnableEvents = True
 
    End Sub

Cordialement,

DELCASSE Anthony

Citation:

Envoyé par Antho-

Bonjour,

Essayez :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
        If Target.Count > 1 Then Exit Sub
 
        Application.EnableEvents = False
        If Not Intersect(Target, Columns("C")) Is Nothing Then
        Target = UCase(Target)
        End If
 
        If Not Intersect(Target, Columns("H")) Is Nothing Then
        Target = UCase(Target)
        End If
 
        If Not Intersect(Target, Columns("D")) Is Nothing Then
        Target = UCase(Target)
        End If
        Application.EnableEvents = True
 
End Sub

02/08/2017, 10h11
Antho-

ça a l'air de fonctionner, Merci !