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