Discussion :

[Antho-]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Antho-]

ça a l'air de fonctionner, Merci !