Couleur de cellule

Résolu/Fermé
Medestrac - 21 févr. 2019 à 10:46
 Medestrac - 21 févr. 2019 à 15:53
Bonjour,

J'essaye de faire une macro qui inverse la couleur de remplissage de 2 cellules Excel
J'ai quelque chose du genre
c1=range("A1").interior.colorindex
t1=range("A1").interior.TintAndShade
range("A1").interior.colorindex = range("A2").interior.colorindex
range("A1").interior.TintAndShade = range("A2").interior.TintAndShade
range("A2").interior.colorindex=c1
range("A2").interior.TintAndShade=t1


Mais malgré ça les couleurs changent quand même. Si je lance une deuxième fois le code les couleurs ne bougent plus, j'en déduis que j'ai oublié de copier une propriété...mais laquelle?

2 réponses

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
21 févr. 2019 à 15:48
Bonjour

ton code fonctionne correctement
https://www.cjoint.com/c/IBvoWbeBWOB

Cdlmnt
0
Merci du coup de main, mais ça ne fonctionne toujours pas. Je pense que ça vient de la notion de ThemeColor introduit par Excel depuis ta version.

J'ai remplacé ColorIndex par Color et j'ai l'impression que ça résout mon problème. Je vais le passer en résolu.
0