Bonjour le forum
Sur ce forum, on m'avait donné le code suivant qui marche très bien mais qui pose juste un petit souci. Le souci se pose lorsque je veux copier une case et puis coller dans une autre case. Le fichier se bloque et je ne peux plus rien faire. Pourquoi ce problème? Y a-t-il une solution pour palier à ce problème?
Sachant que j'ai testé la même macro sur excel 2010 et il n'y a pas d'erreur.
Merci d'avance pour votre aide
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 Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Intersect(Target, [$D$4:$GB$42]) Is Nothing Then Exit Sub For Each Cel In Target Set Cel_R = Sheets("Feuil1").[$B$2:$B$33].Find(Cel, LookIn:=xlValues, LookAt:=xlWhole) If Cel_R Is Nothing Then Cel.Interior.ColorIndex = xlNone Else Cel.Interior.ColorIndex = Cel_R.Interior.ColorIndex Cel.Font.ColorIndex = Cel_R.Font.ColorIndex Cel.Font.Bold = Cel_R.Font.Bold End If Next Cel End Sub
Cordialement
Partager