Discussion :

[Antho-]

Bonjour à vous,

J'ai un petit problème que je n'ai pas réussi à résoudre, sur une macro qui fait bugger une autre.
La première qui met en majuscule tout texte entré dans la colonne C, H et D. Affecté au code de la feuille, elle fonctionne.
La deuxième qui permet d'insérer une ligne au début de mon tableau pour saisir. Affecté à une forme, elle fonctionne.

Le problème : Lorsque je clique sur la macro "insertion de ligne", la macro pour "majuscules" ne fonctionne plus.

Si quelqu'un peut m'aider, merci,

Macro "insertion ligne" :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub inserer_ligne()
 
Range("o4: x4").Select
Application.CutCopyMode = False
Selection.Copy
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Range("B3").Select
 
End Sub

Macro "majuscule" : :

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

[Invité]

Bonjour,

Il vous faut empêcher l'événement en cas de sélection multiple (cas d'une nouvelle ligne).

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
 
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