Discussion :

[bbcancer]

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

[Philippe Tulliez]

Bonjour,
Quel est la ligne qui ne fonctionne pas en 2010 et bien en 2003 ?
Attention que tu utilises la propriété ColorIndex or la palette de couleurs est différentes en 2010 par rapport à 2003.
Il est préférable d'utiliser le code RGB avec la propriété Color
A la ligne 12 de ton 2ème code la valeur à passer à la propriété ColorIndex n'est pas none mais xlNone
Voir ci-dessous

With Range("C5").Interior
.ColorIndex = xlNone
.Pattern = xlGray16
End With

[bbcancer]

Bonjour,

Merci pour la réponse
Pour les couleurs c'est noté.

En fait ce n'est pas la ligne qui ne marche pas mais les 2 codes cumulés.

Avant sur 2003, lorsque je voulais remplacer une cellule grisée par un autre code (exemple fond bleu, écriture blanche : code mis sur la feuille légende) je n'avais pas de soucis

La ma cellule reste grisée et ne m'applique pas le format désiré.

Tu veux peut être un fichier en exemple pour comprendre mes codes et ce que je souhaite? car ce n'est peut être pas assez clair mes explications

Cordialement

Voici l'exemple je pense que ça sera plus clair

Merci

PS : La macro grisé n'est pas lancé là

[Philippe Tulliez]

Bonjour,
Comment veux-tu que cette procédure soit lancée ?
Dans ton premier code, à quelle ligne invoques-tu cette procédure ?

[bbcancer]

Bonjour

Je ne l'invoque pas cette procédure je lance manuellement une fois en début de semestre et après en général je en la touche plus sauf si je rajoute des lignes ou des colonnes

Par contre s'il y a moyen de l'intégrer directement dans "private" ça le fais aussi bien cela me fait une macro de moins

[Philippe Tulliez]

Bonjour,
Je ne sais pas ce qui ne fonctionne pas alors.
J'ai fait tourner la procédure MFC_Grisées en 2003 & 2010 cela fonctionne parfaitement.
La procédure événementielle Worksheet_Change fonctionne aussi dans les 2 versions.
Quelque chose m'aurait échappé ou bien as-tu une autre procédure que tu n'as pas montrée.

[bbcancer]

Bonjour

Voilà moi quand je le teste ce que ça donne
Exemple en J11 la cellule reste grisée alors que le fond devrait redevenir blanc et en L12 idem la cellule reste grisée alors qu'elle devrai être verte
toi ça en te le fais pas ça?

Alors que sur 2003 pas de problème comme ca

Merci