Discussion :

[bbcancer]

Bonjour

J'utilise le code suivant :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
 
Application.ScreenUpdating = False
 
 
If Intersect(Target, [$F$4:$AJ$13]) Is Nothing Then Exit Sub
 
    For Each cel In Target
 
        Set Cel_R = Sheets("Légende").[$A$2:$A$10].Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
 
            If Cel_R Is Nothing Then
                cel.Interior.Color = xlNone
 
            Else
        cel.Interior.Color = Cel_R.Interior.Color
        cel.Font.Color = Cel_R.Font.Color
        cel.Font.Bold = Cel_R.Font.Bold
 
        Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True
 
            End If
 
    Next cel
 
 
Application.ScreenUpdating = True ' Remet le comportement initial
 
 
End Sub

le code marche très bien sans la partie suivante :

Code :

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

1
2
3
Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True

Voilà mon problème si je tape la lettre en minuscule effectivement elle se transforme en majuscule. Par contre si je fais un copier collage spécial valeur (pour mettre la même chose sur plusieurs cases), j'ai une erreur qui se produit.

J'ai mis un fichier en exemple.
Merci de votre aide

Bonne journée

Cordialement