Problème compatibilité excel 2003-2010
Bonjour le forum
J'ai un certain nombre de macro qui me pose des problème de compatibilité entre excel 2003 et excel 2010.
En efeft, avant je travaillais sur 2003, mes macros fonctionnaient bien et depuis 2010 certaines marchent et d'autres ne fonctionne plus comme avant.
Je vous donne un exemple qui ne marche plus
J'ai un 1er code qui s'incluent directement sur la feuille :
Ce code me permet d'appliquer une MFC en fonction de la feuille légende
Code:
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
| Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Intersect(Target, [$E$4:$GF$58]) Is Nothing Then Exit Sub
For Each Cel In Target
Set Cel_R = Sheets("Légende").[$B$2:$B$34].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
End If
Next Cel
Application.ScreenUpdating = True ' Remet le comportement initial
End Sub |
Après j'utilise l'autre code pour grisée les cellules vides:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Sub MFC_Grisées()
Sheets("Feuil1").Select
Range("$E$4:$GF$58").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=E4=""""" 'Ajoute une condition si la case est vide
With Selection.FormatConditions(1).Interior
.ColorIndex = none
.Pattern = xlGray16
End With
Range("$A$1").Select
End Sub |
Avant (sur excel 2003) lorsque je voulais affecter un code de la feuille légende sur une cellule grisée, je n'avais pas de souci la case se mettait comme je voulais (de la bonne forme et couleur) et la cellule n'était plus grisée
Maintenant sur 2010 ça en marche plus la cellule reste grisée. Que faut-il faire?
y-a-t-il au pire un moyen de grouper les 2 macros?
Merci beaucoup
Bonne journée
Cordialement