Problème copier coller avec MFC et VBA
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.
Code:
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 |
Merci d'avance pour votre aide
Cordialement